Abrir ruta archivo/programa con doble click en celda.
publicado
Hola:
Como veréis, este código abre un archivo cuya ruta este en la celda seleccionada. Quisiera, si es posible, abrir dicho archivo pulsando doble click sobre la celda donde esté la ruta. ¿Es posible?
(No veo necesario adjuntar archivo, pero si es necesario me lo pedís)
Saludos.
Public 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
Function Abrir(prog_o_file As String)
ShellExecute 0, "Open", prog_o_file, "", "", 1
End Function
Sub AbrirPrograma()
Abrir ActiveCell()
End Sub[/CODE]
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola:
Como veréis, este código abre un archivo cuya ruta este en la celda seleccionada. Quisiera, si es posible, abrir dicho archivo pulsando doble click sobre la celda donde esté la ruta. ¿Es posible?
(No veo necesario adjuntar archivo, pero si es necesario me lo pedís)
Saludos.