Visual Basic一维字符串数组代码出现编译语法错误，求排查原因

你的代码问题在于VBA不支持在Dim声明数组时直接用=赋值初始化，这种写法是VB.NET的语法，不符合VBA的规则，所以触发编译错误。

以下是几种VBA中创建一维字符串数组的正确写法：

• 方式1：先声明Variant类型变量，再用Array函数赋值

Dim sheets_names_array As Variant
sheets_names_array = Array("Sheet1", "Sheet2")

• 方式2：声明固定长度的静态数组，逐个赋值

Dim sheets_names_array(1) As String ' 下标默认从0开始，(1)表示包含2个元素
sheets_names_array(0) = "Sheet1"
sheets_names_array(1) = "Sheet2"

• 方式3：声明动态字符串数组，重新分配空间后赋值

Dim sheets_names_array() As String
ReDim sheets_names_array(1)
sheets_names_array(0) = "Sheet1"
sheets_names_array(1) = "Sheet2"

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