Предложение базы данных для макроса VBA - MS Access - PullRequest
Новая
       15

Предложение базы данных для макроса VBA - MS Access

1 голос
/ 28 января 2012

Требуется предложение к базе данных.Мне в основном нужен макрос, который будет выполнять vLookup лист (из ~ 50 тыс. Записей) для базы данных с более чем 1 млн. Ключевых слов.

Будет ли процесс быстрее, если я использую MS Access 2007 в качестве базы данных для vLookup?Есть ли другой способ ускорить этот процесс, используя другую базу данных и т. Д.?

Любая помощь или направление приветствуются.Спасибо всем за ваше время.

1 Ответ

3 голосов
/ 28 января 2012

Если у вас уже есть эти ключевые слова, хранящиеся в Excel, стоит поискать ADO, чтобы прочитать слова в виде таблицы.Это быстрый пример, но он также достаточно прост, чтобы объединить список слов для поиска в INNER или LEFT JOIN и найти пропущенные и подходящие слова.Это также может быть сделано, если ключевые слова хранятся в базе данных извне, с помощью встроенных строк подключения. 

Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL As String
Dim s As String
Dim i As Integer, j As Integer

''This is not the best way to refer to the workbook
''you want, but it is very convenient for notes
''It is probably best to use the name of the workbook.

strFile = ActiveWorkbook.FullName

''Note that if HDR=No, F1,F2 etc are used for column names,
''if HDR=Yes, the names in the first row of the range
''can be used. 
''
''This is the ACE connection string, you can get more
''here : http://www.connectionstrings.com/excel

strCon = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"

''Late binding, so no reference is needed

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open strCon

''Watch out for case sensitivity
strSQL = "SELECT [ColumnName] " _
       & "FROM [Sheet1$] " _
       & "WHERE ColumnName ='" & strWord & "'"

rs.Open strSQL, cn, 3, 3

MsgBox rs.GetString

''Tidy up
rs.Close
Set rs=Nothing
cn.Close
Set cn=Nothing
...