Este fórum está sendo desativado

[DougOliveira7]

Pessoal de-me uma força

o comando abaixo só importa 13584 Linhas para o access.

Sub Teste()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String
Dim BancoDEDados As String

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

BancoDEDados = "C:\BancoMeuTeste.mdb"

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & _
Application.PathSeparator & ThisWorkbook.Name & ";Extended Properties=Excel 8.0"
cn.Open

SQL = "SELECT * INTO [TESTE] IN '" & BancoDEDados & "' FROM [Sheet1$]"

'rs.Open SQL, cn
cn.Execute SQL

cn.Close

End Sub


Alguem pode me ajudar como tiro esse limite, a planilha que eu estava usando é uma no formato de Binario com uma planilha com no Sheet1 e 800 mil dados no formato texto.

Qualquer duvida me coloco a disposição.

[babdallas]

Tente usar isso na ConnectionString e veja se ajuda

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & _
Application.PathSeparator & ThisWorkbook.Name & ";Extended Properties="Excel 12.0;HDR=YES"