VBA procedure to import csv file into access

by

The easiest way to do it is to link the CSV-file into the Access database as a table. Then you can work on this table as if it was an ordinary access table, for instance by creating an appropriate query based on this table that returns exactly what you want.

You can link the table either manually or with VBA like this

DoCmd.TransferText TransferType:=acLinkDelim, TableName:="tblImport", _
    FileName:="C:\MyData.csv", HasFieldNames:=true

Update

Dim db As DAO.Database

' Re-link the CSV Table
Set db = CurrentDb
On Error Resume Next:   db.TableDefs.Delete "tblImport":   On Error GoTo 0
db.TableDefs.Refresh
DoCmd.TransferText TransferType:=acLinkDelim, TableName:="tblImport", _
    FileName:="C:\MyData.csv", HasFieldNames:=true
db.TableDefs.Refresh

' Perform the import
db.Execute "INSERT INTO someTable SELECT col1, col2, ... FROM tblImport " _
   & "WHERE NOT F1 IN ('A1', 'A2', 'A3')"
db.Close:   Set db = Nothing

More Related Contents:

  1. How does one decompile and recompile a database application?
  2. What are the rules governing usage of parenthesis in VBA function calls?
  3. Autonumber value of last inserted row – MS Access / VBA
  4. Code to loop through all records in MS Access
  5. Bang Notation and Dot Notation in VBA and MS-Access
  6. How do I force VBA/Access to require variables to be defined?
  7. VBA: Difference in two ways of declaring a new object? (Trying to understand why my solution works)
  8. How to diagnose MS access crashes
  9. Equivalent cURL in VBA?
  10. How do I access the selected rows in Access?
  11. Run-time error ‘3061’. Too few parameters. Expected 1. (Access 2007)
  12. Prevent enabling of shift bypass – Access 2010
  13. Transform multiple rows into columns with unique key
  14. how to show query results in a datasheet in the same form?
  15. Access VBA: Find max number in column and add 1
  16. MS Access prepared statements
  17. Create sequential ID value based on the year that a record is added
  18. UrlDownloadToFile in Access 2010 – Sub or Function not Defined
  19. Null values for variables in VBA
  20. Using a centralized VBA module in multiple Access databases
  21. How to execute a query in ms-access in VBA code?
  22. How to add a menu item to the default right click context menu
  23. VBA – Run Time Error 3271 using DAO object
  24. Trouble with InputBoxes
  25. Get Name of Current VBA Function
  26. Access query producing results like ROW_NUMBER() in T-SQL
  27. Calling stored procedure using VBA
  28. Setting up an MS-Access DB for multi-user access
  29. SendKeys is messing with my NumLock key via VBA code in Access form
  30. How to save the result of a SQL query into a variable in VBA?

Leave a Comment