Obtener ruta (directorio) del escritorio

KL escribió el 25/09/2006 14:45 :

Algo asi, tal vez:

Sub test()
Dim WSHShell As Object
Dim RutaEscritorio As String
Dim Archivo As String

Archivo = "Libro1.xls"
Set WSHShell = CreateObject("WScript.Shell")
RutaEscritorio = WSHShell.SpecialFolders("Desktop") &
""
Archivo = RutaEscritorio & Archivo

If Dir(Archivo) <> "" Then Workbooks.Open (Archivo) _
Else MsgBox "Archivo no encontrado"

Set WSHShell = Nothing
End Sub

Saludos,
KL


"yeryap" wrote in message
news:

Quiero abrir mediante macro un fichero que se encuentra en el escritorio pero
no se como obtener la ruta, ya que dependiendo del usuario esta cambia.
Otra cosa, si este no existiese como puedo hacer para que me avise (por
ejemplo un msgbox)?
muchas racias

Lo use y anda bien. Se puede de alguna forma determinar en que carpeta se bajan los downloads de Google Chrome tambien??? Tengo que abrir archivos en los directorios de descargas desde un excel. El problema es q el excel lo tengo que usar desde muchas PC y cada PC tiene un diferente directorio de descarga para Chrome. Todas las PC usan Chrome al menos ;)