Solved

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

Posted on 2007-12-02
1
433 Views
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, _

          SpreadsheetType:=acSpreadsheetTypeExcel9,_

          TableName:="tableCustomerSpread", _

          FileName:=CurrentProject.Path & "\customer.Xls", _

          HasFieldNames:=True

End Sub
 
 
 

Snippet from "Mastering Microsoft Office Access 2003" by Alison Balter c2004 Sams Publishing

Open in new window

0
Comment
Question by:omnova
1 Comment
 
LVL 10

Accepted Solution

by:
LennyGray earned 500 total points
Comment Utility
SEE ATTACHED CODE.

THIS WILL IMPORT THE DATA FROM eXCEL AND ASSIGN THE PROPER DATA TYPE TO THE IMPORT INTO aCCESS.
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

0

Featured Post

Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

Join & Write a Comment

Suggested Solutions

Slowly Changing Dimension Transformation component in data task flow is very useful for us to manage and control how data changes in SSIS.
Load balancing is the method of dividing the total amount of work performed by one computer between two or more computers. Its aim is to get more work done in the same amount of time, ensuring that all the users get served faster.
Viewers will learn how to use the SELECT statement in SQL and will be exposed to the many uses the SELECT statement has.
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

763 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

13 Experts available now in Live!

Get 1:1 Help Now