Abrir archvios
    
		    Hola no he podido resolver mi duda sobre como abrir un archivo de excel desde un boton creado en un formulario de VB. El ejercicio es este. He diseñado una hoja de trabajo en excel el archivo se llama datos.xls, ahora, tengo en VB un formulario con un boton donde al oprimirlo la idea es que me abra el archivo datos.xls, no he podido lograr esto, lo maximo que he podido hacer es que al oprimir el boton me abra el programa de excel pero con una hoja nueva. Como hago para poder abrir Excel y de una vez el archivo Datos.xls?
Mi gracias
Pedro Miguel
    Mi gracias
Pedro Miguel
		    Buenas.
Pon en un modulo:
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
Public Const SW_SHOWNORMAL = 1
Luego en el boton:
Private Sub Boton1_Click()
VariableVacia = ShellExecute(me.hwnd, vbNullString, "unidadrutadatos.xls", vbnullstring, "C:", SW_SHOWNORMAL)
End Sub
De esta forma abres el archivo con su programa predeterminado
    Pon en un modulo:
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
Public Const SW_SHOWNORMAL = 1
Luego en el boton:
Private Sub Boton1_Click()
VariableVacia = ShellExecute(me.hwnd, vbNullString, "unidadrutadatos.xls", vbnullstring, "C:", SW_SHOWNORMAL)
End Sub
De esta forma abres el archivo con su programa predeterminado
