Insertar Por Columnas De Excel

[NEOXL]

BUENAS TARDES ...
ESTOY DESARROLLANDO UN SISTEMA EN VB6 Y PARA ESTO REQUIERO DE INSETAR TODA UNA COLUMNA DE EXCEL A UNA TABLA EN SQL, PARA LUEGO AGREGAR LAS DEMAS COLUMNAS EN SU LUGAR CORRESPONDIENTE, LO QUE SUCEDE ES QUE EN EL EXCEL NO ESTAN TODAS LAS COLUMNAS DE LA TABLA ASI QUE NO PUEDO HACER UN INSERT DIRECTO... GRACIAS POR SUS RESPUESTAS

[Avellaneda]

Puedes probar haciendo una conexión al Libro Excel:

Código:

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source= " & App.Path & "\Libro1.xls;" & _
            "Extended Properties=Excel 8.0;"
    .CursorLocation = adUseClient
    .Open
End With
cn.Execute "INSERT INTO " & MiTablaSQL & " IN '" & MiBdSQL & "' SELECT * FROM [Hoja1$]"

En la primera fila de la hoja Excel tienes que tener escrito el nombre del campo de la tabla de tu BD.