VBAを使用してユーザーのデスクトップにアクセスする際の問題

Question

ユーザーのデスクトップにファイルを保存するためにVBAを使用しようとしています。 、私はこのサイトや他の人に同様のことを要求する人を発見したと回答は、通常

しかし、ユーザーのデスクトップ

Environment.GetFolderPath（Environment.SpecialFolder.Desktop）のファイルパスを取得するには、以下の機能を使用することをお勧めします私はこれを試して、私が得るすべては、424 Object required errorです。私は、私が興味を持ったコードのセクションだけで新しいシートを作成したので、私はこれを追加しようとしているスプレッドシートが長く複雑である。

Sub TestMacro() 

Dim Testy As String 

Testy = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) 

MsgBox Testy 

End Sub 

私はこのマクロを実行すると、私はまだ424オブジェクトに必要なエラーが出ます。私は何か間違っているのですか？それとも私のオフィス環境に閉じ込められた何かが私にこのコマンドの使用を妨げているのでしょうか？

助けてください。

Answer 1

これを試してみてくださいコード

Sub TestMacro() 
    Set oWSHShell = CreateObject("WScript.Shell") 
    MsgBox (oWSHShell.SpecialFolders("Desktop")) 
End Sub