Tenho o código abaixo onde insiro registros da planilha excel para a tabela access
Ele rodava normalmente no excel 2003 com 65000 linhas
Agora tenho quase 1000000 de registros e tentei utilizar o excel 2007
Alguém saberia me dizer onde devo alterar para que o código rode com mais de 65000 linhas.
segue código
Sub Button14_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim r As Long
Dim LastRow As Variant
strCon = "Provider=Microsoft.ACE.OLEDB.12.0; " & _
"Data Source=C:\HLEE\Planeja.mdb"
Set cn = CreateObject("ADODB.Connection")
cn.Open strCon
LastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
scn = "[Excel 12.0;HDR=YES;DATABASE=" & ActiveWorkbook.FullName & "]"
strSQL = "INSERT INTO Tabela10 " _
& "SELECT * FROM " & scn & ".[Sheet1$A1:F" & LastRow & "]"
cn.Execute strSQL
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
Ele rodava normalmente no excel 2003 com 65000 linhas
Agora tenho quase 1000000 de registros e tentei utilizar o excel 2007
Alguém saberia me dizer onde devo alterar para que o código rode com mais de 65000 linhas.
segue código
Sub Button14_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim r As Long
Dim LastRow As Variant
strCon = "Provider=Microsoft.ACE.OLEDB.12.0; " & _
"Data Source=C:\HLEE\Planeja.mdb"
Set cn = CreateObject("ADODB.Connection")
cn.Open strCon
LastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
scn = "[Excel 12.0;HDR=YES;DATABASE=" & ActiveWorkbook.FullName & "]"
strSQL = "INSERT INTO Tabela10 " _
& "SELECT * FROM " & scn & ".[Sheet1$A1:F" & LastRow & "]"
cn.Execute strSQL
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub