Importieren von mehr als 65.535 Zeilen aus Excel nach MS Access
Ich führe den folgenden Code aus, um ein ganzes Blatt von Excel nach Access zu importieren. Das Blatt hat 77.000 Zeilen, aber Access importiert nur 65.535. Sowohl Excel als auch Access sind Version 2013.
Function importa()
Dim rs As DAO.Recordset
Dim inicio As String
Dim fim As String
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
"NOMEBASE", Application.CurrentProject.Path() + "\Abre_Envio_Novo_Layout.xlsm", True, "Menu!BJ25:BM26"
Set db = CurrentDb()
Set rs = db.OpenRecordset("NOMEBASE")
inicio = rs.Fields(2).Value
fim = rs.Fields(3).Value
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, _
"BASE", Application.CurrentProject.Path() + "\Abre_Envio_Novo_Layout.xlsm", True, "Mailing_Recebido!A:AX"
rs.Close
End Function