Come ottenere il percorso del desktop con una macro in Excel

Dario sta scrivendo una macro in cui deve fare riferimento al desktop di un utente. Tuttavia, il percorso verso il desktop varia necessariamente da sistema a sistema e da utente a utente. Si chiede quale codice può utilizzare per determinare il percorso del desktop indipendentemente dal sistema.

Esistono diversi modi per trovare il percorso del desktop in VBA. Un modo è chiamare l’host di scripting di Windows, in questo modo:

 

Function OttieniDesktop() As String
    Dim oWSHShell As Object

    Set oWSHShell = CreateObject("WScript.Shell")
    OttieniDesktop = oWSHShell.SpecialFolders("Desktop")
    Set oWSHShell = Nothing
End Function

 

 

Tieni presente che questa è una macro definita dall’utente (UDF) che puoi utilizzare dal foglio di lavoro o da un’altra macro. L’utilizzo nel foglio di lavoro sarebbe il seguente:

=OttieniDesktop()

 

Un altro modo per determinare il percorso del desktop è utilizzare la seguente riga nel codice:

 

sPath = Environ("USERPROFILE") & "\Desktop"

 

 

 

Tags: , , , , ,

Ti è stato utile?