Workbooks.openについて

質問

超初心者です。
Workbooks.Openを使って他の任意のxslファイルを開きたいのですが、

Sub Test_FileOpen()

Workbooks.Open Filename = "c:\MyDocuments\data.xls"

End Sub

のように書いても

「実行時エラー'1004':
'False.xls'が見つかりません。ファイル名およびファイルの保存場所が正しいかどうか確認してください」

と言うアラートが出て上手くいきません。
ファイルのパスは何度も確認したので間違いはないです。
ちなみに同じフォルダに置いて、

Sub Test_FileOpen()

Workbooks.Open Filename = ThisWorkbook.Path & "\data.xls"

End Sub

とやっても同じアラートが出ます。
どこがおかしいのでしょうか？
原因が推測できる方、どうかご教授願います。

回答No.1

baka · ベストアンサー

これでよいと思います。

Workbooks.Open Filename:="c:\My Documents\data.xls"
又は
Workbooks.Open "c:\My Documents\data.xls"

＊補足＊

Filename = "c:\MyDocuments\data.xls" では
式と見なされてしまいます。
名前付き引数を指定する場合は、引数名と等号の間にコロンが
入ります (引数名:= 値)。詳しくは参考URL をご覧ください。

'My Documents' フォルダも既定では My と Documents の間に
半角スペースが入っています。

なお、モジュールの先頭に Option Explicit ステートメントを
付け、変数の明示的な宣言を強制しておくと、エラーの出方が
変わります (Filename を宣言していない限り)。
Filename は定義されていない変数と見なされるので、より
確認し易くなると思います。
[ツール] - [オプション] で変数の宣言を強制しておくと
よいでしょう。

参考URL：

http://www.microsoft.com/JAPAN/developer/library/VBCon98/vbconpassingargumentstoprocedures.htm

お礼

bakaさん、ご回答有難うございます。
どうやら「：」が抜けていたのが原因のようです。
ちゃんと実行できるようになりました。
助かりました。