VBA中Variant类型变量触发运行时错误13，求排查与调试方案

核心错误原因 #

你遇到的运行时错误13（类型不匹配），根源出在Workbooks(oFile)这行代码：

• oFile是File对象（来自oFolder.Files集合），而Workbooks集合的索引仅接受字符串（文件名/完整路径）或整数（工作簿的顺序索引）。直接传入File对象会触发类型不匹配，和burner是Variant类型无关。

修正方案 #

推荐两种可靠的修正方式：

方式1：使用File对象的Name属性（适用于无重名文件的场景）

Workbooks.Open oFile
burner = Workbooks(oFile.Name).Worksheets(1).Cells(11, 3)

方式2：直接引用打开的工作簿对象（无歧义，优先推荐）

把Workbooks.Open的返回值赋值给对象变量，后续直接通过变量操作，避免依赖Workbooks集合查找：

Dim wb As Workbook
'...
Set wb = Workbooks.Open(oFile)
burner = wb.Worksheets(1).Cells(11, 3)
'操作完成后按需关闭工作簿
wb.Close SaveChanges:=False

额外调试技巧 #

1. 立即窗口排查对象信息：在代码中插入断点，运行到Workbooks.Open oFile后，打开VBA编辑器的「立即窗口」（快捷键Ctrl+G），输入以下命令查看变量细节：

   ? TypeName(oFile)  '确认对象类型
   ? oFile.Path       '查看文件完整路径
   ? oFile.Name       '查看文件名
   

2. 检查单元格内容：修正后若仍有问题，确认目标单元格Cells(11,3)是否包含Excel错误值（如#N/A、#VALUE!），这类值虽能被Variant存储，但后续赋值给固定类型数组时可能再次报错。
3. 数组类型验证：确认你的数组（如Inspections）初始化为Variant类型，或与单元格值类型兼容。若数组是固定类型（如String），而单元格返回数值/错误值，会触发类型不匹配。
4. 逐行调试：用F8键逐行执行代码，观察每个变量的取值和类型变化，精准定位问题节点。

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