エクセル マクロでシートをデスクトップに保存する

質問

ファイルにある複数のシートの中から、Ｂシートだけを抜き出してデスクトップに保存するマクロがわかりません。
他のサイトで以下のＶＢＡがあったので参考にしたのですが
Ｃドライブのマイドキュメントに保存されます。
デスクトップに直接保存したいです。
Sub シートコピーR()
' 1.保存したいシートをシートコピーする。
Sheets("Sheet1").Copy

' 2.アクティブシートのセル全体に対して、コピー＆値のみ貼り付けをする。
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
'ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

' 3.アクティブブックを保存する。
ActiveWorkbook.SaveAs FileName:="Ｃ:\ファイル名.xls"
End Sub

教えてください。

回答No.2

chayamati

ActiveWorkbook.SaveAs FileName:="Ｃ:\ファイル名.xls"
－－－－－－－－－－－－－－－－－－－－－－－－－－
Cドライブに保存されます
ルート（場所のフォルダ）を順にたどって最後に「Desktop\ファイル名」とします

ルートはデスクトップのファイルを右クリックからプロパティーで
場所欄をコピペして下さい

お礼

回答ありがとうございます。

回答No.1

shintaro-2

１回デスクトップに保存する操作をキーボードマクロで保存して、そのコードをご確認ください。

お礼

ありがとうございます。