PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
22717 | 06/07/25 12:06:01 | RE(7):PB6.5: WinXP+Office2003環境でのExcel2003連携 By Motoi |
22716 | 06/07/24 15:04:59 | RE(6):PB6.5: WinXP+Office2003環境でのExcel2003連携 By Motoi |
22715 | 06/07/24 11:53:12 | RE(5):PB6.5: WinXP+Office2003環境でのExcel2003連携 By Motoi |
22713 | 06/07/24 11:33:51 | RE(4):PB6.5: WinXP+Office2003環境でのExcel2003連携 By Potato |
22703 | 06/07/21 18:13:58 | RE(3):PB6.5: WinXP+Office2003環境でのExcel2003連携 By Motoi |
22702 | 06/07/21 17:23:00 | RE(2):PB6.5: WinXP+Office2003環境でのExcel2003連携 By Motoi |
22700 | 06/07/21 16:35:58 | RE(1):PB6.5: WinXP+Office2003環境でのExcel2003連携 By ぴい |
22699 | 06/07/21 16:27:58 | PB6.5: WinXP+Office2003環境でのExcel2003連携 By Motoi |
カテゴリ:スクリプトの記述
日付:2006年07月24日 15:04 発信者:Motoi
題名:RE(6):PB6.5: WinXP+Office2003環境でのExcel2003連携
自己レスです。(内容を整理しました)
以下の処理の説明です。
a)BLOBカラムにあるExcelとOLE接続する
b)ExcelをローカルにTXT形式で出力する
c)出力したTXTをデータウィンドウにインポートする
ll_rtncd = ole_obj.ConnectToObject(\"\",\"Excel.Application\")
if ll_rtncd <> 0 then
MessageBox(\"OLE\",\"OLEオブジェクト接続に失敗しました。\")
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環境で実行すると\"OLEオブジェクト接続に失敗しました。\"
が表示されます。別の質問を参考にSaveAsの定数を -4158→42 に変更したところ ImportFile
関数でエラー(戻り値:-7)が発生して、次に定数を 20 に変更したところ -4158 と同じエラー
が発生しました。
定数 20 に関してはUnicodeが原因と思いますが、定数 -4158、20 を指定したときに発生する
エラーの原因は何でしょうか?また回避策を教えて下さい。
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows XP
DBMS Oracle SQL*Net 2.3
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.