Excel VBA编译错误：For Each控制变量需为Variant或Object排查

错误核心原因 #

你遇到的“For Each control variable must be Variant or Object”编译错误，本质是For Each循环的控制变量类型不符合要求——For Each只能遍历集合/对象，控制变量必须声明为Variant或者对应类型的Object，如果用了字符串、数值这类基本数据类型就会触发这个错误。

结合你的需求场景，最可能的出错点是遍历CSV文件的代码逻辑：比如你试图用For Each直接遍历Dir()函数的返回结果，或者把循环变量声明为String类型来遍历文件/工作表集合。

常见错误写法与修正 #

错误示例1：用For Each遍历Dir()结果 #

'错误写法：Dir返回单个字符串，不是集合，且变量为String类型
Dim fileName As String
For Each fileName In Dir(folderPath & "*.csv")
    '处理文件逻辑
Next fileName

修正方案1：用FileSystemObject遍历文件集合 #

用脚本对象的文件集合来遍历，变量声明为Object类型：

Dim fso As Object, folder As Object, file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(你的文件夹路径)

'遍历文件夹内所有文件，控制变量file是Object类型，符合要求
For Each file In folder.Files
    '筛选分号分隔的CSV文件
    If LCase(fso.GetExtensionName(file.Name)) = "csv" Then
        '在这里添加你的文件导入、工作表创建逻辑
    End If
Next file

修正方案2：用Dir循环遍历文件 #

如果不想用FileSystemObject，改用Do循环配合Dir函数：

Dim fileName As String
fileName = Dir(你的文件夹路径 & "*.csv")

Do While fileName <> ""
    '处理当前文件
    '在这里添加你的文件导入、工作表创建逻辑
    
    '获取下一个文件
    fileName = Dir
Loop

其他可能的错误点 #

如果遍历工作表集合时出错，比如：

'错误写法：变量为String类型，应该用Worksheet对象
Dim wsName As String
For Each wsName In ThisWorkbook.Worksheets
    '判断工作表是否重名
Next wsName

修正为：

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name = 目标名称 Then
        '处理重名逻辑
    End If
Next ws

额外需求的实现提示 #

1. 提取文件名前两个下划线间的内容：可以用Split()函数拆分文件名，比如Split(file.Name, "_")，取数组第1个元素（下标从0开始）。
2. 处理工作表重名：遍历现有工作表，若存在同名则追加序号（如"Name1"、"Name2"）。
3. 日期格式转换：从文件名提取DD-MM-YYYY字符串后，用CDate()转成日期，再用Format(日期变量, "MM-DD-YYYY")输出成目标格式。

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