VBA中将Split返回的字符串数组传入Sheets()导出PDF报错如何解决

问题根源 #

Split 函数返回的是固定类型的字符串数组(String())，而VBA的Sheets集合不接受字符串数组作为索引参数，仅接受变体类型(Variant)数组，所以直接传入Split生成的数组会触发类型不匹配报错。

可行解决方案 #

方案1：直接将数组声明为Variant类型（最简方案） #

不需要拆分后额外转类型，直接把存储表名的数组声明为Variant即可：

Sub Export_to_pdf()
' 注意这里声明为Variant，不要声明为String()
Dim SheetArr As Variant
Dim ExportPath As String

' 从单元格拆分表名，Variant类型可以直接接收Split的返回值
SheetArr = Split(Worksheets("EXPORT").Range("C12").Value, ",")

' 可以直接传入Sheets选择对应工作表
Sheets(SheetArr).Select

' 导出PDF示例，可按自己需求调整路径和参数
ExportPath = ThisWorkbook.Path & "\导出结果.pdf"
ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=ExportPath, _
    Quality:=xlQualityStandard

MsgBox "导出完成，文件路径：" & ExportPath
End Sub

方案2：把String数组转为Variant数组 #

如果业务逻辑里必须保留原String数组的声明，可以通过遍历转存为Variant数组：

Sub Export_to_pdf()
Dim SheetArr() As String
Dim VarArr() As Variant
Dim i As Long

SheetArr = Split(Worksheets("EXPORT").Range("C12").Value, ",")
' 重定义变体数组长度和String数组一致
ReDim VarArr(LBound(SheetArr) To UBound(SheetArr))

' 逐个元素转存，顺便做去空格处理，避免单元格表名带空格找不到表
For i = LBound(SheetArr) To UBound(SheetArr)
    VarArr(i) = Trim(SheetArr(i))
Next i

Sheets(VarArr).Select
' 后续导出PDF逻辑和上述一致即可
End Sub

额外优化建议 #

可以增加工作表存在性校验，避免单元格输入了不存在的表名导致报错，校验函数参考：

Function SheetExists(sheetName As String) As Boolean
Dim sht As Object
On Error Resume Next
Set sht = ThisWorkbook.Sheets(sheetName)
On Error GoTo 0
SheetExists = Not sht Is Nothing
End Function

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