VISUAL BASIC 6: Leer de un archivo Excel 2003

Primero añadimos la referencia al Microsoft Excel 11.0 Object Library en Proyecto -> Referencias.

A continuación con el siguiente código abrimos la ruta a un fichero excel y leemos o escribimos en él con:

‘Variable de tipo Aplicación de Excel
Dim objExcel As Excel.Application

‘Una variable de tipo Libro de Excel
Dim xLibro As Excel.Workbook
Dim Col As Integer, Fila As Integer

‘creamos un nuevo objeto excel
Set objExcel = New Excel.Application

‘Usamos el método open para abrir el archivo que está en el directorio del programa llamado archivo.xls
Set xLibro = objExcel.Workbooks.Open(Path)

‘Hacemos referencia a la Hoja

Dim i As Integer

Fila = 5
Col = 3
MsgBox xLibro.Sheets(“Hoja1”).Cells(Fila, Col)

xLibro.Close (True)

Advertisements
VISUAL BASIC 6: Leer de un archivo Excel 2003

MS SQL 2005: importar datos de una hoja excel a una bbdd

Microsoft explica en esta página varios métodos para hacerlo. El que yo he seguido y me ha funcionado a la primera ha sido el siguiente:

Utilizar un servidor vinculado

Después de haber vinculado un servidor ya podemos hacer una consulta del tipo:

SELECT * FROM nombreAsignado…[nombreHoja$]

MS SQL 2005: importar datos de una hoja excel a una bbdd