作者：绿色风
分类：
时间：2022-08-18
浏览：74
楼主
xmyjk |
Q:如何运用VBA制作文件批量查找以及提取的工具?
A:- Option Explicit
- Sub test()
- Dim fd, opth As String, spth As String, arr, i&, j&, brr(), myFile As String
- MsgBox "选择源所处位置文件夹"
- With Application.FileDialog(msoFileDialogFolderPicker)
- If .Show = -1 Then opth = .SelectedItems(1) & "\"
- End With
- arr = Range([a1], [a65536].End(3)).Value
- For i = 1 To UBound(arr)
- myFile = Dir(opth & "*" & arr(i, 1) & "*.*")
- Do While myFile <> ""
- j = j + 1
- ReDim Preserve brr(1 To j)
- brr(j) = myFile
- myFile = Dir
- Loop
- Next
- MsgBox "选择目的地所处位置文件夹"
- With Application.FileDialog(msoFileDialogFolderPicker)
- If .Show = -1 Then spth = .SelectedItems(1) & "\"
- End With
- For i = 1 To UBound(brr)
- If Len(Dir(spth & brr(i))) > 0 Then Kill spth & brr(i)
- FileCopy opth & brr(i), spth & brr(i)
- Next
- MsgBox "笑一笑！"
- End Sub
 VBA依照列表文件提取.rar
|
2楼
JOYARK1958 |
謝謝提供學習下載中 |
3楼
shunlibiye |
运行时错误‘13’：类型不匹配 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一