ふくちゃんさん、こんにちは。
お手数おかけいたしましたが、無事 解決できました。
ありがとうございました。

おっしゃる通りに EXCELシートに値を入れる前に ole_1.Activate(Offsite!)
を入れたら落ちなくなりました｡ 

なにぶん未熟者なので的外れな発言もありますが 大目にみてやってください。
みなさん、これからもよろしくお願いします。

＞
＞＞hikaruさん、こんにちは。
＞＞どんなエラーで落ちますか？
＞
＞Systemerror とだけ出るんです。 
＞
＞＞単純に考えるとエクセルが開いてないのにactivesheetと指定している所だと思うのですが？？？
＞＞エクセルのシートに値を入れる前にole_1.Activate(Offsite!)を入れると良いような気がするんですが。
＞＞入れ終わったらole_1.object.application.quit()で閉じてしまえば良いような・・
＞
＞説明不足でした。すみません。
＞開いた後のEXCELシートは 普通のEXCELと同様に 編集作業ができるようにしたいのです。
＞ole_1.object.application.quit() だと 開いて値が入ったら すぐに閉じてしまいますよね？
＞
＞一度目のクリックだと ふくちゃんさんのおっしゃる方法でもエラーは出ず動作するのですが、
＞2度目のクリック（一度目のクリックで開いたEXCELシートを手で閉じてから）だと SystemError で
＞落ちてしまいます。
＞
＞＞「ような」ばかりであいまいですいません・・。
＞
＞いえ、こちらこそ説明不足ですみません。
＞
＞＞
＞＞＞下記のスクリプトで 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!)
＞＞
＞＞
＞＞
＞
＞