[已解决]完善VBA代码，查找并复制文件

果冻的心

zjdh 发表于 2020-4-1 19:26
以上是特定文件夹中查找A列文件，复制到特定文件夹。
若要通用请使用以下附件：

显示复制了实际未复制过去

zjdh

我这运行很正常，不知你那啥地方出问题了，请将宏中第一句注销，再运行一下看报错在哪一句。
Sub 复制()
    'On Error Resume Next
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请选择被扫描文件目录："
        .Show
        If .SelectedItems.Count <> 0 Then
            sTemp = .SelectedItems(1) & "\"
            Range("D1") = sTemp
        End If
    End With
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请选择存放文件目录："
        .Show
        If .SelectedItems.Count <> 0 Then
            CopyPath = .SelectedItems(1) & "\"
            Range("D2") = CopyPath
        End If
    End With
    Sfile = Dir(sTemp & "\*.*")
    Range("B2:B65536").ClearContents
    Do Until Sfile = ""
        For I = 2 To Range("A65536").End(3).Row
            If Split(Sfile, ".")(0) = Trim(Cells(I, 1).Value) Then
                FileCopy sTemp & Sfile, CopyPath & Sfile              '复制文件
                Cells(65536, 2).End(3)(2) = Split(Sfile, ".")(0)      '记录
                Exit For
            End If
        Next
        Sfile = Dir
    Loop
End Sub

果冻的心

zjdh 发表于 2022-11-12 11:38
我这运行很正常，不知你那啥地方出问题了，请将宏中第一句注销，再运行一下看报错在哪一句。
Sub 复制()
...

提示未找到文件，定位报错下面这句weiFileCopy sTemp & Sfile, CopyPath & Sfile              '复制文件  

zjdh

明白啦，不存在的文件如何复制？
你指定的文件夹里，必须存在A列所列文件名的文件！
特别要注意，A列中若是纯阿拉伯数字的文件名，必须是文本格式！

透明世界1987

zjdh 发表于 2014-11-5 20:56

请教下大神，这个附件中复制的文件不能带PDF，如果我是带后缀的.pdf，改哪里，谢谢

zjdh

这个附件中复制的文件，不管是何种尾缀都可以，请重新下载10楼附件测试。

果冻的心

zjdh 发表于 2020-4-1 19:26
以上是特定文件夹中查找A列文件，复制到特定文件夹。
若要通用请使用以下附件：

很完美