|
>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
こもとさん、何度もすいません。
参考書も見ながらやったんですが、マクロを実行すると
実行時エラー1004がでてしまうのです。
他にもシートが5つあり、それらがあるからでしょうか。
|
|