将目标文件存到指定文件夹下功能的问题

zhaokuo

我在本论坛里下载了一个现有的exel，功能是将目标文件放入指定文件夹下。界面如下：

先选择文件扩展名，点击“列出所有文件”按钮之后，与该excel同目录下的所有xls文件均会被列举出来。这个功能是没有问题的，
在B列设置好要转移的文件名，C列设置好存放的文件夹名字，点击第二个按钮后，B 列的文件会被拷贝到C列设置的文件夹下。
现在出现的问题是，若B列设置2个及2个以上的文件，tool正常运行，若B列只设置1个文件，则会出现“类型不匹配”的报错信息。
（我在下面标红的两行试着做过修改，将第一红行的最后Row+1,，第二红行变成1 to UBound(arr,2)，运行后，
B列只设置一个文件可以转移，但是设置两个以上文件的时候，没有报错，但是却只转移第一行设置的文件）请大神帮帮忙，谢谢！
部分代码如下：
Sub getfileList()
    Dim myrows As Integer
    Dim arr
    myrows = Worksheets(1).Range("b" & Rows.Count).End(xlUp).Row
    arr = Range("B2:B" & myrows)
    ///先判断文件夹是否存在
    Set fso = CreateObject("scripting.filesystemobject")
    If Not fso.fileexists(ThisWorkbook.Path & "\" & Range("C2")) Then '//判断文件夹是否存在  不存的新建一个文件夹
        fso.CreateFolder (ThisWorkbook.Path & "\" & Range("C2"))
    End If
    Dim myfile As String
    For i = 1 To UBound(arr, 1)
        myfile = isGetfd(ThisWorkbook.Path, CStr(arr(i, 1)))
        If myfile <> "" Then
            fso.copyfile myfile, ThisWorkbook.Path & "\" & Range("C2") & "\" & CStr(arr(i, 1))
        Else
            MsgBox arr(i, 1) & " :不存在"
        End If
    Next
End Sub

liulang0808

楼主的红色部分代码没有做调整，直接运行有什么问题吗

zhaokuo

liulang0808 发表于 2018-7-31 15:03
楼主的红色部分代码没有做调整，直接运行有什么问题吗

不做调整的话， B列只设置1个文件名字，会出现“类型不匹配”的报错信息。B列设置2个及2个以上的文件名字会正常执行

liulang0808

zhaokuo 发表于 2018-7-31 15:07
不做调整的话， B列只设置1个文件名字，会出现“类型不匹配”的报错信息。B列设置2个及2个以上的文件名字 ...

因为B列仅有一个文件名的时候，那个arr不是数组了，如果不做判断，做如下调整看看

myrows = Worksheets(1).Range("b" & Rows.Count).End(xlUp).Row+2

For i = 1 To UBound(arr, 1)-2

zhaokuo

liulang0808 发表于 2018-7-31 15:12
因为B列仅有一个文件名的时候，那个arr不是数组了，如果不做判断，做如下调整看看

myrows = Worksheet ...

非常感谢！执行成功了。
还有一个问题想请教你，For i = 1 To UBound(arr, 1)这里是想计算数组的上标，如果B列数据超过1行，它就变成了二位数组，那么计算二维数组的上标，也就是计算该组数据有多少列，不是应该用For i = 1 To UBound(arr, 2)吗？为什么要用For i = 1 To UBound(arr, 1)呢？

liulang0808

zhaokuo 发表于 2018-7-31 15:24
非常感谢！执行成功了。
还有一个问题想请教你，For i = 1 To UBound(arr, 1)这里是想计算数组的上标， ...

这个具体怎么用，要看楼主的数据是怎么规划的
目前的表结构，还是看一维的上届啊

zhaokuo

liulang0808 发表于 2018-7-31 15:30
这个具体怎么用，要看楼主的数据是怎么规划的
目前的表结构，还是看一维的上届啊

这个表是我从论坛里下载的，也是别人做的哈哈。
我也是觉得要看一维，但是在网上查了一下，正常的一维数组要声明为arr(3):arr(0)=1,arr(1)=2...arr(3)=4这样的，如果声明数组为arr（"A1：i"）这种形式的，只要有超过一行的数据，就是二维数组了

liulang0808

zhaokuo 发表于 2018-7-31 15:51
这个表是我从论坛里下载的，也是别人做的哈哈。
我也是觉得要看一维，但是在网上查了一下，正常的一维数 ...

数组是二维的，但是调用数据的位置决定了具体怎么用