複数のファイルを扱うVBA-

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 

---