|
おはようございます。現象の確認ができました。
A.xls
コントロールツールボックスのコマンドボタンをシートに貼り付けている
ということで良いですか?
だとすると、対象シートのモジュールに
Private Sub CommandButton1_Click()
workbooks.open "c:\b.xls"
End Sub
Private Sub CommandButton2_Click()
On Error Resume Next
With Workbooks("B.XLS")
.b_loop = False
End With
Application.OnTime Now(), Me.[_CodeName] & ".b_close"
On Error GoTo 0
End Sub
Sub b_close()
Workbooks("B.XLS").Close False
MsgBox "TESTING"
End Sub
B.xlsのThisworkbookのモジュールに
Option Explicit
Public b_loop As Boolean
Private Sub Workbook_Open()
b_loop = True
Do While b_loop
DoEvents
Loop
End Sub
これで試してみてください。
滅多にこんなコードは書きませんが、要注意ですねえ!!
|
|