Excel VBA質問箱 IV

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

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


24276 / 76732 ←次へ | 前へ→

【57806】Re:訂正
発言  りん E-MAIL  - 08/9/13(土) 18:16 -

引用なし
パスワード
   こんにちわ。

>>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>>  Dim bk As Object
>>  If MsgBox("002を開きますか?", vbYesNo) = vbYes Then
>>   
>>    On Error Resume Next
>>    With CreateObject("excel.application")
>>     .Visible = True
>>     .Workbooks.Open ThisWorkbook.Path & "\002.xls"
>>     End With
>>    Application.Quit
>>  End If
>>End Sub
>>
>>などとして、別インスタンスのExcelに002.Xlsを開く方法
>
>この使い方、
>CreateObject("excel.application")
>いいですね。

これを踏まえて、BeforeCloseではなくてAuto_Closeで試してみました。

Sub Auto_Close()
  '標準モジュールに書きます。
  '上書きしない
  ThisWorkbook.Saved = True
  '開くかどうかの分岐
  If MsgBox("002を開きますか?", vbYesNo) = vbYes Then
   With CreateObject("excel.application")
     .Visible = True
     .Workbooks.Open ThisWorkbook.Path & "\002.xls"
   End With
  End If
End Sub

これでうまくいきましたが、XL2003とXL2007が同居している私のPCでは、001.xlsをXL2003で開いていても、実行したら002.xlsがXL2007で開くというちょっと微妙な結果になりましたw
1 hits

【57629】BeforeCloseイベントについて いかぽっぽ 08/9/6(土) 0:08 質問
【57638】Re:BeforeCloseイベントについて りん 08/9/6(土) 12:42 発言
【57640】Re:BeforeCloseイベントについて こたつねこ 08/9/6(土) 13:12 発言
【57641】Re:BeforeCloseイベントについて りん 08/9/6(土) 13:59 発言
【57642】Re:BeforeCloseイベントについて こたつねこ 08/9/6(土) 14:54 発言
【57645】Re:BeforeCloseイベントについて kobasan 08/9/6(土) 19:29 発言
【57646】Re:BeforeCloseイベントについて りん 08/9/6(土) 19:52 発言
【57648】Re:BeforeCloseイベントについて こたつねこ 08/9/6(土) 19:56 発言
【57649】Re:BeforeCloseイベントについて りん 08/9/6(土) 20:14 発言
【57650】Re:BeforeCloseイベントについて kobasan 08/9/6(土) 22:50 発言
【57651】Re:BeforeCloseイベントについて kobasan 08/9/6(土) 23:56 発言
【57653】Re:BeforeCloseイベントについて kobasan 08/9/7(日) 9:59 発言
【57654】Re:BeforeCloseイベントについて kobasan 08/9/7(日) 12:43 回答
【57666】Re:BeforeCloseイベントについて ichinose 08/9/8(月) 8:48 発言
【57668】Re:訂正 ichinose 08/9/8(月) 10:38 発言
【57800】Re:訂正 kobasan 08/9/13(土) 16:46 発言
【57806】Re:訂正 りん 08/9/13(土) 18:16 発言

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