运行时错误76：找不到路径

Question

我正在使用下面的基本代码将文件从一个位置复制到另一个位置。

Sub CopyFilesToLocation()

Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 69 To lRow

    FileCopy Cells(i, 19), "C:\Users\a222012\Desktop\Test\" & Cells(i, 9) & ".pdf"

Next i

End Sub

单元格（i，19）包含指向pdf文件的超链接。 我大约有5000个文件。 使用On Error Resume Next帮助我克服运行时错误并提取大约4400个文件。 其余的600将全部给出运行时错误，而不显示On Error Resume Next 。 600个文件具有有效链接，单击该链接即会打开pdf。 知道为什么我会得到错误吗？

编辑：所有文件都在网络驱动器上。 路径示例： \\\\19549dabjnb0002\\images\\2017.07\\11\\A217081\\20170711095405.pdf

Answer 1

FileCopy的效果很好 。 尝试将代码简化为较小的代码，然后从那里开始工作。 然后删除On Error Resume Next 。 这样的事情应该起作用：

Sub CopyFilesToLocation()

    Dim strPath As String

    strPath = "C:\Users\USER\Desktop\" & Cells(2, 1)
    Debug.Print Cells(1, 1)
    Debug.Print strPath

    Stop 'Take a look at the immediate window
    FileCopy Cells(1, 1), strPath

End Sub

代码停止后，查看立即窗口Ctrl+G

编辑：为优化移动，只需使用两个路径并将文件分别添加到它们。 它将容易循环：

Option Explicit
Public Sub TestMe()

    Dim strPathD As String 'Destination path
    Dim strPathL As String 'Location path

    strPathL = "C:\Users\USER\Desktop\"
    strPathD = "C:\Users\USER\Desktop\NewFolder\"

    FileCopy strPathL & Cells(1, 1), strPathD & Cells(1, 1)

End Sub