For i = 1 To 10 If i > 10 Then MsgBox "Bookがそんなにありません" Exit For End If Workbooks.Open op.Range("C2").Offset(i - 1, 0).Value With ActiveWorkbook Range("A1:AU3100").Copy Workbooks("CAB-Grapf.xls").Worksheets("sheet" & i).Range("A1:AU3100").PasteSpecial Paste:=xlPasteAll
このコードでやりたい事はセルC2からC11までのパスから指定のブックを開きそれをコピーして、
CAB-Grapf.xlsの各シートに貼り付けたいのですが、
今現在のコードだと、Worksheets("sheet" & i)となっているのでシート名が"sheet1"とか"sheet2"でしか読み込めません。
シート名は変更予定なのでこのままだといちいちマクロを修正しなければなりません。
なので指定のセルに例えばSampleと記入しておき、その値をひろってシートをよみこみたいです。
つまり、
Workbooks("CAB-Grapf.xls").Worksheets("sheet" & i).Range("A1:AU3100").PasteSpecial Paste:=xlPasteAll
の"sheet"の部分をセルからひっぱった値にしたいという事です。
いろいろ試してはみたのですが、ことごとく玉砕されてしまったのでどなたか教えていただきたいです。
回答2件
良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。
下記のような回答は推奨されていません。
このような回答には修正を依頼しましょう。
2017/01/25 08:04