Abrir un fichero del escritorio con VB

12/12/2005 - 16:12 por pasarin | Informe spam
Hola, tengo una macro que abre un fichero que siempres situo en el
ecritorio, por lo usa la ruta:

Workbooks.OpenText Filename:= _
"C:\Documents and Settings\Pasarin\Escritorio\" & fichero
Todo el mundo tiene escritorio pero nadie se llama Pasarin ¿existe alguna
manera de pasar mi programa a otra persona y que le funciones utilizando un
nombre comodín en sustitución de "Pasarin"?

Gracias anticipadas
 

Leer las respuestas

#1 KL
12/12/2005 - 16:53 | Informe spam
Hola pasarin,

He adaptado el codigo publicado por Ron de Bruin:

Sub test()
Dim WSHShell As Object
Dim DesktopPath As String
Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Workbooks.OpenText Filename:= DesktopPath & "\" & fichero
Set WSHShell = Nothing
End Sub

Saludos,
KL



"pasarin" wrote in message news:%23OUGK6y$
Hola, tengo una macro que abre un fichero que siempres situo en el ecritorio, por lo usa la ruta:

Workbooks.OpenText Filename:= _
"C:\Documents and Settings\Pasarin\Escritorio\" & fichero
Todo el mundo tiene escritorio pero nadie se llama Pasarin ¿existe alguna manera de pasar mi programa a otra persona y que le
funciones utilizando un nombre comodín en sustitución de "Pasarin"?

Gracias anticipadas

Preguntas similares