使用Excel自帶的VBA搜索相同的文件夾并更新文件

Sub copyFiles() Dim fd As Object Dim MyFile As Object Application.ScreenUpdating = False Set fd = Application.FileDialog(msoFileDialogFolderPicker) If fd.Show = -1 Then '** 用戶選擇了文件夾strPath = fd.SelectedItems(1) ElseMsgBox "未選擇文件夾"Exit Sub End If Set fd = Nothing Set MyFile = CreateObject("Scripting.FileSystemObject") r = Range("a1").CurrentRegion.Rows.Count If r > 1 ThenFor i = 2 To rDebug.Print Range("a2").Text & Cells(i, "b").TextMyFile.CopyFolder Range("a2").Text & Cells(i, "b").Text, strPath & "\" & Cells(i, "b").TextNext End If Set MyFile = NothingMsgBox "文件復制完成" End Sub

使用說明：文件夾的路徑是需要操作的文件夾A的文件夾根目錄路徑，然后將需要找到的文件夾名清單補充完整，文件夾清單列就是需要查找的文件夾名，然后將A路徑下的與文件清單相同的文件夾名的文件復制到文件清單

總結

以上是生活随笔為你收集整理的使用Excel自带的VBA搜索相同的文件夹并更新对应的文件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。