I need a Macro
I'm doing the exact same thing right now actually.
i) Create a named range in excel over the range of cells you want
dumped into access. Lets call it 'EXPORT'.
ii) Open access. Create a linked table to your excel file and select
the range EXPORT.Call this linked table LINKED_EXPORT
iii) Create a Table in access with the same column headings as the ones
in the range EXPORT. This table will be blank for now. Call this table
TABLE_EXPORT
iv) Create an APPEND QUERY in Access. Append LINKED_EXPORT to
TABLE_EXPORT. Save the query as QUERY_EXPORT.
v) Create a Macro in access. Setwarnings = off, OpenQuery =
QUERY_EXPORT
vi) Put this into your vba code:
Sub EXPORT_DATA()
Dim mdb_Obj As Object
Set mdb_Obj = CreateObject("Access.Application")
Dim app As Application
Set app = Application
mdb_Obj.Visible = False
mdb_Obj.OpenCurrentDatabase ("c:\location\of\your\Database.mdb")
mdb_Obj.DoCmd.RunMacro "QUERY_EXPORT"
mdb_Obj.Quit
End Sub
Done:)
SmartyPants wrote:
I need a Macro to dump certain cells in a worksheet into an access
database.
This will be done on a daily basis - I want them all on the same
database.
|