Solved

Macro/Cmd to Import Excel file into Access

Posted on 2010-09-14
10
1,294 Views
Last Modified: 2013-11-28
I have a temp table in Access that I import data into and then (based on various criteria) append to a second table.

I'd like to automate the import process into the temp table.  Currently I delete current records and then go through the import wizard, etc, etc.  I'm planning to use a macro and can use all the STD commands fir deleting current records and running update/append queries.  My issue is the import of te Excel file.  Is there a command or something I can run within the macro to do the import?  I will be importing a file with a STD name and set file path location.  It will be imported into an existing table.  Currently using Excel 2003 but will soon be upgrading to 2010 if that needs to be considered.  I am using Access 2000.  Thanks.
0
Comment
Question by:vsllc
  • 5
  • 3
  • 2
10 Comments
 
LVL 39

Accepted Solution

by:
als315 earned 500 total points
ID: 33675228
If file name and path is always same, you can link this file to your DB and run queries from macro to delete/append records to existing table. Excel 2010 can save in format of Excel 2003 if there will be any problems with linking Excel 2010 file to Access 2000.
0
 
LVL 39

Expert Comment

by:als315
ID: 33675254
I can recommend you to use csv format if you have in one column mixed text and numeric cells.
0
 

Author Comment

by:vsllc
ID: 33675301
Can't export from source system as csv.

I never thought of linking to Excel.  I'll give it a try.
0
 
LVL 39

Expert Comment

by:als315
ID: 33675496
Excel can save file as csv. It can be done with simple macro, which you can run from Access before import, or it is possible from VBA open Excel and save your file as csv. Do it if in linked file some cells will have wrong values.
0
 

Author Comment

by:vsllc
ID: 33675642
Does the link only impact alphanumeric fields?

How would I add a macro to do thus within my Access macro?  My goal is to basically make this a 1 click process so I don't want to have to open Excel to save ad csv and then start process.
0
Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

 
LVL 39

Expert Comment

by:als315
ID: 33682138
You can use this sub for file conversion (compiled from many sources):
(change path from current to your)
Sub SaveAsCSV_xlFile(XlsFileName as string, CSVFileName as string)

    Dim oXL As Object

    Dim sFullPath, sFullPath1 As String

'   Create a new Excel instance

    Set oXL = CreateObject("Excel.Application")

'   Full path of excel file to open

    On Error GoTo ErrHandle

    sFullPath = CurrentProject.Path & XlsFileName

    sFullPath1 = CurrentProject.Path & CSVFileName

'   Open and save as it

    With oXL

        .Visible = True

        .Workbooks.Open (sFullPath)

        .ActiveWorkbook.SaveAs FileName:=sFullPath1, FileFormat:=6

    End With

ErrExit:

    Set oXL = Nothing

    Exit Sub

    

ErrHandle:

    oXL.Visible = False

    MsgBox Err.Description

    GoTo ErrExit

End Sub

Open in new window

0
 
LVL 33

Expert Comment

by:Norie
ID: 33685137
Why not take a look at the DoCmd.TransferSpreadsheet method?

That's the usual way to import data from Excel into Access.

It has various arguments you can specify and you can use it to create a new table or append to an existing table.

That should do the import then you can run your queries from code using DoCmd.RunSQL.

No need to open Excel really, in fact if you try to import from an open file you might run into problems.
0
 
LVL 39

Expert Comment

by:als315
ID: 33693322
Transferspreadsheet very often can not correctly import fields. Is better use csv file, import (or link) it as text file, and then make conversion to Access tables.
0
 
LVL 33

Expert Comment

by:Norie
ID: 33693613
Eh, how?

If you do things properly and the data is well-defined then you should have no problem with TransferSpreadsheet.

Well not any problem you would have importing the same data in CSV format using TransferText.

If there was a problem it would most likely be something to do with data types and it would apply to both methods.

One solution for that is to import to an existing table with the correct data types for the fields.

Another is to import into a table where the fields are all text.

Once you've got the data in Access you can go on and convert it as required, as you've indicated.
0
 

Author Closing Comment

by:vsllc
ID: 33695988
Thanks.  This worked.
0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

In the article entitled Working with Objects – Part 1 (http://www.experts-exchange.com/Microsoft/Development/MS_Access/A_4942-Working-with-Objects-Part-1.html), you learned the basics of working with objects, properties, methods, and events. In Work…
Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
Familiarize people with the process of utilizing SQL Server functions from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Ac…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

760 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now