Import MS Access data into Excel based on values in Excel

[ITSLICE]

Hi,

Hope someone can help me with this problem that I can't figure out. I have a database(accdb) table with 4 fields, ID, First Name, Last Name, Start Date and I have an Excel spreadsheet that has 3 columns, IDEMP, Full Name, Start Date.

I'm trying to create a macro in Excel to import the Start Date from DB that match the IDEMP cell in the Excel sheet and update the Start Date column in excel.

I'm able to import all the data from DB to Excel through VBA but I only want to import the start dates for only the IDEMP values that match the ID.

Appreciate any help.

 

[NMa91]

I assume that Id is not duplicate in database.

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rEmpID As Range


Set con = New ADODB.Connection


con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Desktop\Sample.accdb;Persist Security Info=False;"


con.Open


Sql = "Select * from EmpData"


Set rs = con.Execute(Sql)


For Each rEmpID In Range("A1:A100")
    rs.MoveFirst
    Do Until rs.EOF
        If rs.Fields("ID") = rEmpID.Value Then rEmpID.Offset(0, 2) = rs.Fields("StartDate")
        rs.MoveNext
    Loop
Next rEmpID


rs.Close
con.Close