＞自己レスです。（内容を整理しました）
＞以下の処理の説明です。
＞　ａ）BLOBカラムにあるExcelとOLE接続する
＞　ｂ）ExcelをローカルにTXT形式で出力する
＞　ｃ）出力したTXTをデータウィンドウにインポートする
＞
＞ll_rtncd = ole_obj.ConnectToObject(\"\",\"Excel.Application\")
＞if ll_rtncd <> 0 then
＞   MessageBox(\"ＯＬＥ\",\"ＯＬＥオブジェクト接続に失敗しました。\")
＞   destroy ole_obj
＞   return
＞end if 
＞
＞ole_obj.activesheet.saveas(ls_filepass,-4158)
＞ole_obj.workbooks.application.quit() 
＞destroy ole_obj
＞
＞If dw_import.ImportFile(ls_filepass) < 1 then
＞Return
＞End If
＞
＞この一連の処理をExcel2003環境で実行すると\"ＯＬＥオブジェクト接続に失敗しました。\"
＞が表示されます。別の質問を参考にSaveAsの定数を -4158→42 に変更したところ ImportFile
＞関数でエラー(戻り値:-7)が発生して、次に定数を 20 に変更したところ -4158 と同じエラー
＞が発生しました。
＞定数 20 に関してはUnicodeが原因と思いますが、定数 -4158、20 を指定したときに発生する
＞エラーの原因は何でしょうか？また回避策を教えて下さい。
＞
＞

自己レスです。
SaveAsの処理を変更することで解決しました。
＞ole_obj.activesheet.saveas(ls_filepass,-4158)
ole_obj.activeworkbook.saveas(ls_filepass,-4158)