【VBA研究】查找目录以下全部文件的名称

作者：iamlaosong

目录里面保存有面单扫描的图像文件，文件名称为邮件号码。如今想收集这些邮件号码，由于量非常大，不可能一个一个的截取，仅仅能通过程序实现。假定，当前工作表B列里放的是存放这些图像文件的目录。以下的程序能够讲这些图像文件的邮件号码取出来：

", vbOKOnly, "iamlaosong" Cells(num, 3) = "失败" End If Next num MsgBox "提取邮件号码数量：" & row1 - 2, vbOKOnly, "iamlaosong" End Sub

本文转自mfrbuaa博客园博客，原文链接：http://www.cnblogs.com/mfrbuaa/p/5094874.html，如需转载请自行联系原作者