Importing data from excel to temp table then appending to existing table with autogen primary key

Posted on 2007-12-02
Last Modified: 2008-02-01
I am looking for a way to copy data from an excel spreadsheet to a temp table in access 2003 and if it imports correctly to append the data to the main table.  The spreadsheet importtemp table and finalimport table will all have the same field names.  The finalimport table will have data inputting to this table from multiple parts of the database and there is an auto generated key for each new line.

I believe I can import the code using the code example below to the temp table. But how can I copy the code from the importtemp table to finalimport table.  The fields will be the same and in the same order. I think I can use the append command but I am not sure how to do it with the auto generated key in the finalimport table.

This is all in access 2000 excel 9. I prefer to is vba as apposed to sql but whatever works.  Initially I thought to input it into the finalimport table but importing external data into the final table didn't seem right.

Sub ImportSpreadsheet()
     DoCmd.TransferSpreadsheet _
          TransferType:=acImport, _
          TableName:="tableCustomerSpread", _
          FileName:=CurrentProject.Path & "\customer.Xls", _
End Sub
Snippet from "Mastering Microsoft Office Access 2003" by Alison Balter c2004 Sams Publishing

Open in new window

Question by:omnova
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
LVL 10

Accepted Solution

LennyGray earned 500 total points
ID: 20394175

Private Sub ConvertToTextFile(sTheTableName As String)
    '* The purpose of this routine is to overcome Microsoft's sloppiness. *
    '* After the raw Excel data is transferred to Access, we export the   *
    '* imported Excel data from the raw Access data table to a text file. *
    DoCmd.TransferText acExportDelim, , sTheTableName, sTheCurrentDatabaseDirectory & sTheTableName & ".txt", True
End Sub
Private Sub ConvertToAccessTable(sTheTableName As String)
Dim sTheFinalTableName As String
    sTheFinalTableName = Mid(sTheTableName, 1, Len(sTheTableName) - 4)
    '* The next step is to return the text that we converted  *
    '* back to the Access database as a table defined by an   *
    '* Import Specification file. This is the "Raw" data file.*
    DoCmd.TransferText acImportDelim, "AwardDataImportSpecification", sTheFinalTableName, sTheCurrentDatabaseDirectory & sTheTableName & ".txt", True
End Sub

Open in new window


Featured Post

Get 15 Days FREE Full-Featured Trial

Benefit from a mission critical IT monitoring with Monitis Premium or get it FREE for your entry level monitoring needs.
-Over 200,000 users
-More than 300,000 websites monitored
-Used in 197 countries
-Recommended by 98% of users

Question has a verified solution.

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

The Windows Phone Theme Colours is a tight, powerful, and well balanced palette. This tiny Access application makes it a snap to select and pick a value. And it doubles as an intro to implementing WithEvents, one of Access' hidden gems.
Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
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…
Viewers will learn how to use the INSERT statement to insert data into their tables. It will also introduce the NULL statement, to show them what happens when no value is giving for any given column.

624 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