estoy intentando Exportar información de Excel hacia SQL Server a través de VBA, pero no lo quiero hacer línea por línea porque son más de 10mil registros y tarda entre 20 a 25 minutos.
Lo que intento hacer es pasar el contenido de un archivo de un solo "golpe". El código que tengo actualmente me marca error en la línea de código cnn.Execute nSQL & nJOIN
¿Alguien que me pueda ayudar con este error, o que tenga una mejor manera de hacer esto desde VBA?
Este es el código actual que tengo:
Sub ExportarDatosDeExcel_A_SQLServer()
Dim strFileName As String, nSQL As String, nJOIN As String
Dim cnn As Object
Dim wbkOpen As Workbook
Dim objfl As Variant
Dim rngName As Range
Workbooks.Open "C:\Users\Carlos.cortinas\Desktop\PROYECTOS\XXXXXX\Pruebas V03.1.xlsm"
Set wbkOpen = ActiveWorkbook
Sheets("RESULTADO").Select
Set rngName = Range(Range("A2"), Range("A2").End(xlToLeft).End(xlDown))
strFileName = wbkOpen.FullName
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "Provider=SQLOLEDB;" & _
"Data Source=184.168.194.70;" & _
"Initial Catalog= XXXXXX;" & _
"User ID=XXXXXX;" & _
"Password=XXXXXX;"
nSQL = "INSERT INTO dbo.Consolidado"
nJOIN = " SELECT * from " & "[RESULTADO" & rngName.Address(True, True) & "]"
cnn.Execute nSQL & nJOIN
MsgBox "Carga exitosa"
wbkOpen.Close
Set wbkOpen = Nothing
End Sub
rngName
?