Opentextの「コンパイルエラー：Function または変数が必要です。」を解決するには？

解決

北村 2005-09-20 20:02:02 No: 125494

よろしくお願いします。
VB6です。下記コードをコンパイルすると、Opentextが青色反転され
「コンパイルエラー：Function または変数が必要です。」
というメッセージがでます。
コーディングに問題があるとは思うのですが、よろしければご教示をお願いいたします。

Dim xlApp   As Excel.Application
Dim xlBook  As Excel.Workbook
Dim strTXTfnm as string          'txtファイルの絶対パス

Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
Set xlBook = xlApp.Workbooks.OpenText(FileName:=strTXTfnm, _ DataType:=xlDelimited, Comma:=True)

いな 2005-09-20 20:30:04 No: 125495

プロジェクト→参照設定でMicrosoft Excel *.* ObjectLibraryに
チェックは入れてある？

北村 2005-09-20 20:34:41 No: 125496

はい。10.0にチェックが入っています。

特攻隊長まるるう 2005-09-20 20:43:24 No: 125497

OpenText は Sub で戻り値無いよ。
ヘルプで使用方法を確認して下さい。

北村 2005-09-20 21:26:22 No: 125498

Set xlBook = xlApp.Workbooks.Open(FileName:=strTXTpath, Format:=2)

で代用しました。
解決です。ありがとうございました。