帮助!我有一个用于打开 Excel 模板的数据库,将 QueryDef 的结果导出到活动工作表,然后使用新文件名保存该文件。听起来很容易。我遇到的问题是使用 DoCmd.TransferSpreadsheet 将结果导出到活动工作表中。它可以做我需要做的所有事情,除了实际传输数据......这意味着,它几乎没用。任何帮助将不胜感激。我正要拔头发。先感谢您。
创建 QDF
Set qdf = db.CreateQueryDef("" & strCrt, "SELECT [Zones Asset Information].* FROM " & _
"[Zones Asset Information] WHERE [Zones Asset Informaiton].[Invoice Number] " = '" & strCrt & "';")
打开模板
Set xlWB = xlApp.Workbooks.Open(WB_PATH)
Set xlWS = xlWB.Sheets(3)
xlWS.Activate
尝试导出
DoCmd.TransferSpreadsheet acExport, 10, "" & strCrt, , True, "orig data" 'Don't know how to specify Active Worksheet instead of a filename?!?
DoCmd.DeleteObject acQuery, "" & strCrt
保存文件
sSaveAsFileName = FLDR_PATH & "Accounting_Breakdown_Zones_Invoice_xxxxxx.xlsx"
Debug.Print "sSaveAsFileName: " & sSaveAsFileName
xlWB.SaveAs sSaveAsFileName