如何在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”是要移动的文件类型；您可以将它们更改为其他类型或根据需要添加其他文件类型。

步骤 2

然后单击F5运行模块。然后选择源文件夹并单击“确定”。

F5 > 源文件夹 > 确定。

步骤 3

然后选择目标文件夹并单击“确定”。

目标文件夹 > 确定。

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

结论

在本教程中，我们使用了一个简单的示例来演示如何在Excel中将特定文件从一个文件夹移动到另一个文件夹，以突出显示特定数据集。

更新于: 2023年8月25日

1K+ 次浏览

开启你的 职业生涯

通过完成课程获得认证

开始学习
广告