全てのシートをコピーする方法
スポンサーリンク
VBA でワークブック内にある全てのワークシートをコピーするには、 Copy メソッドを使用します。
全てのシートをコピーして、同じブックの右端に追加する
VBA(実行可能なサンプルコード) | |
1 | ThisWorkbook.Sheets().Copy After:=Sheets(Sheets.Count) |
全てのシートをコピーして、同じブックの左端に追加する
VBA(実行可能なサンプルコード) | |
1 | ThisWorkbook.Sheets().Copy Before:=Sheets(1) |
全てのシートをコピーして、新しいブックに貼り付ける
VBA(実行可能なサンプルコード) | |
1 2 3 4 5 6 | 'マクロを実行しているファイルのシートを全てコピーして新しいブックに貼り付ける。 '新しいブックは Copy メソッド実行直後であれば ActiveWorkbook でアクセスできる。 ThisWorkbook.Sheets.Copy '新しいブックを保存する。 ActiveWorkbook.SaveAs ("c:\temp\Test.xlsx") |
スポンサーリンク