Opening an Access database using VBA in Excel

[Deco1]

I writing a VBA procedure in Excel. Part of the function is to open an Access database in order to populate certain tables. I'm having problems opening the databse. Can any of you experts out there give me any help??

Cheers

 

[eljakim]

Hi Deco,

Off the top of my head I am writing you an example. If
you need more info, just let me know.

I hope this helps you.

Kim

Dim db As Database
Dim rst As Recordset
Set db = Workspaces(0).OpenDatabase("accessdb.mdb")
Set rst = db.OpenRecordset("mytable", dbOpenDynaset)
rst.AddNew
  ' Do your thing here
rst.Update
rst.Close
db.Close
set rst = Nothing
set db = Nothing

 

[Deco1]

Thanks kim,

I've got it working now.

In case anyone else is interested in the code I've posted it below.

Deco

Dim strPath As String
Dim objAccess As Object

strPath = "G:\reinledg\Midnight\697LPC\LPCCashImport.mdb"
Set objAccess = GetObject(strPath)