Donald está escribiendo una macro en la que necesita hacer referencia al escritorio de un usuario. Sin embargo, la ruta al escritorio varía necesariamente de un sistema a otro y de un usuario a otro. Se pregunta qué codificación puede usar para determinar la ruta al escritorio independientemente del sistema.

Hay varias formas de encontrar la ruta al escritorio en VBA. Una forma es llamar al host de secuencias de comandos de Windows, de esta manera:

Function GetDesktop() As String     Dim oWSHShell As Object

Set oWSHShell = CreateObject("WScript.Shell")

GetDesktop = oWSHShell.SpecialFolders("Desktop")

Set oWSHShell = Nothing End Function

Tenga en cuenta que esta es una macro definida por el usuario que puede utilizar desde la hoja de trabajo o desde otra macro. El uso de la hoja de trabajo sería el siguiente:

=GetDesktop()

Otra forma de determinar la ruta al escritorio es usar la siguiente línea en su código:

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

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (8233) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Finding_the_Path_to_the_Desktop [Encontrar la ruta al escritorio].