オブジェクト変数の取得について

質問

以下のようにOpenTextでファイルを開いてそれをオブジェクト変数に取得したいのですが
「Functionまたは変数が必要です」というエラーになります。
どなたかご教示ねがえませんでしょうか？
よろしくお願いいたします。

Set WorkBookObject =Workbooks.OpenText FileName:=strPath & strTxt, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=aryCell

回答No.4

i536

先ほど　Excel2000でおっしゃる事柄を確認しました、
確かにエラーがでました（汗）。

OpenTextメソッドは、Workbookオブジェクトを返さないみたいです。
したがって、SETは不要で、下記のような記述で正常に動作しました。

Workbooks.OpenText FileName:=strPath & strTxt, _
　StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
　ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
　Comma:=True, Space:=False, Other:=False, FieldInfo:=aryCell

オブジェクト変数WorkBookObjectに開いたWorkBookを代入したければ、
上記文を実行後にはWorkbooksコレクションにWorkbookが１つ追加されていますので
下記方法で代入するといいです。ただし、括弧内の数字２は環境で変わります。

Set WorkBookObject =Workbooks(2)

回答No.3

osamuy

あ、No.2が正しそう。
No.1は取り下げます。

回答No.2

i536

OpenTextメソッドの後に引数を囲む括弧が必要だとおもいますよ。
下記のようにです。

Set WorkBookObject =Workbooks.OpenText ( FileName:=strPath & strTxt, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=aryCell )

補足

すみません。補足です
アドバイスくださったように記述しているのですが、エラーになってしまうのです。
あ～～どうすれば・・・

回答No.1

osamuy

Workbooksってコレクションだから、ブック名を指定するか、ActiveWorkBookを参照する必要があるのでは。

あてずっぽうですが。