| |
こんばんは。
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
