|
>Sub test()
>Dim wb As Workbook, 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))
>
> MsgBox i & "番目のファイルは" & wb.Name & "です"
> 'ここに転記のコード
>
> wb.Close False
> Set wb = Nothing
>Next i
>End Sub
こもとさん、ありがとうございます。
転記の内容ですが、
1つの集計するブックに、これらの選択したファイルを集計する
マクロがわからなくて・・・
例)ブック名 集計
開いた(選択した)ブック名 1.あああ 2.いいい 3.ううう
実行したいマクロ:1.から3.をブック(集計)にまとめる
(各ブックにあるシートをブック(集計)にもとめる
というものなのですが・・・
|
|