Importing Text File
All are single lines except the .TextFileColumnDataTypes
= Array and it has the _ at the end of the line where
it's split.
-----Original Message-----
Does it look the same on your machine as it does here in
the NG?
Specifically, these lines
.TextFileTextQualifier =
xlTextQualifierDoubleQuote
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
should each be one single line.
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"Dan" wrote in
message
...
I need to import a text file (weekly), to my workbook
and
I'm having a problem getting the macro to function
properly. The macro stops with the last line, Any help
would be greatly appreciated.
MyFile = Application.GetOpenFilename("Text
Files,*.Txt")
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;F:\MyFile.txt", Destination:=Range("A1"))
.Name = MyFile
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier =
xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Thanks,
Dan
.
|