Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Shaun E on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How can I process the import text f
- Thread starter ItalyFrom
- Start date
- Thread starter
- #3
Had a look on the excel help and found this. Don't know if it will help but it might
TextFileCommaDelimiter Property
See Also Applies To Example Specifics
True if the comma is the delimiter when you import a text file into a query table. False if you want to use some other character as the delimiter. The default value is False. Read/write Boolean.
Remarks
Use this property only when your query table is based on data from a text file (with the QueryType property set to xlTextImport), and only if the value of the TextFileParseType property is xlDelimited.
Example
This example sets the comma to be the delimiter in the query table on the first worksheet in the first workbook, and then it refreshes the query table.
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1, 1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
dyarwood
TextFileCommaDelimiter Property
See Also Applies To Example Specifics
True if the comma is the delimiter when you import a text file into a query table. False if you want to use some other character as the delimiter. The default value is False. Read/write Boolean.
Remarks
Use this property only when your query table is based on data from a text file (with the QueryType property set to xlTextImport), and only if the value of the TextFileParseType property is xlDelimited.
Example
This example sets the comma to be the delimiter in the query table on the first worksheet in the first workbook, and then it refreshes the query table.
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1, 1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
dyarwood
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question
- Locked
- Question