|
こんにちは。かみちゃん です。
>Sub Sample()
> Sheets("作業シート").Copy
>End Sub
>このコードだけで新規ブックにシートがコピーされるのはわかりますか?
全体のコードを見直すとすれば、以下だけでできるような感じがします。
保存ファイル名の正当性チェックはしていません。
Sub Sample()
Dim strXlsPath As String
With ActiveSheet
'デスクトップパスの取得
strXlsPath = CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\"
'保存ファイルフルパスの生成
strXlsPath = strXlsPath & Range("F14").Value & .Range("W14").Value & ".xls"
End With
'シートを新規ブックにコピー
Sheets("作業シート").Copy
'新規ブックを保存
ActiveWorkbook.SaveAs Filename:=strXlsPath, _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
CreateBackup:=False
ActiveWorkbook.Close
MsgBox "Excel を作成しました。", vbInformation, "Excel の作成"
End Sub
|
|