GetSaveAsFilenameでマイドキュメン

質問

GetSaveAsFilenameでマイドキュメントを選択する方法は？

Sub test()

Dim xlAPP As Application
Dim vntFileName As Variant ' ファイル名受取り用

Set xlAPP = Application

xlAPP.StatusBar = "出力するファイル名を指定して下さい。"
vntFileName = xlAPP.GetSaveAsFilename(InitialFileName:="SAMPLE.txt", _
FileFilter:="テキストファイル (*.txt;*.dat),*.txt;*.dat", _
Title:="テキストファイル出力処理")
Set xlAPP = Nothing
End Sub

このダイアログで、マイドキュメントではなく、デスクトップから選択する方法
もしくは、
左側の保存先一覧から、デスクトップをクリックする方法をご教授ください。

XPを使用していますが、マイドキュメントしか選べません。

回答No.1

keithin · ベストアンサー

とりあえずお手軽に。

sub macro1()
　dim myPath as string
　dim myFile as string
　dim WSH as object

　set wsh = createobject("WScript.Shell")
　mypath = wsh.specialfolders("Desktop")
　set wsh = nothing

　chdrive left(mypath, 1)
　chdir mypath
　myfile = application.getsaveasfilename()
　if myfile = "False" then exit sub
　msgbox myfile
end sub

お礼

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