RE:Abrir un documento Office
Instrucciones
Crea un form en con tres botones comando llamalos cmdabrirexcels,cmdcargarexcels y cmdsalir, y un cuadro txtNombre,asi como seis cuadros de texto para intercambiar información de excels a vb y de vb a excels.
adiciona un modulo e inserta este codigo en el
Modulo1
Option Explicit
Public MiXL As Excel.Application 'ejecuta excels
Public xlHoja As Object 'se selecciona la hoja matriz
'Este codigo permite cargar excels si no se esta ejecutando y además comprueba si esta cargado
Sub AbrirExcels()
On Error Resume Next 'ignorar errores
Set MiXL = GetObject(, "Excel.application") 'busca una copia de excels en ejecución
If Err.Number <> 0 Then ExcelNoSeEjecutaba = True 'sino se esta ejecutando excels
Set MiXL = CreateObject("Excel.Application") 'Ejecuta excels
Err.Clear 'borrar el objeto Err si se produce un error
On Error GoTo 0 'reanudar el procesamiento normal de errores
Form1.Show
End Sub
-----------------------------------------------------------------------------------------------
El codigo del form se proporciona a continuación, este codigo tiene la ventaja de seleccionar el archivo de excels que deseamos abrir, no limita a abrir un solo archivo
Dim NombreArchivoExcels As String
Private Sub Abrir_Archivo_Excels()
'Haciendo click en abrir se despliega el cuadro de díalogo comun
CommonDialog1.Filter = "Archivos de Excels (*.xls)|*.xls" 'Filtra el tipo de archivo que se desea abrir
CommonDialog1.ShowOpen %2