Question

我正在开展一个我想要的项目：浏览文件并选择要使用的文件，从创建副本的目标位置复制和打开这些工作簿，然后创建新的工作簿（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

VBA-处理多个文件

1 个答案: