我遇到了以编程方式将包含迷你图的Excel工作表导出为PDF格式的问题。
当我使用Excel 2010的原生PDF导出工具手动将Excel工作表导出为PDF格式时,一切正常,但是当我使用简单的COM自动化执行此操作时,除了包含迷你图的单元格外,所有内容都将导出为PDF。 / p>
奇怪的是,当我向excel表添加一些数据条时,数据条附近的迷你图会突然导出,但远离数据条的那些不是。
我已经在多个不同的机器和操作系统上验证了这些问题。这可能与StackOverflow上的以下问题有关。
我正在使用以下,非常直接的VB.NET代码。我试过玩各种设置和变量,但没有运气。
Public Class Form1
Enum XlFixedFormatType
xlTypePDF = 0
xlTypeXPS = 1
End Enum
Enum XlUpdateLinks
xlUpdateLinksUserSetting = 1
xlUpdateLinksNever = 2
xlUpdateLinksAlways = 3
End Enum
Enum XlFixedFormatQuality
xlQualityStandard = 0
xlQualityMinimum = 1
End Enum
Private Sub buttonConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonConvert.Click
Dim pdf As String = Convert("C:\Sparkline.xlsx")
Process.Start(pdf)
End Sub
Public Function Convert(ByVal fileName As String) As String
Dim outPutFilename As String, printObject As Object = Nothing
Dim app As Object '** In reality this is a Microsoft.Office.Interop.Excel.Application
Dim doc As Object '** In reality this is a Microsoft.Office.Interop.Excel.Workbook
app = CreateObject("Excel.Application")
'** Open the _document
doc = app.Workbooks.Open(fileName:=fileName, _
UpdateLinks:=XlUpdateLinks.xlUpdateLinksNever, _
ReadOnly:=True, _
AddToMru:=False, _
IgnoreReadOnlyRecommended:=True, _
CorruptLoad:=True, _
Editable:=False)
'** Set visible sheets depending on selected range
printObject = app.ActiveWorkbook.ActiveSheet
'** Write the file under the same name, but with different extension
outPutFilename = System.IO.Path.ChangeExtension(fileName, "pdf")
printObject.ExportAsFixedFormat(Type:=XlFixedFormatType.xlTypePDF, _
fileName:=outPutFilename, _
quality:=XlFixedFormatQuality.xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False)
doc.Close(False)
app.Quit()
'** Return the name of the converted file
Return outPutFilename
End Function
End Class
答案 0 :(得分:1)
我一直与Microsoft支持人员联系,他们已经承认这是一个错误。产品团队正在考虑将其纳入未来的服务包中。
在此之前,在执行导出之前使应用程序可见将解决问题。如果您不希望用户看到它,那么您可以将窗口放在屏幕外。