VBA：如何将两个查询导出到Excel的相同实例中的Excel？

在MS Access中，我有创build两个电子表格的VBA代码，然后打开它们。 但是，我的代码在Excel的不同实例中打开这些电子表格。 电子表格是相互引用的，所以他们需要在同一个实例中打开才能正常工作。 从桌面手动打开文件（在单个实例中）可以正常工作（电子表格可以在合作伙伴中查找数据）。

我怎么能要求他们在同一个例子中打开？

DoCmd.OutputTo acOutputQuery, "CrossTab", "ExcelWorkbook(*.xlsx)", "C:\Users\10331654\Desktop\CrossTab.xlsx", True, "", , acExportQualityPrint DoCmd.OutputTo acOutputQuery, "MyQuery", "ExcelWorkbook(*.xlsx)", "C:\Users\10331654\Desktop\MyQuery.xlsx", True, "", , acExportQualityPrint 

Answer 1

好的 – find答案。 您必须手动创build一个excel实例，然后在其中打开工作表：

  Dim ApXL As Object Dim xlWBk1 As Object Dim xlWBk2 As Object DoCmd.OutputTo acOutputQuery, "CrossTab", "ExcelWorkbook(*.xlsx)", "C:\Path\To\File1", False, "", , acExportQualityPrint DoCmd.OutputTo acOutputQuery, "MyQuery", "ExcelWorkbook(*.xlsx)", "C:\Path\To\File2", False, "", , acExportQualityPrint Set ApXL = CreateObject("Excel.Application") Set xlWBk1 = ApXL.Workbooks.Open(C:\Path\To\File1) Set xlWBk2 = ApXL.Workbooks.Open(C:\Path\To\File2)