如何将多个表导出到具有Microsoft访问权限的Excel电子表格

Question

我有2个访问表，必须将数据导出到spreadsheeet。这是否可以使用“DoCmd.TransferSpreadsheet”查询执行？代码在下面给出以供参考。

Call CreatePieChart("julydupscores", "julyapvscores", "C:\Performance Database\graph123.xlsm")

'FUNCTION

Public Sub CreatePieChart(sSource As String, qSource As String, msFileName As String)
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, sSource, msFileName, False

我怎样才能转移qsource（第二个来源）？

Answer 1

  

我怎样才能转移qsource（第二个来源）？

不知道你的graph123.xlsm做了什么“魔法”，这是不可能确定的，但一般来说，你只需添加第二个DoCmd.TransferSpreadsheet语句，指定qSource作为来源。如果指定相同的Excel文件名，则在导出到Excel（至少是最新版本）时，第二个表将作为现有Excel文档的另一个选项卡添加。 （如果您希望它们位于单独的文件中，请指定其他Excel文件名。）