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 (記載なし)
Copyright © 2013 Power Future Co., Ltd.