Wie kann ich die Leistung beim Importieren großer Excel-Datensätze in MS Access mithilfe von VBA verbessern?

Importieren von Daten in MS Access mit Excel VBA: Leistungsverbesserungen

Beim Exportieren von Daten aus Excel in eine MS Access-Tabelle kann es zu Leistungseinbußen kommen Probleme beim Umgang mit einer großen Anzahl von Datensätzen. Es gibt jedoch Methoden, um den Prozess zu optimieren.

Der bereitgestellte VBA-Code durchläuft jede Zeile und fügt Daten in die Access-Tabelle ein, ein sich wiederholender Prozess, der bei umfangreichen Datensätzen zeitaufwändig sein kann. Um die Leistung zu verbessern, sollten Sie die Verwendung einer einzelnen SQL INSERT-Anweisung für Masseneinfügungen in Betracht ziehen.

Optimierter Code mit SQL INSERT:

Public Sub DoTrans()

  Set cn = CreateObject("ADODB.Connection")
  dbPath = Application.ActiveWorkbook.Path & "\FDData.mdb"
  dbWb = Application.ActiveWorkbook.FullName
  dbWs = Application.ActiveSheet.Name
  scn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
  dsh = "[" & Application.ActiveSheet.Name & "$]"
  cn.Open scn

  ssql = "INSERT INTO fdFolio ([fdName], [fdOne], [fdTwo]) "
  ssql = ssql & "SELECT * FROM [Excel 8.0;HDR=YES;DATABASE=" & dbWb & "]." & dsh

  cn.Execute ssql

End Sub

Implementierung:

• Der obige Code stellt eine Verbindung zur Access-Datenbank her ADODB.Connection.
• Es bildet eine SQL-INSERT-Anweisung, um Daten mit angegebenen Feldnamen in die fdFolio-Tabelle einzufügen.
• Die Execute-Methode führt die SQL-Anweisung aus und führt den Masseneinfügungsvorgang aus.

Dieser optimierte Code macht das Durchlaufen jeder Zeile überflüssig und verbessert die Leistung bei großen Datensätzen erheblich.

Das obige ist der detaillierte Inhalt vonWie kann ich die Leistung beim Importieren großer Excel-Datensätze in MS Access mithilfe von VBA verbessern?. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!