|
▼hiro kun さん:
>Windows(bkname_1).Activate
>For i = 1 to Worksheets.count
>Sheets(i).Copy Before:=Workbooks(bkname).Sheets(1)
>next i
Sheets(i).Copy
と書いてしまうと、アクティブブックが対象になります。
それで、上記Copyを実行するとアクティブブックはWorkbooks(bkname)に移ってしまいます。
よって、
i=2以降は
Workbooks(bkname)のみでの処理になってしまいますので、今追加したものをコピーすることになってしまします。
ので、
With Windows(bkname_1)
For i = 1 to .Worksheets.count
.Sheets(i).Copy Before:=Workbooks(bkname).Sheets(1)
next i
End With
とか
For i = 1 to Windows(bkname_1).Worksheets.count
Windows(bkname_1).Sheets(i).Copy Before:=Workbooks(bkname).Sheets(1)
next i
End With
でどうでしょう?
|
|