|
▼初心者 さん:
>こもとさん、返信ありがとうございます。
>まさに、こんな感じなんですが、
>
>これをブックを
> application.getopenfilename(filefilter:="サンプルファイル,*.xls",title:="ファイルを選択",multiselect:=true
>
>という感じ?で選択させて、それらの選択したブックを
>1つの集計というブックにシートを映してきたいと考えています。
したのような感じで変数で選択したファイルを受けて
順次処理します。
転記の内容はわからないのでコメントアウトしてます。
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
|
|