vb.net 将excel文件转换为PDF文件
发布时间：2020-12-17 07:41:58 所属栏目：百科 来源：网络整理
导读：Imports Microsoft.Office.Interop.Excel Imports Microsoft.Office.Interop ------------------------------------------------------------- ''' summary ''' ExcelファイルをPDFファイルに変換する ''' /summary ''' returns/returns ''' remarks/remarks
|
Imports Microsoft.Office.Interop.Excel ------------------------------------------------------------- ''' <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（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |