如何在Excel中将特定文件从一个文件夹移动到另一个文件夹？

Sub MoveFiles() Updateby Extendoffice Dim xFd As FileDialog Dim xTFile As String Dim xExtArr As Variant Dim xExt As Variant Dim xSPath As String Dim xDPath As String Dim xSFile As String Dim xCount As Long Set xFd = Application.FileDialog(msoFileDialogFolderPicker) xFd.Title = "Please select the original folder:" If xFd.Show = -1 Then xSPath = xFd.SelectedItems(1) Else Exit Sub End If If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\" xFd.Title = "Please select the destination folder:" If xFd.Show = -1 Then xDPath = xFd.SelectedItems(1) Else Exit Sub End If If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\" xExtArr = Array("*.xlsx*", "*.jpg") For Each xExt In xExtArr xTFile = Dir(xSPath & xExt) Do While xTFile <> "" xSFile = xSPath & xTFile FileCopy xSFile, xDPath & xTFile Kill xSFile xTFile = Dir xCount = xCount + 1 Loop Next MsgBox "Total number of moved files is: " & xCount, vbInformation, "Kutools for Excel" End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！