Здравствуйте. Нужно открыть файл *.csv и разбить текст по столбцам. Разделителем является запятая. В макросах MS Excel это выглядит так: Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), _ ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83356