|
以下のような処理を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
|
|