使用docmd.outputto将Access查询结果复制到excel中

我尝试使用“docmd.openquery”来运行现有的查询，结果成功了。但当我尝试使用“docmd.outputto”方法将查询结果输出到excel时，它给了我应用程序定义和对象定义的错误。有人能帮忙解决这个问题吗？下面是代码

Sub run_access_query()
    Dim accessapp As Object    
    Set accessapp = CreateObject("Access.Application")
    accessapp.Visible = False

    accessapp.Opencurrentdatabase "U:\myAccess Databases\testdatabase.mdb"

    With accessapp.DoCmd
        .SetParameter "input_no", "20032967590"
        .OpenQuery "test_query"               
        .OutputTo acOutputquery, "test_query"                     
    End With
    Set accessapp = Nothing
End Sub

---

使用我尝试过的，它给出了相同的错误。请发布您用于

TransferSpreadsheet

的代码，我怀疑您的参数不正确。。。错误发生在哪一行？嗨，斯科特，当然可以，请在下面检查，非常感谢你的帮助

.transfer电子表格acExport，acSpreadsheetTypeExcel12，“测试\查询”，“I:\Documents\Access\test.xlsx”，True

没问题，我正在使用2010版。我可以试着转换成accdb，看看会发生什么。非常感谢。使用我尝试过的，它给出了相同的错误。请发布您用于

TransferSpreadsheet

的代码，我怀疑您的参数不正确。。。错误发生在哪一行？嗨，斯科特，当然可以，请在下面检查，非常感谢你的帮助

.transfer电子表格acExport，acSpreadsheetTypeExcel12，“测试\查询”，“I:\Documents\Access\test.xlsx”，True

没问题，我正在使用2010版。我可以试着转换成accdb，看看会发生什么。谢谢。