Excel, макрос, импортирующий файлы .210 в excel.

[Максиv]

Здравствуйте. Нужен макрос, позволяющий импортировать файлы .210 в excel.
Вот файл ТЕСТ.210.
Есть файлик help справки(Вот файл). В нём есть способ импортирования в excel(Этап 7.1. Способы чтения/открытия электронных файлов(Чтение/открытие с помощью MS Excel (на примере 210 сообщения)))
Цель : Нужно чтобы по такой схеме импортировать автоматически файлы(.210), которые есть в папке в одну книгу. Есть идеи ?

 

[George]

Это что за расширение?

 

[Максиv]

Это расширение платежа с банка

 

[splxgf]

Формат простой, текстовой, в принципе любой студент справится.

Есть идеи ?

Ну а какие могут быть идеи, Alt+F11 и погнали.

 

[Максиv]

Был бы очень признателен за помощь)

 

[lev]

Обычная автозапись макроса

Sub Open210()
  Workbooks.OpenText Filename:="C:\тест.210", Origin:=1251, _
  StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
  ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
  , Space:=False, Other:=True, OtherChar:="^", FieldInfo:=Array(Array(1, 2 _
  ), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _
  Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15 _
  , 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2)), _
  TrailingMinusNumbers:=True
End Sub

А выбор папки и сведение в книгу - это уже сами.