Excel VBA質問箱 IV

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

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


72427 / 76732 ←次へ | 前へ→

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

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


<処理説明>
1.ブック1を起動
2.ブック1のフォーム起動
3.ブック1のフォーム内のボタン1押下により、ブック1のフォームをHide
  直後にブック2を起動
  (ブック2はOpen命令によりブック1と同一アプリ内での起動としています)
4.ブック2の起動によりブック1を閉じる
  同時にブック2のフォームをShow
  (ブック1クローズ処理とブック2のフォームShowは順序は問いません)

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


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

 *ブック1(Thisworkbook)コード*
Sub workbook_open()
 UserFrom1.Show(処理1・2)
End Sub

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

 *ブック2(Thisworkbook)コード*
Sub workbook_open()
  'ブック1のクローズ(処理4)
 Workbooks(ブック1ファイル名.xls).Activate
 ActiveWorkbook.close
  'ブック2のフォーム起動(処理4)
 UserFrom1.Show
End Sub
0 hits

【8789】Excel97複数ブックにおけるブッククローズ処理に関して 困り人 03/11/3(月) 16:03 質問
【8791】Re:Excel97複数ブックにおけるブッククロー... ぴかる 03/11/3(月) 17:08 回答
【8793】Re:Excel97複数ブックにおけるブッククロ... 困り人 03/11/3(月) 17:32 質問
【8796】Re:Excel97複数ブックにおけるブッククロー... 困り人 03/11/3(月) 17:56 質問
【8798】Re:Excel97複数ブックにおけるブッククロー... 困り人 03/11/3(月) 18:21 質問
【8799】Re:ダメでしたかぁ〜。 困り人 03/11/3(月) 18:34 お礼
【8800】[8798]が、かぶって・・・。 ぴかる 03/11/3(月) 18:53 発言
【8802】Re:[8798]が、かぶって・・・。 困り人 03/11/3(月) 19:07 質問
【8804】えっ、そうなん?。 ぴかる 03/11/3(月) 19:12 回答
【8805】Re:えっ、そうなん?。 困り人 03/11/3(月) 19:22 お礼
【8794】Re:Excel97複数ブックにおけるブッククロー... Hirofumi 03/11/3(月) 17:33 回答
【8798】Re:Excel97複数ブックにおけるブッククロー... 困り人 03/11/3(月) 18:21 質問
【8806】Re:Excel97複数ブックにおけるブッククロ... 困り人 03/11/3(月) 19:31 質問
【8807】Re:Excel97複数ブックにおけるブッククロ... Hirofumi 03/11/3(月) 20:44 発言
【8808】Re:Excel97複数ブックにおけるブッククロ... 困り人 03/11/3(月) 20:56 質問
【8811】Re:Excel97複数ブックにおけるブッククロー... りん 03/11/3(月) 23:05 発言
【8814】Re:Excel97複数ブックにおけるブッククロ... 困り人 03/11/3(月) 23:42 お礼

72427 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free