Insert a SQL Server desde una tabla Excel

Actualizar una tabla de SQL Server no lo he hecho nunca desde Excel, pero tablas de Access sí que lo hago a menudo. Uso DAO porque, a pesar de ser una API anterior a ADO, estoy convencido de que trabaja más rápidamente con Access.

Un posible ejemplo:

Sub ActualizarTablaAccess()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = OpenDatabase("C:\bd1.mdb")
Set rs = db.OpenRecordset("Tabla1")

With rs
.AddNew
!campo1 = Worksheets("Hoja1").Range("A1")
!campo2 = Worksheets("Hoja1").Range("B1")
.Update
End With

db.Close
Set rs = Nothing
Set db = Nothing
End Sub


En este caso se actualiza la tabla Tabla1 de la base de datos C:\bd1.mdb con el contenido de las celdas A1 y B1 de Hoja1.

Para que funcione el código es necesario establecer una referencia a la librería de DAO (normalmente, Microsoft DAO 3.6 Object Library.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Adriano D'Ambra" escribió en el mensaje news:

¿Alguien me puede tirar unas pistas del código necesario para hacer un
Insert en una tabla de SQL Server o Access desde Excel con los valores de
una tabla en una Hoja?
Intenté con la ayuda utilizando DAO o DAO pero no pude.

Saludos.