[英]Access VBA - Export from query with query - to Excel
我有一個查詢,它顯示了來自 2 個表的連接記錄。 現在我想從該查詢中選擇具有所需 ID 的某些記錄並將它們導出到 Excel。 我該怎么做?
這不起作用:
Dim SQL As String
SQL = "SELECT * FROM Created_Query" & _
" WHERE ID=" & Me![Combobox]
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, SQL, FileName, True
我也試過這樣的 DAO.Recordset:
Dim Desired As Recordset
Dim SQL As String
SQL = "SELECT * FROM Created_Query" & _
" WHERE ID=" & Me![Combobox]
Set Desired= CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)
以上方法均無效。 我哪里錯了?
解決了,我需要 CreateQueryDef :)
Dim db As DAO.Database
Dim rs As Recordset
Set db = CurrentDb
Dim mySql As String
mySql = "SELECT * FROM Created_Query" & _
" WHERE ID=" & Me![Combobox]
db.CreateQueryDef "temp", mySql
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "temp", FileName, True
DoCmd.DeleteObject acQuery, "temp"
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.