问有时查询数据是不完整的-使用VBA将结果拖到Excel中。

EN

Sub ParameterQuery_Awesome()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False

On Error GoTo Whoa

'Step 1: Declare your variables
Dim MyDatabase As DAO.Database
Dim MyQueryDef As DAO.QueryDef
Dim MyRecordset As DAO.Recordset

'Step 2: Identify the database and query
Set MyDatabase = DBEngine.OpenDatabase _
("\\folders\Awesome.accdb")
Set MyQueryDef = MyDatabase.QueryDefs("AwesomeQuery")

'Step 3: Define the Parameters
With MyQueryDef
.Parameters("[Enter Parameter:]") = [Parameter].Value
End With

'Step 4: Open the query
Set MyRecordset = MyQueryDef.OpenRecordset

'Step 5: Clear previous contents
[DataInputRange].ClearContents

'Step 6: Copy the recordset to Excel
[DataInput].CopyFromRecordset MyRecordset

'MsgBox "Your Query has been Run"

LetsContinue:
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

On Error Resume Next

MyRecordset.Close
MyQueryDef.Close
MyDatabase.Close

Set MyRecordset = Nothing
Set MyQueryDef = Nothing
Set MyDatabase = Nothing

On Error GoTo 0
Exit Sub

Whoa:
MsgBox "Oh noes!!1" & vbCrLf & _
"Error Description :" & Err.Description & vbCrLf & _
"Error at line     :" & Erl & vbCrLf & _
"Error Number      :" & Err.Number

Resume LetsContinue  

End Sub