Obtener ruta (directorio) del escritorio

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

va de maravilla, muchas gracias!!!

"KL" wrote:

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

Carpeta
Descripción
Dirección

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinámicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validación
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA



Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"yeryap" escribió en el mensaje
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

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 ;)