VBA batch import Excel data into Access database

• Requirement goal: import the data existing in the Excel table into the created Access database

Implementation method

Method 1: Scan the worksheet row by row, when storing data in the array, get the value from the cell [rs.Fields(j - 1) = Cells(i, j).Value]

Sub addDate1()Dim i As Integer, j As Integer, n As IntegerDim sql As StringDim con As New ADODB.ConnectionWith con.Provider = "microsoft.ace.oledb.12.0".ConnectionString = ThisWorkbook.Path & "\test.accdb".OpenEnd WithSet rs = con.OpenSchema(adSchemaTables)n = Range("A1").End(xlDown).RowFor i = 1 To nSet rs = New ADODB.Recordsetsql = "select * from m_check"rs.Open sql, con, adOpenKeyset, adLockOptimisticrs.AddNewFor j = 1 To rs.Fields.Countrs.Fields(j - 1) = Cells(i, j).ValueNext jrs.UpdateNext iMsgBox "success" + Str(n)rs.Closecon.Close 'Close the connectionSet con = Nothing 'Release the variableSet rs = NothingEnd Sub

Method 2: Read the data in the worksheet into the array, when storing data in the database, get the value from the array [rs.Fields(j - 1) = arr(i, j)]

Sub addDate()Dim arr, i As Integer, j As IntegerDim sql As Stringarr = Range("A2").CurrentRegionDim con As New ADODB.ConnectionDim rs As New ADODB.RecordsetWith con.Provider = "microsoft.ace.oledb.12.0".ConnectionString = ThisWorkbook.Path & "\test.accdb".OpenEnd Withsql = "select * from m_check"rs.Open sql, con, adOpenKeyset, adLockOptimisticFor i = 2 To UBound(arr)rs.AddNewFor j = 1 To rs.Fields.Countrs.Fields(j - 1) = arr(i, j)Next jrs.UpdateNext iMsgBox "success"' sql = "delete * from m_check"' con.Execute(sql)rs.Closecon.Close 'Close the connectionSet con = Nothing 'Release the variableSet rs = NothingEnd Sub

Comparison of different data volumes

Sub GetRunTime()Dim i As LongDim dteStart As DateDim strTime As String'Turn off screen refresh'Application.ScreenUpdating = FalsedteStart = Timer'--------- Main body of running process-------addDate1strTime = Format((Timer - dteStart), "0.00000")MsgBox "Running process: " & strTime & "seconds"'Turn on screen refresh'Application.ScreenUpdating = TrueEnd Sub

Processing 11 pieces of data took 0.05469s

Processing 28339 pieces of data, the array method is fast

Processing 1048576 pieces of data, obviously the array will overflow.

Summary

Generally speaking, when the amount of data processed is small, no matter which method is adopted, the difference is not significant.But when the amount of data reaches tens of thousands, the array processing is obviously faster.When the amount of data reaches one million, the above two methods will cause "overflow". At this time, we should consider data segmentation, divide the million data into several parts, and process them in batches.