|
▼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
・
・
・
以下繰り返しです
|
|