|
こんにちわ。
>>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
|
|