Сравнение полей между Excel и Access и заполнить - PullRequest
Новая
       18

Сравнение полей между Excel и Access и заполнить

0 голосов
/ 28 апреля 2011

Что я хотел знать, так это как получить приложение vb, одновременно считывающее файл excel и базу данных доступа, заставить их сравнивать поля и заполнять поля, которые являются нулевыми.

, например:

В Excel есть следующие столбцы и поля:

Адрес, почтовый индекс

avenue, независимо от того, № 30 ny, ноль (почтовый индекс не имеет значения)

В Access есть следующие столбцы и поля:

Адрес, почтовый индекс

avenue, независимо от того, № 30 ню, 2700-168

как мне заполнить базу данных доступаполе в файле excel?

Заранее спасибо

1 Ответ

0 голосов
/ 29 апреля 2011

Полагаю, вы хотите вызвать код из Excel в этом случае.Вы можете попробовать что-то вроде этого примера псевдокода:

Sub foo () 

 Dim db as DAO.Database
 Dim rs as Recordset
 Dim ws as Worksheet
 Dim i as Long

 Set db = Workspaces(0).OpenDatabase("C:\MyPath\MyDatabase.mdb", ReadOnly:=True)
 Set rs = db.OpenRecordset("Name of DB Table")
 Set ws = ActiveSheet

 i = 2
 ws.Range("A1") = "Address"
 ws.Range("B1") = "Postal Code"

 rs.MoveFirst
 Do While Not rs.EOF
      ws.Range("A" & i) = rs("Table Address Column Name")
      ws.Range("B" & i) = rs("Table Postal Code Column Name")
      rs.MoveNext
      i = i + 1
 Loop

 rs.close
 db.close

 Set db = Nothing
 Set rs = Nothing
 Set ws = Nothing

End Sub

...