Excel 引用字符串数组

我继承了一个宏，需要进行更新，请耐心等待

Public Const strSourceFolder1 As String = "\\File_Path\Sub_Folder2"
Public Const strSourceFolder2 As String = "\\File_Path\Sub_Folder1"

我有8个像上面那样的字符串。我想把它们做成一个数组，我可以在整个过程中引用它。这可能吗？形成阵列的样子是什么？“文件路径”是包含宏操作的文档的文件夹的位置，我的目标是将源文件夹更新为一组文件夹

我尝试了FoldersArray，但在宏的这一部分中引用它时，发现类型不匹配：

Private Sub GetFileName()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim FileName As String
    Dim Path As String
    Dim lngRow As Long

    Set wb = ActiveWorkbook
    Set ws = ActiveSheet
    lngRow = 2
    Path = FolderArray & "*.*"
    FileName = Dir(Path, vbNormal)

    Do Until FileName = ""
        Application.DisplayAlerts = False
        Sheet1.Cells(lngRow, 1).Select
        Sheet1.Cells(lngRow, 1) = FileName

        Call MainExtractData(FileName, lngRow)

        lngRow = lngRow + 1
        FileName = Dir()
    Loop
End Sub

---

创建一个函数以返回文件夹集：

Function FolderArray()
    Dim folders(1 to 8) As String
    folders(1) = "\\File_Path\Sub_Folder2"
    '....
    folders(8) = "\\File_Path\Sub_Folder9"
    FolderArray = folders
End Function

---

为什么不可能呢？你可以从字符串创建数组，还是我忽略了什么？我肯定是的，但我不确定如何将其组合在一起，以便一个变量（数组的名称）在文件夹中循环。请澄清一下，你是否需要帮助设置数组？或者，如何将它们加载到数组中，然后使用该数组？我想两者都是。我需要将所有指向单个文件路径的标注替换为在8个文件夹中循环的标注。噢！然后OP可以对FolderArray中的每个文件夹执行

是吗？