Fields("Geo Rank") = Range("B" & r).Value ' repeat until first empty cell in column A
Rs.Open "t_certification_051512", cn, adOpenKeyset, adLockOptimistic, adCmdTable "Data Source=C:\Users\shress2\Documents\TSS_Certification\TSS_Certification.accdb " 'exports data from the active worksheet to a table in an Access databaseĭim cn As ADODB.Connection, rs As ADODB.Recordset, r As LongĬn.Open "Provider=.4.0 " & _ Here's my excel vba macro code: Sub ADOFromExcelToAccess() Once I get this working, I could get 'delete content before dumping excel data' working. I have to delete Access table data content before pumping data from my macro enalbed excel 2010 sheet into it.For now I m trying to see/test if I could pump my excel data to empty table in Access. I have a table in Access 2010 db with same column names as the column names in excel sheet.
0 kommentar(er)
