Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

42629 / 76735

←次へ　｜　前へ→


	【39169】Re:シートを連続して結合するには

つか

- 06/6/19(月) 15:03 -


	引用なし

	パスワード

▼Blue さん：
>▼つかさん：
>>マクロのあるシートではなく。開いたファイルに追加していく予定です。
>開いたファイルとは？
>100あるExcelファイル全部でしょうか？
>それともある特定のファイルでしょうか？
100あるファイルです。先ほどBlueさんに教えられたように
マクロの記録で行いました。これを100回繰り返して作成するのは
あまりスマートではないと思ったので・・・

Workbooks.Open Filename:="C:\＃＃\＃＃N002_0604＃＃＃.xls"
　　Workbooks.Open Filename:="C:\＃＃\＃＃N003_0604＃＃.xls"
　　Windows.Arrange ArrangeStyle:=xlTiled
　　Sheets("N003").Select
　　Sheets("N003").Copy After:=Workbooks("＃＃N002_0604＃＃＃.xls").Sheets(1)
　　Windows("＃＃N003_0604＃＃.xls").Activate
　　ActiveWindow.Close
　　Workbooks.Open Filename:="C:\＃＃\＃＃N004_0604＃＃.xls"
　　Sheets("N004").Select
　　Sheets("N004").Copy After:=Workbooks("＃＃N002_0604＃＃＃.xls").Sheets(2)
　　Windows("＃＃N004_0604＃＃.xls").Activate
　　ActiveWindow.Close
　　Workbooks.Open Filename:="C:\＃＃\＃＃N005_0604＃＃（＃＃＃）.xls"
　　Sheets("N005").Select
　　Sheets("N005").Copy After:=Workbooks("＃＃N002_0604＃＃＃.xls").Sheets(3)
　　Windows("＃＃N005_0604＃＃（＃＃＃）.xls").Activate
　　ActiveWindow.Close
　　Workbooks.Open Filename:="C:\＃＃\＃＃N006_0604＃＃.xls"
　　Sheets("N006").Select
　　Sheets("N006").Copy After:=Workbooks("＃＃N002_0604＃＃＃.xls").Sheets(4)
　　Windows("＃＃N006_0604＃＃.xls").Activate
　　ActiveWindow.Close
　　Workbooks.Open Filename:="C:\＃＃\＃＃N007_0604＃＃.xls"
　　Sheets("N007").Select
　　Sheets("N007").Copy After:=Workbooks("＃＃N002_0604＃＃＃.xls").Sheets(5)
　　Windows("＃＃N007_0604＃＃.xls").Activate
　　ActiveWindow.Close
　　Workbooks.Open Filename:="C:\＃＃\＃＃N010_0604＃＃＃.xls"
　　Sheets("N010").Select
　　Sheets("N010").Copy After:=Workbooks("＃＃002_0604＃＃＃.xls").Sheets(6)
　　Windows("＃＃N010_0604＃＃＃.xls").Activate
　　ActiveWindow.Close
　　Workbooks.Open Filename:="C:\＃＃\＃＃N011_0604＃＃.xls"
　　Sheets("N011").Select
　　Sheets("N011").Copy Before:=Workbooks("＃＃N002_0604＃＃＃.xls").Sheets(1)
　　Windows("＃＃N011_0604＃＃.xls").Activate
　　ActiveWindow.Close

　　　　・
　　　　・
　　　　・
　以下繰り返しです

0 hits

▼

【39147】シートを連続して結合するには つか 06/6/19(月) 11:08