Excel 2007 (xlsx) 形式のワークブックを pdf にエクスポートしようとすると、上記のエラーが発生します。ワークブックにはシートが 1 つしか含まれておらず、Windows 7 PC に Ms 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 に変更しても役に立ちません。このエラーのトラブルシューティングに丸一日費やしましたが、方法が見つかりませんでした。今、私はこれから抜け出すためにSOを見ています...