ふくちゃんさん、こんにちは。

＞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!)
＞
＞
＞