为什么我在VBA代码上得到运行时错误'-2147417848 (80010108)‘，用于导出到在旧Excel版本上工作良好的pdf？

在VBA代码中出现运行时错误'-2147417848 (80010108)'通常是由于代码中的某个对象引用无效或被释放导致的。这个错误通常与COM对象的生命周期管理有关。

要解决这个问题，可以尝试以下几个步骤：

检查对象引用：确保在使用对象之前，先进行有效性检查，以确保对象引用不为空。可以使用类似于If obj Is Nothing Then的语句来检查对象是否为空。
确保对象生命周期正确：在使用完对象后，应该及时释放对象，以避免出现无效的对象引用。可以使用Set obj = Nothing语句来释放对象。
确保对象的正确初始化：在创建对象之前，确保对象已经正确地初始化。例如，在使用Excel对象之前，应该先创建一个新的Excel应用程序对象，并打开相应的工作簿。
检查代码逻辑：仔细检查代码逻辑，确保没有在对象被释放后仍然使用该对象的情况。例如，在使用完Excel对象后，不应该再尝试访问该对象的属性或方法。

如果以上步骤都没有解决问题，可能需要进一步调试代码，查看具体出错的位置，并尝试使用错误处理机制来捕获和处理异常。

关于导出到旧版本Excel的PDF，可以使用VBA中的ExportAsFixedFormat方法来实现。具体代码示例如下：

Sub ExportToPDF()
    Dim wb As Workbook
    Set wb = ThisWorkbook
    
    Dim ws As Worksheet
    Set ws = wb.Worksheets("Sheet1") ' 修改为要导出的工作表名称
    
    Dim filePath As String
    filePath = "C:\path\to\output.pdf" ' 修改为输出的PDF文件路径
    
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath, Quality:=xlQualityStandard
End Sub

这段代码将当前工作簿中名为"Sheet1"的工作表导出为PDF文件，并保存到指定路径。你可以根据实际需求修改工作表名称和输出路径。

腾讯云相关产品和产品介绍链接地址：