PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
23077 07/08/02 18:58:26 PB8.0: OLEでOpenTextによる書式設定(FieldInfo設定)について By jirorian

カテゴリ:スクリプトの記述
日付:2007年08月02日 18:58 発信者:jirorian
題名:PB8.0: OLEでOpenTextによる書式設定(FieldInfo設定)について

こんにちは。OLEについて質問いたします。
現在、EXCELのマクロで行っている処理をPBのOLEから実行しようと試みています。
VBAでは以下の通りです。

Workbooks.OpenText Filename:= _
       ThisWorkbook.Path & \"\\テスト.txt\", Origin:=932, StartRow:=1 _
       , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
       ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
       , Space:=False, Other:=False, Fieldinfo:=Array( Array(1,2),Array(2,2),Array(3,2) ) _  
       TrailingMinusNumbers:=True

これをPBからOLEで行いたいのですが

long ll_array[]
oleobject excel

excel = CREATE OLEObject
excel.ConnectToNewObject(\"Excel.Application\")
ll_array = {2,2,2} //3列目までを文字列に書式設定

excel.Application.WorkBooks.OpenText( \"c:\\テストフォルダ\\テスト.txt\", 2, 1, 1, 1, 
False, True, False, False, False, False, \"\", ll_array)

このようにしてPBから実行するとOpenTextでエラーになってしまいます。
最後の引数の書式を設定するFieldInfoの部分(ll_array)を外して実行するとうまくいきます。
配列の渡し方がいけないのでしょうか?
過去ログの013536にこれと同じ内容の質問があり、同じ対処方法で試したのですがうまくいきませんでした。
原因が分かる方がいらっしゃればご教授願います。

また、今回OLEではTrailingMinusNumbersは引数で渡していませんが仮に渡す場合、
FieldInfoからTrailingMinusNumbersまでの間の引数(TextVisualLayout等)には何を渡せばいいのでしょうか?
MicroSoftのサポートページ等には\"規定値\"としか載ってないので私には分かりませんでした。

PB 8.0.4(英語版)
Excel2002


付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS Windows 2000
DBMS Oracle Net 9
Browser (記載なし)

Server SoftWare

OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.