| |
初心者でお恥ずかしいのですが、数個のAutoOpen設定をしたﾌｧｲﾙを作りました。
そしてそれを全てひとつのﾌｧｲﾙにまとめたいのです。
下記のように続けたのですが、旧データのまま移行されます。
個々にAutoOpenﾌｧｲﾙを実行するとデータは更新されます。
何処に問題があるのかわからず、困っております。
御教示お願いいたします。m(__)m
Workbooks.Open Filename:=ThisWorkbook.Path + "\@工事-仕上帳票.xls"
ファイル名 = "工事概要"
シート番号 = 1
Workbooks.Open(Filename:=ThisWorkbook.Path + "\@" + ファイル名 + ".xls", Editable:=True).RunAutoMacros Which:=xlAutoOpen
Sheets(1).Copy Before:=Workbooks("@工事-仕上帳票.xls").Sheets(シート番号)
Workbooks("@" + ファイル名 + ".xls").Close SaveChanges:=True
ファイル名 = "2次集計"
シート番号 = 2
Workbooks.Open(Filename:=ThisWorkbook.Path + "\@" + ファイル名 + ".xls", Editable:=True).RunAutoMacros Which:=xlAutoOpen
Sheets(1).Copy Before:=Workbooks("@工事-仕上帳票.xls").Sheets(シート番号)
Workbooks("@" + ファイル名 + ".xls").Close SaveChanges:=True
ファイル名 = "2次集計階別"
シート番号 = 3
Workbooks.Open(Filename:=ThisWorkbook.Path + "\@" + ファイル名 + ".xls", Editable:=True).RunAutoMacros Which:=xlAutoOpen
Sheets(1).Copy Before:=Workbooks("@工事-仕上帳票.xls").Sheets(シート番号)
Workbooks("@" + ファイル名 + ".xls").Close SaveChanges:=True
......
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 07/5/16(水) 5:27 -
