|
▼初心者 さん:
>1つの集計するブックに、これらの選択したファイルを集計する
>マクロがわからなくて・・・
ほとんどマクロ記録で出来るはずですが
こんな感じの事でしょうか?
Sub test()
Dim wb As Workbook, ws As Worksheet, i As Long, myFile
myFile = Application.GetOpenFilename _
(filefilter:="サンプルファイル,*.xls", _
Title:="ファイルを選択", MultiSelect:=True)
If TypeName(myFile) = "Boolean" Then Exit Sub
For i = 1 To UBound(myFile)
Set wb = Workbooks.Open(myFile(i))
For Each ws In wb.Worksheets
With ThisWorkbook
ws.Copy After:=.Sheets(.Sheets.Count)
End With
Next ws
wb.Close False
Set wb = Nothing
Next i
End Sub
|
|