Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Interop@H_404_2@

------------------------------------------------------------- @H_404_2@

''' <summary>@H_404_2@ ''' 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 原文链接：https://www.f2er.com/vb/257167.html