将一个数组复制到另一个数组中

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

Answer 2

我相信错误是由于数组声明引起的

你有几个选择

1. 将Dim Full_Path()更改为Dim Full_Path或Dim Full_Path() as String （推荐）

2. 一起删除声明Dim Full_Path()

3. 将Dim Full_Path()声明为Dim Full_Path(2) as String

   在这种情况下，您必须循环遍历数组或按索引抓取数组以放置内容

   例如Full_Path(0) = Split(Entered_Path, ":", , vbTextCompare)(0)

Answer 3

Split 返回一个 String 数组，因此要将返回的数组分配给动态数组，它们必须是相同的类型：

Dim Full_Path() As String

Answer 4

根据微软关于Split 函数的说法，如果需要，您可以使用比较方法。 在这种情况下，基本的拆分可能就足够了。

Optional ByVal Compare As CompareMethod = CompareMethod.Binary 

对于二进制比较，或

Optional ByVal Compare As CompareMethod = CompareMethod.Textual 

对于文本，然后使用拆分：

Split(EnteredPaty, ":", ,CompareMethod.Text) 

您将拥有一个 {Lastname, Firstname} 数组，因此您可以只使用namesArray(0) & " " & namesArray(1)来为您提供姓氏名字

基本形式的拆分函数：

Split(Entered_Path, ":")

这里有很多很好的读物，还有更多细节

Answer 5

将 vbTextcompare 更改为 CompareMethod.Text 和 Full_Path 作为字符串数组

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()  <--- Look HERE

    'Assign this to a Public Variable
    Path = Entered_Path

    Dim Full_Path As String() = Split(Entered_Path, ":")   
    <--- Look ABOVE

    Drive = Full_Path(0)
    Folder = Full_Path(1)

    ChDrive Drive
    ChDir Folder
End Sub