Excel2007VBAファイルの表示について

質問

●質問の主旨

開いたダイアロボックス内のファイルについてエクセルファイル（.xlsxのみ)を
対象としたいと考えています。
下記コードをどのように書き換えればよいでしょうか？
ご存知の方ご教示願います。私はＶＢＡ初心者です

●質問の補足

作成した下記のコードでは

「実行時エラー1004：GetOpenFilenameメソッドに失敗しました」

と表示されます。

参考書2冊読んで全くその通りに引用していて、なぜエラー表示に
なるのかよく分かりません。

またTarget = Application.GetOpenFilename("Excelブック,*,xlsx")を
Target = Application.GetOpenFilename()にするとダイアロボックスは
表示され、その中にあるエクセルファイルは表示されます。

●コード

Sub Sample3()

Dim Target As String
Target = Application.GetOpenFilename("Excelブック,*,xlsx")
If Target <> "False" Then
Workbooks.Open Target
Else
MsgBox "キャンセルされました"
End If

End Sub

回答No.1

noname#158634 · ベストアンサー

Target = Application.GetOpenFilename("Excelブック,*,xlsx")
タイプミス。

お礼

tk-is-pg_1206様
ご回答ありがとうございます。

とても単純なミスでした。
一人で練習しているから、
見えて当然のところも見えてませんでした…。

回答No.3

mu2011

カンマではなくピリオドです。

("Excelブック,*,xlsx")→("Excelブック,*.xlsx")

お礼

mu2011様

ご回答ありがとうございます。

.（ピリオド）にしたら、エクセルのみの
ダイアログをちゃんと開けられました

回答No.2

noname#187541

こんにちは。

Target = Application.GetOpenFilename("Excelブック,*,xlsx")
　　　　　　　　　　　　　↓
Target = Application.GetOpenFilename("Excelブック,*.xlsx")

*次は,ではなく.です。

お礼

M-SOFT様
ご回答ありがとうございます。

.（ピリオド）にしたら、エクセルのみの
ダイアログをちゃんと開けられました。