|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub 按钮1_Click()
- Application.ScreenUpdating = False
- Set fso = CreateObject("Scripting.FilesyStemObject")
- Ipath = ThisWorkbook.Path & "\数据源"
- Set ff = fso.getfolder(Ipath) 'ThisWorkbook.Path是当前代码文件所在路径,路径名可以根据需求修改
- a = 2
- For Each f In ff.Files
- If f.Name Like "*200*445*A*" Then
- Cells(a, 1) = f.Name '相对路径名
- Cells(a, 2) = f '全路径名
- Cells(a, 3) = f.DateLastModified '文件创建时间
- Cells(a, 4) = Format(Cells(a, 3), "yyyy-mm-dd") '统一时间格式
- destinationfolder = ThisWorkbook.Path & "\200-445" '注意此处不同于movefile,后面的“\”可以省略,只要确实存在该文件夹
- fso.copyfile f, destinationfolder
- Set fso = Nothing
- a = a + 1
- End If
- Next f
- Application.ScreenUpdating = True
- End Sub
复制代码 |
|