マクロ 実行時エラーに付いて

質問

マクロ初心者です宜しくお願い致します。

ＯＳ＝Ｗｉｎ　Ｖｉｓｔａ　　　　Ｏｆｆｉｃｅ２００７　で下記のようなマクロを組みました。

Sub 保存()
'保存 Macro
' Keyboard Shortcut: Ctrl+h
'
Dim Uname As String
　 Uname = CreateObject("WScript.Network").UserName
ActiveWorkbook.SaveAs Filename:="C:\Users\" & Uname & "\Desktop\" & Format (Date, "yyyy") & "年度.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Ｏｆｆｉｃｅ２００７　の元（マクロ作成ＰＣ）で動作確認すると　ＯＫ　でした　が　
ＯＳ＝ＸＰ　Ｓｐ３　Ｏｆｆｉｃｅ２００３　の　別のＰＣで動かすと

”実行時エラー’１００４’：
’ＳａｖｅＡｓ’メソッドは失敗しました’Ｗｏｒkboo’オブジェクト”

と表示され下記の部分が黄色で反転されます。

ActiveWorkbook.SaveAs Filename:="C:\Users\" & Uname & "\Desktop\" & Format (Date, "yyyy") & "年度.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

表記方法の問題なのか、変数？　対応できなく困っています。

対処方法をお教え頂ければと思います、宜しくお願い致します。

回答No.2

nicotinism · ベストアンサー

createobject("wscript.shell").specialfolders("desktop")
で取得してください。
C:\Users\nicotinism\Desktop （例 Win7）
C:\Documents and Settings\nicotinism\デスクトップ (例 WinXP)
各々上記のように値が返ります。

お礼

nicotinismさん　有難う御座います。

御指導の方法を試してみます、少し時間がかかると思いますが結果は報告させて頂きます。
有難う御座いました。

回答No.1

hogya

フォルダからするとマクロ作成ＰＣはWindios7ではありませんか？
XPには"C:\Users\～"のフォルダは存在しないので別のフォルダを指定してみてください。

お礼

hogya さん　nicotinism　さん　有難う御座いました。

おかげ様で、ＸＰ・Ｖｉｓｔａ　ともに動かす事が出来ました。
今回御指導頂きました事項を元に少しづつ発展させることにチャレンジしたいと思います。

補足

hogvaさん　早速の御指導有難う御座います。

御指導によりますと、ＸＰ（２００３）　と　Ｖｉｓｔａ（２００７）では表記が違うと理解して宜しいのでしょうか？　出来れば両方で動くようにしたいのですが？可能でしょうか。

表現方法が適切でなくわかり難いかと思いますが宜しくお願い致します。