Excel VBA質問箱 IV

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

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


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

33057 / 76738

←次へ　｜　前へ→


	【48907】AutoOpenﾌｧｲﾙをひとつにまとめる方法

hatuko - 07/5/15(火) 17:20 -


	引用なし

	パスワード

初心者でお恥ずかしいのですが、数個の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
......

　　

0 hits

▼

【48907】AutoOpenﾌｧｲﾙをひとつにまとめる方法 hatuko 07/5/15(火) 17:20

≪