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

解決

北村 2005-09-20 11:02:02 No: 125494 IP: [192.*.*.*]

よろしくお願いします。
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 11:30:04 No: 125495 IP: [192.*.*.*]

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

編集削除

北村 2005-09-20 11:34:41 No: 125496 IP: [192.*.*.*]

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

編集削除

特攻隊長まるるう 2005-09-20 11:43:24 No: 125497 IP: [192.*.*.*]

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

編集削除

北村 2005-09-20 12:26:22 No: 125498 IP: [192.*.*.*]

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

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

編集削除