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

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Cómo Abrir un fichero con * en parte del nombre

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida