|
▼さなえ さん:
>初歩的な質問で申し訳ありませんが教えて下さい。
初歩でしょうか?
こんな感じは如何です。
コントロールツールボックスのコマンドボタンをひとつ作り、このBook名をAとします。
BookAのシート1をバックアップという名前・・・適時決めていただければ
良いです。(名前を変えれば、コードもその部分を修正のことです)
このシートのA5に新しく作成したいブック名を入力・・・例えば「B」
とセルに明示してください。ブック名は好きな名前を指定できます。
シート1に以下のコードを貼り付けて下さい。
後は、コマンドボタンを押すとBのBookができます。
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim myfile As String
With Worksheets("Sheet1")
myfile = .Range("A5").Value
End With
Workbooks.Add
With ActiveWorkbook
.Worksheets("Sheet1").Name = "バックアップ"
.Worksheets("Sheet2").Delete
.Worksheets("Sheet3").Delete
ThisWorkbook.Worksheets("Sheet1"). _
Cells.Copy .Worksheets("バックアップ").Cells
On Error Resume Next
.SaveAs Filename:=ThisWorkbook.Path & "\" & myfile & ".xls"
On Error GoTo 0
.Close
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
上記マクロは、新たに作成されたブックBにはコードが残らないのが特徴かな?
っと思います。
標準モジュールでする場合のシンプルなのは、次のように成るでしょう。
Sub Macro1()
Cells.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\D.xls"
End Sub
|
|