kiza

I have enclosed the full code for opening a text file using tab as th
column seperator

to change the column seperater to a comma as in a CSV file then chang
Tab:=True to Tab:=False
and Comma:=False to Comma:=True



Sub OpenUserFile()
Dim FileToOpen As Variant

FileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If FileToOpen = False Then
Exit Sub

End If

MsgBox "Open " & FileToOpen
Workbooks.OpenText FileName:=FileToOpen, Origin:=xlWindows _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=Fals
_
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1)

End Su

--
Message posted from http://www.ExcelForum.com