こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBA★ブックがactivateできません

簡単なVBAで躓いています。
新しいエクセルファイルを追加して、アクティブにしたいです。

エクセルファイルの名をフォームで入力させ、mybookという変数にしました。

----------------
Private Sub CommandButton1_Click()
mybook = UserForm1.TextBox1.Text
Unload Me
End Sub
----------------

そして、mybookという名前のファイルを追加しました。
ここまではうまく行きます。

ただ、その後の Workbooks(mybook).Activate で
「実行時エラー”9” インデックスが有効範囲にありません」
が表示されてしまいます。

----------------
Public mybook As String
----------------
Sub ファイル名変数()

UserForm1.Show
MsgBox "ファイル名は" & mybook & "です"

Workbooks.Add
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & mybook

Workbooks(mybook).Activate

End Sub
----------------

一連の処理の中でactivateしたいな、という箇所が何回か出てくるのですが、
Workbooks(mybook).Activate でエラーが出てしまい困っています。

識者の方、何卒アドバイスをお願いいたします。

投稿日時 - 2011-11-16 14:09:02

QNo.7136521

困ってます

質問者が選んだベストアンサー

EXCEL2007以降ですか?

ワークブック名に、拡張子を入れないとだめみたいです。

ご参考まで。

投稿日時 - 2011-11-16 14:28:53

お礼

どひゃーっ
拡張子入れたらエラー消えました。
本当にありがとうございました。

投稿日時 - 2011-11-16 16:20:48

ANo.1

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問