Excel VBA質問箱 IV

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

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


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

72427 / 76732

←次へ　｜　前へ→


	【8789】Excel97複数ブックにおけるブッククローズ処理に関して

困り人 - 03/11/3(月) 16:03 -


	引用なし

	パスワード

以下のような処理をExcel97で行いたいのですが
いろいろ試してみたのですが
どうしてもうまくいかず困っております。
何かアドバイス頂ければと思います。
（ちなみにEcel2000,2002では正常に動く処理なんです）
どうか宜しくお願いします。

＜処理説明＞
１．ブック１を起動
２．ブック１のフォーム起動
３．ブック１のフォーム内のボタン１押下により、ブック１のフォームをHide
　　直後にブック２を起動
　　（ブック２はOpen命令によりブック１と同一アプリ内での起動としています）
４．ブック２の起動によりブック１を閉じる
　　同時にブック２のフォームをShow
　　（ブック１クローズ処理とブック２のフォームShowは順序は問いません）

＜現在の事象＞
上記処理説明４のブック２起動によりブック１を閉じる処理の際
ブック１が閉じられた瞬間処理が中断してしまいます。
処理中断によりブック２のフォームshowは実行されていない状況です。

以下にコードを記載致します。

　＊ブック１(Thisworkbook)コード＊
Sub workbook_open()
　UserFrom1.Show（処理１・２）
End Sub

　＊ブック１(UserForm1)コード＊
Private Sub CommandBotton1_Click()
　　'ブック１のフォームクローズ（処理３）
　UserFrom1.Hide
　　'ブック２の起動（処理３）
　Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & _
　"ブック２ファイル名.xls"
End Sub

　＊ブック２(Thisworkbook)コード＊
Sub workbook_open()
　　'ブック１のクローズ（処理４）
　Workbooks(ブック１ファイル名.xls).Activate
　ActiveWorkbook.close
　　'ブック２のフォーム起動（処理４）
　UserFrom1.Show
End Sub

0 hits

▼

【8789】Excel97複数ブックにおけるブッククローズ処理に関して 困り人 03/11/3(月) 16:03

≪