Find stien til skrivebordet i VBA

Hvis du anvender VBA kan du med denne kode få stien til skrivebordet hos den person, der har Excelfilen åben.
Jeg skulle bruge stien til skrivebordet til en opgave, hvor jeg automatisk med VBA skulle kopiere en Excelfil ud på skrivebordet. Dette fandt jeg med følgende kode. Først laver du en ny funktion, der netop er designet til at finde stien til Desktop.

Function GetDesktop() As String
    Dim oWSHShell As Object
    Set oWSHShell = CreateObject("WScript.Shell")
    GetDesktop = oWSHShell.SpecialFolders("Desktop")
    Set oWSHShell = Nothing
End Function

Herefter kan du kalde funktionen med følgende kode, der returnerer en streng med stien til brugerens desktop.

GetDesktop()

Denne kan du jo så for eksempel bruge til at kopiere en fil ud på skrivebordet.