Abrir Acceso Directo de un Libro de Excel

20/01/2010 - 13:30 por Guli | Informe spam
Hola a todos!!!
Tengo el siguiente código por el cual me permite abrir cualquier archivo
(sea acceso directo o no) con cualquier extensión. El tema es que cuando
quiero abrir un acceso directo de un libro de excel (*.xls) no hace nada y se
me cuelga excel.
Espero puedan responder!!
Detallo el código utilizado:

Option Explicit

'=' API declaration
'=Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub CommandButton1_Click()
Dim hwnd As Long
Dim res As Long
res = ShellExecute(hwnd, "Open", "C:\"(ruta del archivo), "", "", 1)
End Sub

Gracias de antemano!!
Saludos,

Guli
 

Leer las respuestas

#1 Héctor Miguel
20/01/2010 - 17:42 | Informe spam
hola, !

Tengo el siguiente codigo por el cual me permite abrir cualquier archivo (sea acceso directo o no) con cualquier extension.
El tema es que cuando quiero abrir un acceso directo de un libro de excel (*.xls) no hace nada y se me cuelga excel.
Espero puedan responder!!
Detallo el codigo utilizado:



1) si estas usando el codigo desde excel-vba... por que no usar un simple y directo workbooks.open . (??)?)

2) podrias poner un ejemplo mas concreto en cuanto al uso de: "... "C:\"(ruta del archivo), ..." (???)

saludos,
hector.

__ el codigo expuesto __
Option Explicit
Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub CommandButton1_Click()
Dim hwnd As Long
Dim res As Long
res = ShellExecute(hwnd, "Open", "C:\"(ruta del archivo), "", "", 1)
End Sub

Preguntas similares