我需要一些帮助才能将多个查询导出到一个 Excel 工作簿中,但是,多个工作表吗?使用 MS Access VBA 中的表中的条件
附件是供参考的数据库。
表名称:Tbl_Final(下面列出的列)
- System
- User ID
- 用户类型
- Status
- 工作职位
根据表“Tbl_Final”(下面的 SQL 查询)中“系统”列中的唯一值,我需要创建单独的 excel 文件并将其导出到文件夹。
例子:
SELECT TBL_FINAL.系统、TBL_FINAL.[用户 ID]、TBL_FINAL.[用户类型]、TBL_FINAL.状态、TBL_FINAL.[作业职位]
来自 TBL_FINAL
WHERE (((TBL_FINAL.System)="OS/400"));
SELECT TBL_FINAL.System, TBL_FINAL.[User ID], TBL_FINAL.[User Type], TBL_FINAL.Status, TBL_FINAL.[Job Position]
FROM TBL_FINAL
WHERE (((TBL_FINAL.System)="Tab"));
经过谷歌搜索后,我设法找到了符合标准的代码。但遇到一些障碍:(
请求一些帮助!
Option Compare Database
Private Sub Command1_Click()
Dim strSQL As String
Dim dbs As Database
Dim qdf As QueryDef
strQry = "REPORT_QUERY"
Set dbs = CurrentDb
Set qdf = dbs.CreateQueryDef(strQry)
strSQL = "SELECT System, [User ID], [User Type], [Status] FROM TBL_FINAL WHERE System = 'OS/400'"
qdf.SQL = strSQL
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel11, _
strQry, "C:\Program Files\Export\GENERAL_EXPORT.xls", True, _
"Sheet1"
strSQL = "SELECT System, [User ID], [User Type], [Status] FROM TBL_FINAL WHERE System = 'MySys'"
qdf.SQL = strSQL
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel11, _
strQry, "C:\Program Files\Export\GENERAL_EXPORT.xls", True, _
"Sheet2"
DoCmd.DeleteObject acQuery, strQry
End Sub