VBA-处理多个文件

我正在进行一个项目，我希望：浏览文件并select要使用的项目，从创build副本的目标位置复制和打开这些工作簿，然后创build一个新的工作簿（Excel文件）和复制信息对此，之前打开的每个工作簿都将在另一个表单中。 我已经完成了浏览文件，但是我发现很难再下一步。 这是我迄今为止的示例代码。

Public Sub CommandButton1_Click() Dim i As Integer Dim fd As Office.FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = True .Title = "Please select the file." .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then For i = 1 To fd.SelectedItems.Count ListBox1.AddItem fd.SelectedItems(i) Next End If End With End Sub 

Answer 1

这只是迭代工作簿的问题。

---

  Dim v as variant If .Show = True Then For Each v In fd.SelectedItems 'check if this is a valid workbook Set WB = Workbooks.Open(v) 'Your code here WB.Close savechanges:=False Next v End If 

---