VBAでワークブックの名前を変数にして開かせる？

最近VBAを勉強し始めたばかりです。　面白いですね…。

さて、恐らく基礎なんでしょうけれど、行き詰まっているので是非アドバイスをお願いします。
とりあえず、テキスト見ながら作ったマクロですがダメでした。
目的は対話型？で入力した名前のワークブックの名前を開かせるというものです。
Sub Macro1()
Dim mywbname As String
Dim mymsg As String, mytitle As String

myMgs = "開いて欲しいファイル名を入力してください"
mytitle = "ファイルを選択"
mywbname = Application.InputBox(Prompt:=myMgs, Title:=mytitle)

If mywbname <> "False" Then

Workbooks.Open Filename:="C:\Documents and Settings\○○○\デスクトップ\mywbname.xls"

End If

End Sub
なんてなものを作ったのですが、mywbnameを変数として受け取ってくれません。なのでそんなファイルはない…なんてことになっています。

構文自体の見直しも含めてアドバイスお願いします。
蛇足かもしれませんが、○○○のところは個人名が入ります。
C:\Documents and Settings\○○○\デスクトップ\mywbname.xls"
の箇所のmywbnameを既存のファイル名にしてみるとMgsBoXに適当な文字さえ入れれば、そのファイルは開いたので問題なのはmywbnameを入力した名前に置き換えてくれない部分だと思うのですが、よろしくおねがいします。

No.2 ベストアンサー 回答者： hige_082 回答日時： 2009/03/08 01:38

＞問題なのはmywbnameを入力した名前に置き換えてくれない部分だと思うのですが

その通りです、変数と文字列の連結方法が間違っています
＞Workbooks.Open Filename:="C:\Documents and Settings\○○○\デスクトップ\mywbname.xls"
Workbooks.Open Filename:="C:\Documents and Settings\○○○\デスクトップ\"　&　mywbname　&　".xls"
とします
したのマクロを実行してみてください

Sub test()
Dim 変数 As String
変数 = "変数を""""でくくっていない"
MsgBox "こちらは変数を""""でくくった例です"
MsgBox "こちらは" & 変数 & "例です"
End Sub

違い分かりますか


修正したものを載せておきます

Sub Macro1()
Dim mywbname As String
Dim mymsg As String, mytitle As String

mymgs = "開いて欲しいファイル名を入力してください"
mytitle = "ファイルを選択"
mywbname = Application.InputBox(Prompt:=mymgs, Title:=mytitle)

If mywbname <> "" Then

Workbooks.Open Filename:="C:\Documents and Settings\○○○\デスクトップ\" & mywbname & ".xls"

End If

あと、InputBoxの未入力の戻り値は　"False"　では無く　""　です
＞If mywbname <> "False" Then
If mywbname <> "" Then

こんな所でしょうか

この回答へのお礼

なるほど！　解説の意味もゆっくりとですが理解できます。
無事にマクロがうごきました。またこれからたびたび質問に登場すると思います、よろしくお願いします。

お礼日時：2009/03/08 07:29

No.1 回答者： kztk 回答日時： 2009/03/08 01:31

mywbnameには拡張子は入れないとすると、

Workbooks.Open Filename:="C:\Documents and Settings\○○○\デスクトップ\mywbname.xls"
↓
Workbooks.Open Filename:="C:\Documents and Settings\○○○\デスクトップ\" & mywbname & ".xls"
ですね。ただ、目的からすると
Sub Macro1()
Dim vFileName As Variant
vFileName = Application.GetOpenFilename()
If vFileName <> False Then
Workbooks.Open Filename:=vFileName
End If
End Sub
のほうがよいかと。GetOpenFilenameのパラメータを指定すれば、いろいろともう少し細かい制御もできますし。

この回答へのお礼

私はまだこの構文には残念ながら行き着いていないようです。
また勉強していく過程で思い出して使わせていただきます。
こうした構文を見るだけでも非常に勉強になります。

お礼日時：2009/03/08 07:32