Bagaimanakah Saya Boleh Meningkatkan Prestasi Mengimport Set Data Excel Besar ke dalam MS Access Menggunakan VBA?

Mengimport Data ke MS Access Menggunakan Excel VBA: Peningkatan Prestasi

Apabila mengeksport data daripada Excel ke jadual MS Access, anda mungkin menghadapi prestasi isu apabila berurusan dengan sejumlah besar rekod. Walau bagaimanapun, terdapat kaedah untuk mengoptimumkan proses tersebut.

Kod VBA yang disediakan akan melingkari setiap baris dan memasukkan data ke dalam jadual Access, proses berulang yang boleh memakan masa untuk set data yang luas. Untuk meningkatkan prestasi, pertimbangkan untuk menggunakan pernyataan SQL INSERT tunggal untuk sisipan pukal.

Kod Dioptimumkan Menggunakan 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

Pelaksanaan:

• Kod di atas mewujudkan sambungan ke pangkalan data Access menggunakan ADODB.Connection.
• Ia membentuk pernyataan SQL INSERT untuk memasukkan data ke dalam jadual fdFolio dengan nama medan yang ditentukan.
• Kaedah Execute melaksanakan pernyataan SQL, melaksanakan operasi sisipan pukal.

Kod yang dioptimumkan ini menghapuskan keperluan untuk menggelung setiap baris, meningkatkan prestasi dengan ketara untuk set data yang besar.

Atas ialah kandungan terperinci Bagaimanakah Saya Boleh Meningkatkan Prestasi Mengimport Set Data Excel Besar ke dalam MS Access Menggunakan VBA?. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!