因我不会VBA请老师帮忙写个批量查找相片代码

星语心愿 · 发表于 2013-4-5 22:43

三坛老窖发表于 2011-12-11 02:12
测试过，速度不是问题，确实没必要用进度条。楼主测试一下附件，看是否满足要求。
---------------------- ...

如果A列的数据有空白行，还可以再接着往下查找吗？希望得到帮助。谢谢。

星语心愿 · 发表于 2013-4-5 23:01

本帖最后由星语心愿于 2013-4-5 23:23 编辑

FileCopy sPath & Cells(M, 1).Value & ".JPG", tPath & Cells(M, 1).Value & ".JPG" 回十楼，该句出错。

如果A列为空或者A列有相片名称，但是在文件夹内找不到相片就会出错。希望得到解决。

星语心愿 · 发表于 2013-4-5 23:27

三坛老窖发表于 2011-12-11 02:12
测试过，速度不是问题，确实没必要用进度条。楼主测试一下附件，看是否满足要求。
---------------------- ...

查找相片2.zip (17.29 KB, 下载次数: 22)

请教一下，比如这种应该如何查找呢？相片名称以J列为依据如何查找？如果J列为空应该可以查找吗？希望得到帮助。谢谢。

guzhen9315 · 发表于 2013-4-6 10:32

星语心愿发表于 2013-4-5 23:01
FileCopy sPath & Cells(M, 1).Value & ".JPG", tPath & Cells(M, 1).Value & ".JPG" 回十楼，该句出错。 ...

这样就好了
If Dir(sPath & Cells(M, 1).Value & ".JPG") <> "" Then

原来是错的：
If Dir(sPath & Cells(M, 1).Value) & ".JPG" <> "" Then

星语心愿 · 发表于 2013-4-6 10:57

谢谢，可以了。

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

[已解决] 因我不会VBA请老师帮忙写个批量查找相片代码