VBA中从函数返回字符串数组至主过程报错求助

你的代码出现「Can't assign to array」错误，主要有几个关键问题，我来一步步帮你梳理和修正：

1. 核心错误：数组类型不匹配 #

在getTabNames函数里，你没有把tabName声明为String()类型，默认它是Variant数组。而主过程里的tabName是明确的String()数组，直接把Variant数组赋值给String数组就会触发这个错误。

2. 多余且冲突的参数 #

函数的第一个参数ws As Worksheet完全没用——你在函数内部用For Each ws In Sheets重新定义了一个同名的循环变量，不仅覆盖了传入的参数，而且传入的ws在主过程里根本没初始化（只是Dim了但没Set），属于无效参数。

3. 未初始化的循环计数器 #

i变量没有显式初始化，虽然VBA默认会把Integer变量设为0，但显式设置i = 0会让代码更清晰，避免意外。

4. 数组大小不合理 #

你用总工作表数totaltabs来定义数组大小，但实际只收集非「Overview」的工作表，这会导致数组有多余的空元素。更好的做法是先统计符合条件的工作表数量，再精准定义数组大小。

修正后的完整代码 #

Sub Captions_Formatting()
    Dim tabName() As String
    ' 直接调用getTabNames获取数组，不需要单独统计总表数
    tabName = getTabNames()
    
    ' 这里可以添加后续操作，比如遍历数组
    Dim idx As Integer
    For idx = LBound(tabName) To UBound(tabName)
        Debug.Print tabName(idx)
    Next idx
End Sub

Function getTabNames() As String()
    Dim ws As Worksheet
    Dim i As Integer
    Dim validTabCount As Integer
    
    ' 先统计符合条件的工作表数量
    validTabCount = 0
    For Each ws In Sheets
        If ws.Name <> "Overview" Then
            validTabCount = validTabCount + 1
        End If
    Next ws
    
    ' 根据实际数量定义数组大小
    ReDim tabName(validTabCount - 1) As String ' 下标从0开始，所以减1
    
    ' 再次遍历填充数组
    i = 0
    For Each ws In Sheets
        If ws.Name <> "Overview" Then
            tabName(i) = ws.Name
            i = i + 1
        End If
    Next ws
    
    getTabNames = tabName
End Function

简化版（用动态数组扩展） #

如果你不想两次遍历工作表，也可以用ReDim Preserve动态扩展数组：

Function getTabNames() As String()
    Dim ws As Worksheet
    Dim i As Integer
    Dim tabName() As String
    
    i = 0
    For Each ws In Sheets
        If ws.Name <> "Overview" Then
            ReDim Preserve tabName(i) As String ' 每次扩展一个元素
            tabName(i) = ws.Name
            i = i + 1
        End If
    Next ws
    
    getTabNames = tabName
End Function

这样修改后，数组就能正确赋值，不会再出现「Can't assign to array」错误了。

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