我有将 xls 转换为 pdf 的工作代码,但是,代码转换了整个工作簿,我真的只需要从工作簿中选择一个工作表,但我不知道该怎么做。
我目前使用的代码是:
Dim fileName As String = "filepath\filename"
Dim xlsApp = New Microsoft.Office.Interop.Excel.Application
xlsApp.ScreenUpdating = False
Dim xlsBook As Microsoft.Office.Interop.Excel.Workbook
Dim paramExportFormat As XlFixedFormatType = XlFixedFormatType.xlTypePDF
Dim paramExportQuality As XlFixedFormatQuality = XlFixedFormatQuality.xlQualityStandard
Dim paramOpenAfterPublish As Boolean = False
Dim paramIncludeDocProps As Boolean = True
Dim paramIgnorePrintAreas As Boolean = True
Dim paramFromPage As Object = Type.Missing
Dim paramToPage As Object = Type.Missing
xlsBook = xlsApp.Workbooks.Open(fileName & ".xls", UpdateLinks:=False, ReadOnly:=False)
xlsBook.ExportAsFixedFormat(paramExportFormat, fileName & ".pdf", paramExportQuality, paramIncludeDocProps, paramIgnorePrintAreas, paramFromPage, paramToPage, paramOpenAfterPublish)
xlsBook.Close(SaveChanges:=False)
xlsApp.Quit()
我需要在代码中的哪个位置指定工作簿中的工作表?请注意,我需要这样做,以便根据输入应用程序的选项,工作表会发生变化,尽管我认为这不会有什么不同,但我想我会以任何一种方式提及它。
最佳答案
尝试使用ExportAsFixedFormat方法
Private Sub SaveWorksheetAsPDF()
Dim mySheet As Microsoft.Office.Tools.Excel.Worksheet = xlsBook(0)
mySheet.ExportAsFixedFormat( _
Excel.XlFixedFormatType.xlTypePDF, _
"c:\myWorksheet", _
Excel.XlFixedFormatQuality.xlQualityStandard, _
True, _
True, _
1, _
10, _
False)
End Sub
关于vb.net - 如何使用 VB.NET 将 XLS 中的单个工作表转换为 PDF,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6604009/