Potatoさん、こんにちは。

＞Motoiさん、こんにちは。
＞
＞こちらでは Excel のバージョンをつけてもつけなくても OK でした。
＞PowerBuilder 6.5.1/Windows XP SP1/Excel 2003 SP2
＞
＞
＞ll_rtncd = ole_obj.ConnectToObject(\"\",\"Excel.Application.11\") //Excel 2003用
＞
＞// ll_rtncd = ole_obj.ConnectToObject(\"\",\"Excel.Application\") //Excel
＞...
＞ole_obj.application.workbooks(1).worksheets(1).cells(14,1).value= string(now())
＞...
＞ole_obj.DisconnectObject()
＞
＞
＞ちなみに Excel 2003 は Excel.Application.9 ではなく、
＞Excel.Application.11 のようです。
＞

こちらでも上記で問題無いことを確認しました。
ただ、その後の処理でtxtに変換・出力を行ない、さらにそれをInportFileにてデータウィンドウ
に取り込みたいのですが、エラーが発生します。

ll_rtncd = ole_obj.ConnectToObject(\"\",\"Excel.Application\")
if ll_rtncd  <> 0 then
MessageBox(\"ＯＬＥ\",\"ＯＬＥオブジェクト接続に失敗しました。\")
destroy ole_obj
gi_err = 1
return
end if

ole_obj.activesheet.saveas(ls_filepass,-4185)
ole_obj.workbooks.application.quit() 
destroy ole_obj

If dw_import.ImportFile(ls_filepass) < 1  then
Return
End If

SaveAsに関してはExcel2003についての別の質問があったので、saveasの定数の指定を変更(-4185→42)
したのですが、InportFileにて戻り値が\"7\"でエラーとなりました。
定数を\"-4185\"で指定するとExcelからエラーが帰ってきます。
これらの現象から元々SaveAsでエラーが発生していたと思われます。
# -4185:xlCurrentPlatformText, 42:xlUnicodeText

何かご存知でしたら教えて下さい。