Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30242 / 76732

←次へ　｜　前へ→


	【51757】シート名を変数に代入する？

まり - 07/10/3(水) 18:59 -


	引用なし

	パスワード

こんばんは。
VBA初心者です。

色々検索してみたのですが、答えが見つかりません。
どなたか教えていただけますでしょうか。

エクセルのブックを2つ開いていて、シートをBOOK-AからBOOK-Bにコピー&ペーストしたいと思います。
コマンドはBOOK-Bに書いています。
BOOK-Aには数枚のシートがあり、選択したシートをコピーしたいのです。

で、思考錯誤しながら下記のように書いてみたのですが、
"Worksheets("mysname").Select"のところで
「実行時エラー9　インデックスが有効範囲にありません」となります。
シート名は数字のみです。

どなたかご教示いただけませんでしょうか。

Dim mysname As String
　　mysname = InputBox("シート名を入力してください")
　　
　　If mysname = "" Then
　　MsgBox "キャンセルされました"
　　Exit Sub
　 Else
　　MsgBox "データを取り込みます"
　 End If
　　

ActiveWindow.ActivateNext
　　
　 Worksheets("mysname").Select
　 Cells.Select
　　Selection.Copy
　　ActiveWindow.ActivateNext
　　Worksheets("sheet1").Select
　　Range("A1").Select
　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False

2 hits

▼

【51757】シート名を変数に代入する？ まり 07/10/3(水) 18:59

≪