Every day, more and more legacy backup customers switch to Veeam. Technologies designed for the client-server era cannot restore any IT service running in the hybrid cloud within seconds. Learn top Veeam advantages over legacy backup and get Veeam for the price of your renewal
Solved
How To Import Text File From Code
Posted on 2013-01-07
I am using this code to attempt an import of a fixed width .csv text file:
Private Sub cbImport_Click()
Dim strFileName As String
Dim strSQL As String
Dim strImportSpec As String
If IsNull(Me.txtFile) = True Then
MsgBox "You must find a file for import!", vbExclamation, "File Required"
Exit Sub
End If
strSQL = "DELETE GL_ImportTable.* FROM GL_ImportTable"
DoCmd.RunSQL strSQL
strFileName = Trim(Me.txtFile)
strImportSpec = "Import_GL"
DoCmd.TransferText acImportFixed, "Import_GL", "GL_ImportTable", strFileName, True
End Sub
I have used it with both a variable and the string shown for the Specification name and in each case I get a message that says:
"The text file specification "Import_GL" does not exist."
Obviously it does, and I have even copied the name right out of the specification list into the code.
Any help will be appreciated.
Thanks.
Private Sub cbImport_Click()
Dim strFileName As String
Dim strSQL As String
Dim strImportSpec As String
If IsNull(Me.txtFile) = True Then
MsgBox "You must find a file for import!", vbExclamation, "File Required"
Exit Sub
End If
strSQL = "DELETE GL_ImportTable.* FROM GL_ImportTable"
DoCmd.RunSQL strSQL
strFileName = Trim(Me.txtFile)
strImportSpec = "Import_GL"
DoCmd.TransferText acImportFixed, "Import_GL", "GL_ImportTable", strFileName, True
End Sub
I have used it with both a variable and the string shown for the Specification name and in each case I get a message that says:
"The text file specification "Import_GL" does not exist."
Obviously it does, and I have even copied the name right out of the specification list into the code.
Any help will be appreciated.
Thanks.
[X]
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
2
2-
2
6 Comments
Active today
have you created the import specification?
what version of access are you using?
'to create an import specification
'
1. File>get external data>import
2. select in the File of types box Text files (*.txt etc..
3. select the file
4. in the import text wizard window select delimited/fixed
5. Click advanced
6. in the import specification window
type the name of the field in the Field Name column
(here you can use the field names of the destination table, specify data type,
check the box Skip if you do not want to import the column)
7 click save as, give the specification a name <-- this is the specification name that you will use in the command line below
Now you can use the code below to import the CSV file via code
DoCmd.TransferText acImportFixed, "ImportSpecificationName",
what version of access are you using?
'to create an import specification
'
1. File>get external data>import
2. select in the File of types box Text files (*.txt etc..
3. select the file
4. in the import text wizard window select delimited/fixed
5. Click advanced
6. in the import specification window
type the name of the field in the Field Name column
(here you can use the field names of the destination table, specify data type,
check the box Skip if you do not want to import the column)
7 click save as, give the specification a name <-- this is the specification name that you will use in the command line below
Now you can use the code below to import the CSV file via code
DoCmd.TransferText acImportFixed, "ImportSpecificationName",
Active today
..if you are importing a .csv file, you should be using
DoCmd.TransferText acImportDelim, "ImportSpecificationName",
DoCmd.TransferText acImportDelim, "ImportSpecificationName",
Using Access 2007 (and some folks using 2010.) I just want to be able to park the import behind a button so users can get the data without having to go through the process themselves.
Going to try Capricorn's suggestions, as the raw file has no column headings.
Thanks.
Going to try Capricorn's suggestions, as the raw file has no column headings.
Thanks.
You can create a Saved Import (if you have Access 2007/2010). Just click Text File in the Import section of the External Data tab of the ribbon. When you complete the import wizard it will ask you if you want to save the import steps. This Saved Importt will now be listed as a task you could run whenever you click Saved Imports in the Import section of the External Data tab.
You can call this Saved Import from code using this line:
You can call this Saved Import from code using this line:
DoCmd.RunSavedImportExport
Featured Post
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
In earlier versions of Windows (XP and before), you could drag a database to the taskbar, where it would appear as a taskbar icon to open that database. This article shows how to recreate this functionality in Windows 7 through 10.
Using Microsoft Access, learn some simple rules for how to construct tables in a relational database.
Split up all multi-value fields into single values:
Split up fields that belong to other things into separate tables:
Make sure that all record…
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…
Suggested Courses
Course of the Month8 days, 12 hours left to enroll
598 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.