excel vba使用列表框移动多个文件答案

【问题标题】：excel vba move multiple files using listboxexcel vba使用列表框移动多个文件
【发布时间】：2020-07-08 16:18:56
【问题描述】：

我创建了一个包含三个列表框的表单。第一个加载选定文件夹中的文件。然后我在第一个列表中选择几个文件并将它们移动到第二个列表框中。现在需要将第二个列表框中的文件复制到第三个列表框中列出的文件夹中。设置源路径和目标路径的所有问题都已完成。我需要将第二个列表中的选定文件复制到第三个列表框中的选定目标的代码行。

示例代码：

FileToCopy = FileSourceDirectory & lstSelectedFiles.Value
DestinationFolderName = UserRepositoryDirectory & lstRepositoryFolders
CopiedFile = DestinationFolderName & "\" & lstSelectedFiles.Value
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
FileCopy FileToCopy, CopiedFile Unload frmCopyFileToRepository

【问题讨论】：

到目前为止您尝试过什么？什么不适合你？更准确地说，您想要回答的问题是什么？
您可能会在创建FileSystemObject 后使用MoveFile。 msdn.microsoft.com/en-us/library/office/gg251462.aspx
移动单个文件不是问题。
我有代码，可以一次复制一个文件。 FileToCopy = FileSourceDirectory & lstSelectedFiles.Value DestinationFolderName = UserRepositoryDirectory & lstRepositoryFolders CopiedFile = DestinationFolderName & "\" & lstSelectedFiles.Value Set fso = VBA.CreateObject("Scripting.FileSystemObject") FileCopy FileToCopy, CopiedFile Unload frmCopyFileToRepository
我需要能够选择一些文件（从多选列表框中）并同时移动所有文件。我已经编码从完整列表（第一个列表框）中选择文件并将它们移动到第二个列表框。我需要代码将第二个列表框中的所有文件复制到目标文件夹

标签： excel vba listbox

【解决方案1】：

Dim i As Integer
 For i = 0 To lstSelectedFiles.ListCount - 1

  FileToCopy = FileSourceDirectory & lstSelectedFiles.List(i)

      CopiedFile = DestinationFolderName & "\" & lstSelectedFiles.List(i)

  Set fso = VBA.CreateObject("Scripting.FileSystemObject")

FileCopy FileToCopy, CopiedFile

Next i

【讨论】：