如何解决类不支持自动化或不支持预期的接口在 MS Access VBA 中运行自动化
我在从 Access VBA 运行以下函数时收到上述错误消息。
Function WrongEntries()
Dim dbs As Database
Dim sht As Worksheet
Set dbs = CurrentDb
Set rfQuery = dbs.OpenRecordset("5G Negative Cycle Times")
Set rgQuery = dbs.OpenRecordset("5G High Cycle Times")
Set excelapp = CreateObject("Excel.application","")
excelapp.Visible = True
Set targetworkbook = excelapp.Workbooks.Open("C:\GDC Reporting\Template\5G Wrong Entries_Blank.xlsx")
targetworkbook.Worksheets("Negative Cycle Times").Range("A2").copyFromrecordset rfQuery
Set targetworkbook = excelapp.Workbooks.Open("C:\GDC Reporting\Template\5G Wrong Entries_Blank.xlsx")
targetworkbook.Worksheets("Cycle Times >5 weeks").Range("A2").copyFromrecordset rgQuery
targetworkbook.RefreshAll
targetworkbook.Application.displayAlerts = False
targetworkbook.Application.ScreenUpdating = False
end function
我已经检查了参考资料并且包含了所有库以运行此代码,但是我仍然遇到上述错误。我在 Office 365 平台上使用 MS Office 2016 应用程序。使用此代码,我只是想将数据集从预先设计的查询复制到 Excel 工作表。
在此先感谢您。
谢谢,
小偷
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。