vb.net 将excel文件转换为PDF文件

Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Interop

-------------------------------------------------------------    

''' <summary>

    ''' ExcelファイルをPDFファイルに変換する
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function ConvertExcelToPDF() As Boolean


        Dim rtn As Boolean = False
        Dim xlApp As Object
        xlApp = CreateObject("Excel.Application")
        xlApp.DisplayAlerts = False


        Try
            Dim xlBooks As Object = xlApp.Workbooks
            Dim xlBook As Object = xlBooks.Open(fnex)
            Dim xlSheets As Object = xlBook.Sheets
            Dim fileNm As String = DateTime.Today.ToString("yyyyMMdd")
            Dim newFn As String = "C:\Temp\" & "Temp" & ".pdf"


            xlBook.ExportAsFixedFormat(Type:=0, _
                                       Filename:=newFn, _
                                       Quality:=0, _
                                       IncludeDocProperties:=True, _
                                       IgnorePrintAreas:=False, _
                                       OpenAfterPublish:=False)


            xlBook.Save()
            'MessageBox.Show("PDF作成しました。")
            If Not xlSheets Is Nothing Then
                Try
                Finally
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheets)
                End Try
            End If


            If Not xlBook Is Nothing Then
                Try
                    xlBook.Close()
                Finally
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
                End Try
            End If


            If Not xlBooks Is Nothing Then
                Try
                Finally
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBooks)
                End Try
            End If


            rtn = True


        Catch ex As Exception
            'errmsg = ex.Message
            'Console.WriteLine("ERROR! ->" & errmsg)
            MessageBox.Show("PDF作成中、エラー...")
        Finally
            If Not xlApp Is Nothing Then
                Try
                    xlApp.Quit()
                Finally
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
                End Try
            End If
        End Try


        Return rtn


    End Function