Excel VBA to open Access and Run query

AM2014

New Member
Joined
Oct 17, 2014
Messages
34
I am using Excel 2013 and Accesss 2013. I am trying to use Excel <acronym title="visual basic for applications">VBA</acronym> to open Access and run a specific query. I run the below code, then it highlights the "Dim appAccess As Access.Application" line and gives me the error message "Compile error: User-defined type not defined". I am not quite sure how to fix this. Any help is appreciated!

Sub RunAccess()

'Update Access Table
Dim strDatabasePath As String
Dim appAccess As Access.Application
strDatabasePath = "N:\Data\Data.accdb"
Set appAccess = New Access.Application
With appAccess
Application.DisplayAlerts = False
.OpenCurrentDatabase strDatabasePath
.DoCmd.OpenQuery "qry_Shipments_West/East_Final"
.Quit
End With
Set appAccess = Nothing

End Sub
 
For whatever reason I am not able to import the data straight into excel from an access query. I must use access to make a table every day (data changes day to day so I cannot just append), then import the data in from the table.
 
Upvote 0

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top