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

guogongyi · 发表于 2014-11-5 17:47

本帖最后由 guogongyi 于 2014-11-6 17:54 编辑

该代码应该实现：在Excel的第一个表里面的任意单元格中，保存有文件的名称，仅保留文件基本名，不包含扩展名；想要的结果是：根据excel单元格的文件的名称，查找某文件夹里面，是否存在这个文件；如果存在，那么，就自动将该文件复制粘贴到其它文件夹。现在实现不了，请帮忙，另外我想增加一个功能，要查找的文件名在A列，已转存的问题名在B列中列出来，谢谢！

最佳答案

月排行榜 / 总排行榜

zjdh

2014-11-5 20:56

查找文件并复制到指定文件夹.rar (10.21 KB, 下载次数: 173)

zjdh · 发表于 2014-11-5 19:33

查找文件并复制到指定文件夹.rar (14.35 KB, 下载次数: 33)

guogongyi · 发表于 2014-11-5 19:54

zjdh 发表于 2014-11-5 19:33

出现445错误提示，调试时这个有错Set FS = Application.FileSearch。老师看看是什么原因？谢谢

zjdh · 发表于 2014-11-5 19:59

FileSearch 方法只适合于2003版及以下，你大概在2007版运行啦！

guogongyi · 发表于 2014-11-5 20:04

zjdh 发表于 2014-11-5 19:59
FileSearch 方法只适合于2003版及以下，你大概在2007版运行啦！

我用的是2010，怎么办？

zjdh · 发表于 2014-11-5 20:32

guogongyi 发表于 2014-11-5 20:04
我用的是2010，怎么办？

那就不是完善而是重写啦！

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

查找文件并复制到指定文件夹.rar (10.21 KB, 下载次数: 173)

guogongyi · 发表于 2014-11-6 17:52

本帖最后由 guogongyi 于 2014-11-6 18:27 编辑

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

谢谢老师，这个很好用，实用，运行速度比以前的也快，给最佳且加分。编写代码速度真快。再次谢谢

machaomch · 发表于 2020-4-1 11:07

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

朋友这个文件要怎么用呀……

zjdh · 发表于 2020-4-1 19:26

本帖最后由 zjdh 于 2022-11-22 09:48 编辑

machaomch 发表于 2020-4-1 11:07
朋友这个文件要怎么用呀……

以上是特定文件夹中查找A列文件，复制到特定文件夹。
若要通用请使用以下附件：

查找文件并复制到指定文件夹.rar (10.59 KB, 下载次数: 95)

		自动登录	找回密码
密码			注册

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

相关帖子

评分

评分