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

有效的文件管理对于数据组织和工作流优化至关重要。利用Excel的功能，您可以自动化文件管理操作，如在文件夹之间传输特定文件，从而节省时间和精力。

在本课程中，我们将逐步介绍如何实现这个目标。我们将使用一些VBA（Visual Basic for Applications）编程以及Excel的内置功能。如果您对VBA不熟悉，不用担心；我们将用简单的解释和示例来引导您完成这个过程。

将特定文件从一个文件夹移动到另一个文件夹

这里，我们首先将创建一个VBA模块，然后运行它来完成任务。因此，让我们看看一个简单的过程，学习如何在Excel中将特定文件从一个文件夹移动到另一个文件夹。

步骤1

考虑任何一个Excel工作簿。首先，右键单击工作表名称，选择“查看代码”以打开VBA应用程序。

右键单击 > 查看代码。

然后点击“插入”并选择“模块”，然后将下面的代码复制到文本框中。

插入 > 模块 > 复制。

代码

Sub MoveFiles()
   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, "Move Specific Files"
End Sub

在上面的代码中，”.xlsx” 和 “*.jpg” 是你想要移动的文件类型；你可以根据需要将它们更改为其他文件类型或添加其他文件类型。

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