人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ExcelのVBAで質問致します。
以下4ファイルに対し、以下の記述をしています。
「0.xls」を実行したとき、
Application.Run "'1.xls'!上書き保存して閉じる"
この行までは実行されるのですが、それで終了してしまいます。
最後まで実行されるには、どのように記述を直せばよいでしょうか?
「0.xls」のみの補正だけで対応できればグッドです。
どうぞよろしくお願い致します。



■「0.xls」に、

Sub 実行()

'ファイルがある場所のパスに変更
パス = "C:\Documents and Settings\TM\デスクトップ"

Workbooks.Open パス & "\1.xls"
Application.Run "'1.xls'!上書き保存して閉じる"

Workbooks.Open パス & "\2.xls"
Application.Run "'2.xls'!上書き保存して閉じる"

Workbooks.Open パス & "\3.xls"
Application.Run "'3.xls'!上書き保存して閉じる"

End Sub


■「1.xls」に

Sub 上書き保存して閉じる()

Workbooks("1.xls").Close SaveChanges:=True

End Sub


■「2.xls」に

Sub 上書き保存して閉じる()

Workbooks("2.xls").Close SaveChanges:=True

End Sub


■「3.xls」に

Sub 上書き保存して閉じる()

Workbooks("3.xls").Close SaveChanges:=True

End Sub









http://pub.idisk-just.com/fview/qTXX5emK7xt1jJFhX0tr7xTDNHG0PK0wlI9CJ5y6ZvlxsL4pN07lrBi1dvq9ZggZ?
↑サンプルはこちら

●質問者: yoshifuku
●カテゴリ:コンピュータ インターネット
✍キーワード:application Excel open sub TM
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● HALSPECIAL
●60ポイント

"'1.xls'!上書き保存して閉じる"

が実行され、呼び出し元の

0.xls

に戻る前に、1.xls が閉じられるためです。


呼び出し元で閉じるようにしましょう。

Workbooks.Open パス & "\1.xls"
Application.Run "'1.xls'!上書き保存して閉じる"
'Application.DisplayAlerts = False '閉じる際に確認ダイアログが表示される場合はこの1行を入れます。
Workbooks("1.xls").Close SaveChanges:=True
◎質問者からの返答

Workbooks("1.xls").Close SaveChanges:=True

この1行を加えてみたのですが、残念ながら状況は改善されませんでした。

ちょっといろいろやってみます。ありがとう。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ