Vba =New Excel.Application这样就不会混合使用早期绑定和晚期绑定。同一行代码上出现相同的错误？请尝试将该行切换到Set rs=dbs.OpenRecordset（strTable，dbOpenDynaset）。查询名称lol的拼写错误非常严

---

=New Excel.Application这样就不会混合使用早期绑定和晚期绑定。同一行代码上出现相同的错误？请尝试将该行切换到

Set rs=dbs.OpenRecordset（strTable，dbOpenDynaset）

。查询名称lol的拼写错误非常严重。。我尝试了修复2，但是得到了一个新的错误“objectrequired”，我仍然在用vba摸索，所以在它接近时仍然在学习这个对meWell来说是新的，如果您定义了一个参数，那么很容易看到。只需在SQL视图中打开查询，如果在顶部看到

PARAMETERS

语句，就可以看到参数。否则，您可以安全地忽略原因2。查询名为lol.的点上的拼写错误。。我尝试了修复2，但是得到了一个新的错误“objectrequired”，我仍然在用vba摸索，所以在它接近时仍然在学习这个对meWell来说是新的，如果您定义了一个参数，那么很容易看到。只需在SQL视图中打开查询，如果在顶部看到

PARAMETERS

语句，就可以看到参数。如果没有，您可以安全地忽略原因2。

Option Compare Database
Public Function Export_EXCEL()


Dim dbs As DAO.Database
Dim Response As Integer
Dim strSQL As String
Dim Query1 As String
Dim LTotal As String
  Dim Excel_App As Excel.Application 'Creates Blank Excel File
  Dim strTable As String ' Table in access
    Dim queryDelete As String 'SQL to delete records in local table
    Dim strAssigned As DAO.Recordset

'-------------------------------------------------------------------------------
strTable = "Select * From cso_sup_SETUP" 'Access Query I am trying to copy

    Set Excel_App = CreateObject("Excel.Application")
        Set dbs = CurrentDb
'-------------------------------------------------------------------------------
Dim rs As DAO.Recordset
Set rs = dbs.OpenRecordset(strTable)

    Excel_App.Visible = True

Dim wkb As Excel.Workbook
  Set wkb = Excel_App.Workbooks.Add

Dim rg As Excel.Range
Dim i As Long
' Add the headings
For i = 0 To rs.Fields.Count - 1
    wkb.Sheets(1).Cells(1, i + 1).Value = rs.Fields(i).Name
Next i

Set rg = wkb.Sheets(1).Cells(2, 1)
rg.CopyFromRecordset rs

' make pretty
rg.CurrentRegion.EntireColumn.AutoFit


Set rs = Nothing
Set wkb = Nothing
Set dbs = Nothing

End Function

Option Compare Database
Public Function Export_EXCEL()


Dim dbs As DAO.Database
Dim Response As Integer
Dim strSQL As String
Dim Query1 As String
Dim LTotal As String
  Dim Excel_App As Excel.Application 'Creates Blank Excel File
  Dim strTable As String ' Table in access
   Dim queryDelete As String 'SQL to delete records in local table
   Dim strAssigned As DAO.Recordset

 Dim rs As DAO.Recordset
 Dim db As DAO.Database
 Dim prm As DAO.Parameter
 Dim qdf As DAO.QueryDef

 '-------------------------------------------------------------------------------
 strTable = "Select * From cso_sup_SETUP" 'Access Query I am trying to copy

Set Excel_App = New Excel.Application
    Set dbs = CurrentDb
 '-------------------------------------------------------------------------------

Set rs = QuerDef.OpenRecordset(strTable)

Excel_App.Visible = True

Dim wkb As Excel.Workbook
  Set wkb = Excel_App.Workbooks.Add

Dim rg As Excel.Range
Dim i As Long
 ' Add the headings
For i = 0 To rs.Fields.Count - 1
   wkb.Sheets(1).Cells(1, i + 1).Value = rs.Fields(i).Name
 Next i

Set rg = wkb.Sheets(1).Cells(2, 1)
rg.CopyFromRecordset rs

' make pretty
rg.CurrentRegion.EntireColumn.AutoFit


 Set rs = Nothing
 Set wkb = Nothing
 Set dbs = Nothing

 End Function