| |
▼Kikakusama777 さん：
こんにちは
>別のブックのシートにコピーし、別保存させたいのですが
>あるフォルダ内に平成○○分、平成○○分という風にバックアップ的に
マクロ記録を少し手直ししました。
参考になればいいのですが
ごみレスなら無視して下さい。
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Add
With ActiveWorkbook
.Worksheets("Sheet1").Name = "バックアップ"
.Worksheets("Sheet2").Delete
.Worksheets("Sheet3").Delete
ThisWorkbook.Worksheets("Sheet1"). _
Cells.Copy .Worksheets("バックアップ").Cells
.SaveAs Filename:="あるフォルダ" & "ファイル名"
.Close
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
