Solved

Macro/Cmd to Import Excel file into Access

Posted on 2010-09-14
10
1,298 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
Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

 
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

U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article is a continuation or rather an extension from Cascading Combos (http://www.experts-exchange.com/A_5949.html) and builds on examples developed in detail there. It should be understandable alone, but I recommend reading the previous artic…
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, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…

910 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

18 Experts available now in Live!

Get 1:1 Help Now