以下の VBA コードを使用して、同じワークブック内の 2 つの Excel シートを、1 つのシートから取得される他の名前でコピーしました。
入力と出力の 2 つのシートがあります。これらのシートは、入力シートのセル C15 にある名前でコピーされます。
Name = ThisWorkbook.Sheets("Input").Cells(15,3).Value
ThisWorkbook.Activate
Sheets("Input").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Name & " " & "Input"
Sheets("Output").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Name & " " & "Output"
このコードは、入力シートをコピーするまで正常に機能しています。ただし、出力シートの名前も変更されており、シート名の出力がC15のセル値に置き換えられているため、最後の2行目でエラーが発生します。誰でもこれで私を助けることができます...