尝试将excel 2007(xlsx)格式的工作簿导出为pdf时出现上述错误。该工作簿仅包含一张纸,并且我在Windows 7 PC上安装了Office 2007女士。
这是堆栈跟踪
at Microsoft.Office.Interop.Excel.WorkbookClass.ExportAsFixedFormat(XlFixedFormatType Type, Object Filename, Object Quality, Object IncludeDocProperties, Object IgnorePrintAreas, Object From, Object To, Object OpenAfterPublish, Object FixedFormatExtClassPtr)
at schoolwisereportprint.converttopdf() in
C:\Users\username\Desktop\Dpp2012New\schoolwisereportprint.aspx.vb:line 33
at schoolwisereportprint.Button1_Click(Object sender, EventArgs e) in C:\Users\username\Desktop\Dpp2012New\schoolwisereportprint.aspx.vb:line 158
这是我的converttopdf()函数:
Public Sub converttopdf()
Dim fileName As String = Server.MapPath("rahulserver/pdfreprt.xlsx")
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, UpdateLinks:=False, ReadOnly:=False)
xlsBook.ExportAsFixedFormat(paramExportFormat, "rahulserver/pdfreprt" & ".pdf", paramExportQuality, paramIncludeDocProps, paramIgnorePrintAreas,paramFromPage, paramToPage, paramOpenAfterPublish)
xlsBook.Close(SaveChanges:=False)
xlsApp.Quit()
MsgBox("successfully converted to pdf!")
End Sub
即使将paramFromPage和paramToPage分别更改为1和1也无济于事。我已经花费了一整天的时间来解决此错误,但是找不到解决方法。现在我期待着让我摆脱这个...
最佳答案
刚刚意识到这是一个非常老的问题。顺便说一句,问题在于OP没有安装“2007 Microsoft Office加载项:Microsoft另存为PDF”加载项。
你可以找到here