他のＰＣでも保存できるパス

質問

エクセルシート１～５のうち　５シート（シート名：一覧）だけを保存したいので　マクロを作りました。

Sub 一覧保存()
'
' 一覧保存 Macro
'

'
Sheets("一覧").Select
Sheets("一覧").Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\●●●\Desktop\データー\一覧.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

これを使って自分のＰＣでは保存出来るのですが　他のＰＣに持って行くと●●●（ＰＣ名）部分が違うので保存が出来ません。
これを他のＰＣでも使えるように書き換えたいのです。
マクロボタンでどのＰＣにも対応できるマクロを書きたいのですが。。

あと保存名を同時に自動でカウント？（日付や連番など）できるようにするにはどうすればいいでしょうか。
よろしくお願いします。

回答No.1

aleister

Dim MyWSH As Object
Dim myDeskTopPath As String

Set MyWSH = CreateObject("WScript.Shell")
myDeskTopPath = MyWSH.SpecialFolders("Desktop")

これでデスクトップのパスを取得できませんか？

お礼

早速の回答ありがとうございます。
設置場所が悪いのかどうしてもパスがとれませんでした。