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 質問
【51765】Re:シート名を変数に代入する? ponpon 07/10/3(水) 23:44 発言
【51794】Re:シート名を変数に代入する? まり 07/10/4(木) 20:04 お礼
【51796】Re:シート名を変数に代入する? ponpon 07/10/4(木) 22:55 発言

30242 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free