Exportar de excel a sql

[mc_quake]

A una base de datos SQL Server

Dim cnn As ADODB.Connection
Dim lNumRegAfect As Long
Dim strSQL As String

' Abrimos una conexión con el libro de trabajo
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\Mis documentos\Libro1.xls"
.Properties("Extended Properties") = "Excel 8.0"
.Open
End With

' Importamos utilizando una cadena ODBC
strSQL = "SELECT * INTO [ODBC;Driver={SQL Server};" & _
"Server=Nombre_Servidor_SQL;Database=pubs;" & _
"UID=Nombre_Usuario;PWD=Contraseña].TablaExcel " & _
"FROM [Rango1]"

' Ejecutamos la consulta
cnn.Execute strSQL, lNumRegAfect, adExecuteNoRecords

MsgBox "Número de registros afectados: " & lNumRegAfect

' Cerramos la conexión
cnn.Close