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

yclyb

老师你好,
    现有一文件夹里有很多考生相片，相片名为考生号JPG格式，我想根据A列考生号批量找出要找的相片，另放一个文件夹里，最好有一个复制进度条窗口，查找完弹出(相片查找完毕)对话框，如果找就在B列对应单元格提示(己复制相片)，没有找到的保留单元格空白，不知是否还有更好方法。
谢谢！
相片.rar (310.46 KB, 下载次数: 55)

2011-12-10 12:51 上传

点击文件名下载附件

guzhen9315

1. Sub 复制相片()
   
2.     Dim sPath, tPath As String
   
3.     Dim M, N As Integer
   
4.     sPath = "C:\Documents and Settings\gz\桌面\相片"  '根据不同起始目录，你自己修改
   
5.     tPath = "C:\Documents and Settings\gz\桌面\相片\新建文件夹"  '根据不同目标目录，你自己修改
   
6.     For M = 2 To Cells(Rows.Count, 1).End(3).Row
   
7.         If Dir(sPath & Cells(M, 1).Value) & ".JPG" <> "" Then
   
8.             FileCopy sPath & Cells(M, 1).Value & ".JPG", tPath & Cells(M, 1).Value & ".JPG"
   
9.             Cells(M, 2) = "己复制相片"
   
10.         Else
    
11.             Cells(M, 2) = "无相片"
    
12.         End If
    
13.     Next M
    
14.     MsgBox "处理完成", 0, ""
    
15. End Sub
    

复制代码

根据不同目录，你自己修改

guzhen9315

复制考生相片:
1、根据A列考生号，批量找出要找的相片（JPG），放到一个“新建文件夹”里。
2、最好有一个复制进度条窗口（很快的，不用了）。
3、查找完弹出“处理完成！”对话框。
4、如果找就在B列对应单元格提示“己复制相片”，没有找到的提示“无相片”。

人形电脑天使心

txt文档里写入
copy 考生号.jpg 新建文件夹
...
把txt后缀名改为bat运行即可
写入内容可以在excel里整理好

yclyb

guzhen9315 发表于 2011-12-10 13:31
根据不同目录，你自己修改

guzhen9315 老师你好：可以上传个附件吗?因我不会VBA，我想到时换考生号上去就行了的就好，谢谢！

yclyb

人形电脑天使心 发表于 2011-12-10 13:41
txt文档里写入
copy 考生号.jpg 新建文件夹
...

人形电脑天使心 你好：因我理解能力有限，请老师能够详细地将过程写出来，最好是动画，谢谢！

人形电脑天使心

动画

gif.zip (128.99 KB, 下载次数: 77)

2011-12-10 17:00 上传

点击文件名下载附件

yclyb

人形电脑天使心 发表于 2011-12-10 16:58
动画

你好，按你的方法试了查找3个相片，运行了，它闪了一下，查看新建文件夹是空的，不知道相片跑那去了。

yclyb

我想了想还是用VBA好，因为没找到相片有提示，知道还差那个考生缺相片，就可以通知他尽快补交相片。因我不会VBA，请老师帮忙解决。谢谢！

guzhen9315

yclyb 发表于 2011-12-10 16:23
guzhen9315 老师你好：可以上传个附件吗?因我不会VBA，我想到时换考生号上去就行了的就好，谢谢！

你试试。
目录文件夹，你自己修改一下。