hikaruさん、こんにちは。
どんなエラーで落ちますか？
単純に考えるとエクセルが開いてないのにactivesheetと指定している所だと思うのですが？？？
エクセルのシートに値を入れる前にole_1.Activate(Offsite!)を入れると良いような気がするんですが。
入れ終わったらole_1.object.application.quit()で閉じてしまえば良いような・・
「ような」ばかりであいまいですいません・・。

＞下記のスクリプトで OLEコントロールのEXCELシートにDWの内容を入れて EXCELを開いてますが、
＞一度目のクリックでは正常に動作するのに、開いたEXCELを閉じて再度 cb_excel をクリックする
＞と落ちてしまいます。

＞cb_excel の clicked イベント
＞string strA
＞
＞dw_1.AcceptText()
＞strA = dw_1.GetItemString(1,\"A\")
＞▲ole_1.object.activesheet.cells(3,4).value = strA
＞//Excel ファイルを開く
＞ole_1.activate(OffSite!)