|
>ActiveSheet.Cells.Select
>Selection.Copy
これでは、要求4は無理だと思います。
シートそのものをコピーして貼り付けないといけないと思います。
詳しい仕様がよくわからないので
何ともいえませんが、
アクティブなシートを新規ブックにコピーして
名前をつけて保存するだけなら
こんな感じでできると思います。
後は、エラー対策(すでにブックがあるかとか?)をしたら
いかがでしょう?
意味が違っていたらごめんなさい。
Sub Test1()
Dim SaveSheetName As String
Dim Filename As String
SaveSheetName = "保存するするシート"
Filename = "保存するファイル名(デフォルト)"
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
With ActiveWorkbook
.Sheets(1).Name = SaveSheetName
.SaveAs Filename:=ThisWorkbook.Path & "\" & Filename
.Close True
End With
Application.ScreenUpdating = True
End Sub
|
|