vba - 将一个数组复制到另一个数组

Question

我的 Sub 不断在以“<--- HERE”结尾的在线错误。

如果在 Dim 中指定该数组是 Full_Path(2) 我得到 compile error Cannot be assigned to an array .

如果我将数组保留为动态(如下面的示例)，我会得到 Run-Time error '13': Type mismatch .

我不明白为什么两者都不起作用？

也可作为输入 Entered_Path = D:\Data\MBS

Sub Set_Folder(Entered_Path As String)
    ' this function wil point to the folder that you want your data be saved into
    Dim Drive As String, Folder As String
    Dim Full_Path()

    'Assign this to a Public Variable
    Path = Entered_Path

    Full_Path = Split(Entered_Path, ":", , vbTextCompare)   <--- HERE
    Drive = Full_Path(0)
    Folder = Full_Path(1)

    ChDrive Drive
    ChDir Folder
End Sub

Answer 1

您可能不需要所有这些变量。

查找 Split()

Sub SetFolder(Entered_Path)
    ChDrive Split(Entered_Path, ":")(0)
    ChDir Split(Entered_Path, ":")(1)
End Sub

这显然是假设您的路径始终采用以下格式 DRIVE:\FOLDER\SUB