Excel工作表中的列表中的VBA Movefile

Question

我想将文件从包含A列中文件路径的Excel文件（listfiles.xlsx）移到另一个文件夹。下面的代码对我不起作用，能帮我吗？

Sub movefile1()
Dim fso As FileSystemObject
Dim i As Long
Dim worksh As Worksheet
Dim workboo As Workbook

Set fso = CreateObject("scripting.filesystemobject")
Destination = "C:\Users\Desktop\Folder"

Set workboo = Workbooks.Open("C:\Users\TOSHIBA\Desktop\list_files.xlsx")
Set worksh = Worksheets("Listing")

numRows = worksh.Range("A" & Rows.Count).End(xlUp).Row
workboo.Windows(1).Visible = False

        For i = 2 To numRows
        Filepath = worksh.Range("A" & i).Value
        fso.CopyFile Filepath, Destination
    Next

    End Sub

我更改了代码，但是fso.CopyFile Filepath, Destination无法正常工作。 他们说许可被拒绝

Answer 1

将numRows = .Range("A" & .Rows.Count).End(xlUp).Row放在循环之前，否则将根本不会执行循环