如何提高使用 VBA 將大型 Excel 資料集匯入 MS Access 的效能？

使用Excel VBA 將資料匯入MS Access：效能改進

將資料從Excel 匯出到MS Access 表時，您可能會遇到效能問題處理大量記錄時出現問題。但是，有一些方法可以優化該過程。

提供的 VBA 程式碼循環遍歷每一行並將資料插入 Access 表中，這是一個重複的過程，對於大量資料集來說可能非常耗時。為了提高效能，請考慮使用單一 SQL INSERT 語句進行批次插入。

使用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

實現：

• 上面的代碼使用以下方式建立了與Access 資料庫的連線ADODB.Connection。
• 它形成一條 SQL INSERT 語句，將資料插入指定欄位名稱的 fdFolio 表中。
• Execute 方法執行 SQL 語句，執行批次插入操作。

這種最佳化的程式碼消除了循環遍歷每一行的需要，顯著提高了大型資料集的效能。

以上是如何提高使用 VBA 將大型 Excel 資料集匯入 MS Access 的效能？的詳細內容。更多資訊請關注PHP中文網其他相關文章！