使用For Each遍历String数组时出现ByRef参数类型不匹配问题

核心原因 #

VBA中未显式声明变量会默认将其设为Variant类型，即便变量存储的是String值，Variant类型与函数要求的String类型在ByRef传递时仍会触发类型不匹配错误——因为ByRef要求参数类型严格一致，不允许隐式类型转换。

具体修复方案 #

方案1：显式声明所有变量 #

在代码模块最顶部添加Option Explicit强制变量声明，同时为循环中的变量指定String类型，确保参数类型完全匹配：

Option Explicit ' 必须放在模块第一行

Sub YourProcedure() ' 替换为你的实际过程名称
    Dim PeriodArray() As String
    Dim PeriodSheet As String
    Dim PreviousPeriodSheet As String
    Dim f As YourClass ' 替换为对象f所属的类模块名

    PeriodArray = f.getPerArray
    PreviousPeriodSheet = ""
    For Each PeriodSheet In PeriodArray
        Debug.Print PeriodSheet & " " & TypeName(PeriodSheet) & " | " _
                  & PreviousPeriodSheet & " " & TypeName(PreviousPeriodSheet)
        
        Call RenderPeriod(PeriodSheet, PreviousPeriodSheet)
        PreviousPeriodSheet = PeriodSheet
    Next
End Sub

方案2：修改函数参数为ByVal传递（可选优化） #

如果RenderPeriod函数不需要修改传入的参数值，建议将参数改为ByVal传递。这种方式允许隐式类型转换，即便变量是Variant类型也能正常传递：

Function RenderPeriod(ByVal PeriodName As String, ByVal PrevPeriodName As String)
    ' 函数逻辑代码
End Function

额外验证要点 #

• 确认getPerArray函数返回的确实是纯String()数组，未在内部混入Empty、Null或其他非String类型的值。
• 检查是否存在同名的RenderPeriod函数（比如其他模块中定义了参数类型不同的同名函数），导致调用时匹配错误。

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