Programación General > Visual Basic 6.0 e inferiores

 Importar Datos De Excel A Vb Aplicación

<< < (2/2)

F_Tanori:
Hola


mira de esta manera puedes abrir un archivo de excel creando un objeto tipo excel



--- Código: Text ---Private Sub Command1_Click()On Error GoTo xError  Dim oExcel As Object   Set oExcel = CreateObject(&#34;Excel.Application&#34;)       'oExcel.Visible = True 'Mostrar aplicacion      With oExcel        .Workbooks.Open App.Path & &#34;&#092;Libro1.xls&#34;        .Workbooks(.Workbooks.Count).Activate            MsgBox (.Range(&#34;C1&#34;))     End With       oExcel.Quit 'Cerrar Aplicacion    Set oExcel = Nothing 'Destruir Objeto xError: If Err.Number &#62; 0 Then    MsgBox (Err.Description)    Err.Clear End IfEnd Sub 

Con eso leerias el valor que esta en C1 y se mostraria en un cuadro de mensaje,ahora si esto te sirve solo tendrias que hacer una funcion para tomar las celdas que quieras leer :)

Saludos
Espero te sirva

Gracias a Angel_K_Ido por su referencia :P

Navegación

[0] Índice de Mensajes

[*] Página Anterior