Don't stop me now de Queen con Mario

The Muppets: Bohemian Rhapsody

Excel 2007 y VB .NET 2008

Bueno vamos a empezar con una nueva etapa del blog la programación :) ahora si lo voy a actualizar mas seguido (espero)



Como lo dice el titulo de la entrada vamos a ver como podemos abrir una instancia de Excel y leer los datos de este

Primero importamos la librería correspondiente

Imports Microsoft.Office.Interop


Como mencione antes es para 2007 en caso de versiones anteriores se importa otra libreria

Ademas de importar la libreria tenemos que agregar la referencia al ensamblado de excel en Project>>Add Reference>> pestaña "COM" y luego seleccionamos "Microsoft Excel" en este caso es la 12.0


Despues en pocas palabras creamos la referencia a la aplicacion, luego al libro,luego a las hojas y despues a la hoja de trabajo

Dim xlsapp As Excel.Application
Dim libxls As Excel.Workbook
Dim hoja1xls As Excel.Worksheet
Dim hojasxls As Excel.Sheets


Ya teniendo la hoja de trabajo usarla celda por celda

Cuando finalicemos de leerlo cerramos el libro y la aplicación

Bueno ahora si a ver el codigo completo



Try

Dim xlsapp As Excel.Application
Dim libxls As Excel.Workbook
Dim hoja1xls As Excel.Worksheet
Dim hojasxls As Excel.Sheets
xlsapp = New Excel.Application()
'xlsapp.Visible = True /// para ver o no el libro
libxls = xlsapp.Workbooks.Open("arhivo_excel.xlsx")
hojasxls = libxls.Sheets
hoja1xls = hojasxls("hoja1") /// nombre como viene la hoja
Dim Texto As String = hoja1xls.Range("a1").Text
libxls.Close(False)
xlsapp.Quit()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try



Nos vemos

Kings of Power 4 Billion%

Kings of Power 4 Billion % from Zarradeth on Vimeo.