为什么使用 excel.application 定义变量会生成用户定义变量错误？

Question

正在读取 Access 365 数据库、创建错误报告、处理数据并输出 Excel 电子表格。花了不少时间声明变量。 excel.application 抛出用户定义的变量错误。

另外，希望获得有关引用电子表格中的单元格的建议。我计划在第一行提供列名称，但不确定这是否足够。我需要明确引用单元格吗？

我做了很多研究和阅读，但无法确定这个 excel.application 用户定义错误问题的解决方案。尝试了很多变体但无法确定解决方案。

可以看出这是我第一次尝试创建 Excel 输出文件。请帮忙！！

非常感谢！！！

'  Error Report File
RptLoc = "C:\Users\XXXX\OneDrive\TGS Committee Cloud\TGS Columbia Abstract Index Project\DataBase Load to OurRoots & AWS\Load Test File - 50 Recs - Fix Dates - Errors.txt"       ' Create error file.
Set fso = CreateObject("Scripting.FileSystemObject")
Set myFile = fso.CreateTextFile(RptLoc, True)       'Create Error text file
TXTLine = "Fixing date field has started."
myFile.WriteLine (TXTLine)

'  Open INPUT File
strSQL = "SELECT [Indexing].* FROM [Indexing]"
Set db = CurrentDb
Set RS = db.OpenRecordset(strSQL)   'open input file - Columbia Abstract Database

' Create and open excel output file.
Dim xls As Excel.Application   
Dim wkb As Excel.Workbook
Dim wks As Excel.Worksheet

FileLoc = "C:\Users\XXXX\OneDrive\TGS Committee Cloud\TGS Volunteer WorkSpace\Col Abstr\Testing\New Excel test file.xlsx"

Set xls = New Excel.Application     '**THIS LINE IS GENERATING USER DEFINED 
                                            ERROR.  What am i doing wrong?** 
Set wkb = xls.Workbooks.Open(FileLoc)
Set wks = wkb.Worksheets(1)

wks.Name = "New Index"    'Giving spreadsheet a name.

'wkb.Close True

'Set wks = Nothing
'Set wkb = Nothing
'xls.Quit
'Set xls = Nothing

Print .debug; "Worked!!"`

And the code goes on....

Answer 1

正确答案是由 towerer 在 2024 年 1 月 3 日发表的这篇文章， “VBE 工具 > 参考资料，检查 Microsoft Excel x.0 对象库 – 1 月 3 日 3:24 较高”。

我添加了这个参考，所有问题都消失了。非常感谢高！！