キャンセルボタンを有効に

質問

フォームにボタンが２つあり１つ目を押すとエクセルを起動させてデータを送り込み、２つ目のボタンでその処理を途中で中断させるといったものを作りたいのですが普通に作ると１つ目のボタンで実行された処理が終わるまで２つ目のボタンが有効になりませんよね！！
これってどんな具合にすればいいんでしょうか？？？

回答No.1

noname#22222

１、広域変数 StopNow を用意する。
２、データ送出は行単位で行う。
３、DoEventsで、１行毎に制御を他のプロセスに開放する。
４、キャンセルボタンでStopNowを真にする。
５、データ送出は、その時点で終了。

Do
　　・・・・
　　データ送出
・・・・
　　If StopNow Then
　　　　Exit Do
　　End If
　　DoEvents
Loop

Sub ・・・・
　　StopNow =True
End Sub