[VBA ] 有上千筆資料比對~~要如何寫才能提高執行效能??
我有個 Excel 內有上千筆資料要和資料庫 .mdb 做比對
我是用 VBA 寫法，用程式 Row 的
目前是一行一行的讀取然後與資料庫做比對
不過因為有上千筆~~
所以在比對程式 Row 時, Excel 感覺都快當掉了
而且比對時間也蠻長的~~(可能是電腦效能原因吧)
我目前所需求的是
有上千筆資料要與資料庫中的 text 資料表欄位 A 做比對
如果在資料庫中沒有資料就 Show 出 No Data 的字
以下是我的寫法~~
For i = TextBox1.Text To Sheet1.Range("a1").End(xlDown).Row
strsql = "select * from test where a like'" & .Cells(i, "A") & "'" '查詢
Set myrst = myCon.Execute(strsql)
If myrst.EOF = True Then
.Cells(i, "B") = "No Data"
j = j + 1 '計算沒有資料的筆數
End If
Next
因此~~想請教各位高手們有沒有更快速的方法將上千筆資料與資料庫快速做比對呢??
能否給的提示做法~~謝謝 ^^
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.81.233.159
推
06/28 12:53, , 1F
06/28 12:53, 1F
→
06/28 13:56, , 2F
06/28 13:56, 2F
→
06/28 13:56, , 3F
06/28 13:56, 3F
→
06/28 14:17, , 4F
06/28 14:17, 4F
→
06/28 14:26, , 5F
06/28 14:26, 5F
推
06/28 19:16, , 6F
06/28 19:16, 6F
→
06/28 19:17, , 7F
06/28 19:17, 7F
推
06/28 19:22, , 8F
06/28 19:22, 8F
→
06/28 21:00, , 9F
06/28 21:00, 9F