使用VBA从Word生成Excel表格时遇报错问题求助

早期绑定错误（运行时错误'13'：类型不匹配） #

早期绑定在Mac上需调整两个关键点：

• 先引用Excel对象库：打开Word VBA编辑器（Alt+F11），点击「工具」→「引用」，找到并勾选「Microsoft Excel [对应版本] Object Library」。
• 创建Excel实例时，用New关键字替代CreateObject，修改后代码：

Sub test()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application ' 替换CreateObject为New
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True ' 可选：让Excel可见便于调试
End Sub

晚期绑定错误（运行时错误'438'：对象不支持该属性或方法） #

Mac版Office对象模型与Windows存在细微差异，Workbooks.Add需显式指定模板参数，修改后代码：

Sub test()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add(Template:=xlWBATWorksheet) ' 显式指定空白工作表模板
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True ' 可选：让Excel可见便于调试
End Sub

若晚期绑定无法识别xlWBATWorksheet常量，直接用其数值-4167替代：

Set xlBook = xlApp.Workbooks.Add(Template:=-4167)

额外注意事项 #

• 权限设置：在Mac「系统设置」→「隐私与安全性」→「自动化」中，允许Word控制Excel，避免权限拦截。
• 清理实例：操作完成后添加代码释放对象，防止Excel后台残留：

' 操作结束后添加
xlBook.Close SaveChanges:=False
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

内容的提问来源于stack exchange，提问作者Darv