Мне кажется нужно открыть этот текстовый файл из Excel (меню Файл - Открыть), сохранить открытый файл в формате Excel, ну, а дальше уже обрабатывать полученный файл функциями и макросами уже в самом Excel. Но нужен образец с 5-10 строками

Sub Macros()  
'  
' Macros Макрос  
' Macros  
'  
 
'  
   Workbooks.OpenText Filename:= _  
       "C:\Documents and Settings\Ксения Владимировна\Мои документы\1.txt", Origin:= _  
       1251, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _  
       ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _  
       Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _  
       , 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, _  
       1), Array(11, 1), Array(12, 1)), TrailingMinusNumbers:=True  
   Columns("A:A").ColumnWidth = 18.86  
   Columns("B:F").Select  
   Selection.Delete Shift:=xlToLeft  
   Columns("C:E").Select  
   Selection.Delete Shift:=xlToLeft  
   Range("E1").Select  
   ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
   Range("E1").Select  
   Selection.Copy  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
   Columns("C:D").Select  
   Range("D1").Activate  
   Application.CutCopyMode = False  
   Selection.Delete Shift:=xlToLeft  
   Selection.ColumnWidth = 19.71  
   Range("C1").Select  
End Sub

{quote}{login=Степа}{date=10.10.2009 06:21}{thema=Выдернуть текст из блоконта}{post}Помогите в решении.  
23.12.08 10111000400001028001 04 93 01028 0.00 25,000.00 14014за обучение от Даукаева Марата    
 
Задача в том, чтобы выдернуть из блокнота 3 позиции строки и вставить их в эксель в ячейки А1,В1,С1.  пример:  
А1 = 23.12.08  
В1 = 25,000.00  
С1 = Даукаева Марата  
 
P.S. Строк много и при запуске макроса необходимо пройтись по всему блокноту  
Спасибо{/post}{/quote}  
см.вложение

{quote}{login=001}{date=13.10.2009 12:05}{thema=}{post}Здравствуйте.  
Выдернуть текст из блокнота - более или менее понятно.  
А выдернуть текст из памяти - сложно?  
Спасибо.{/post}{/quote}  
см.вложение

{quote}{login=001}{date=13.10.2009 12:59}{thema=}{post}В последнем макросе текст уже зашит внутрь. А как быть с вопросом "...P.S. Строк много и при запуске макроса необходимо пройтись по всему блокноту".  
Я так понял просьбу автора скопированные строчки должны располагаться одна под другой (новый файл может иметь много строк).  
Спасибо.{/post}{/quote}  
см.вложение

{quote}{login=001}{date=14.10.2009 09:45}{thema=}{post}Отлично, макрос работает.  
Хорошо бы было доработать макрос со вставкой строк из памяти. Чтобы вставленные из памяти строки располагались одна под другой.  
Спасибо.{/post}{/quote}  
1. Что Вы имеете ввиду "вставкой строк из памяти"?  
2. Без примера разобраться сложно!    
3. Есть только одна строка из блокнота, по одной строке и было.  
Для более правильной работы процедуры нужен:    
- пример из нескольких строк блокнота;  
- пример xls-файла, где указано в каком виде хотите видеть информацию;  
- по какому признаку обрабатывать информацию в блокноте? Было сделано по разделителю - пробел, т.е. выбирались элементы 1, 7 и 11+12.

{quote}{login=001}{date=14.10.2009 12:19}{thema=}{post}Допустим есть несколько документов в одинаковом формате. При составлении таблицы есть необходимость копирования текста по одной строке и вставка этих данных в текущую строку таблицы. Поэтому и возникла необходимость копирования строк в память и занесение данных в таблицу.  
Для простоты можно использовать тот же текстовый файл (из примера). Выделяем первую строку, копируем  ее и вставляем ее в текущую строку таблицы. Далее копируем вторую, третью и т.д.(имитация копирования из разных документов).  
Спасибо.{/post}{/quote}  
1. Данные в xls-файл добавлять каждый раз в конец базы, т.е. данные будут накапливаться, или каждый раз при обработке всех txt-файлов создавать новый отчёт, т.е. данные удаляются считаваются из txt-файлов и вставляются  в xls-файл ?  
2. Вы хотите обязательно через память или можно обрабатывать txt-файлы и просто вставлять данные в xls-файл?    
3. "Для простоты можно использовать тот же текстовый файл (из примера). Выделяем первую строку, копируем  ее и вставляем ее в текущую строку таблицы" - вытягивать данные или Вы хотите видеть строку?

Данные в xls-файл добавляем каждый раз в конец базы, и желательно с помощью памяти  обрабатываем txt-файлы, и просто вставляем данные в xls-файл.  
И на третий вопрос - выделяем строку, копируем и вставляем ее в текущую строку таблицы - лучше видеть копируемую строку (поскольку копируемые строки могут быть из дазных документов).  
Спасибо.

Извиняюсь за долгое молчание.  
Последний предложенный макрос у меня почему-то не работает.  
Останавливается на строке: ReDim Preserve a(1 To 2, 1 To UBound(a(), 2) - 1).  
Ошибка Run-time error "9". Subscript out of range.  
Подскажите что не так?  
Спасибо.

{quote}{login=Виталий}{date=19.10.2009 10:25}{thema=Re: }{post}  
Если ReDim Preserve a(1 To 2, 1 To UBound(a(), 2) + 1) работает без ошибок, то и ReDim Preserve a(1 To 2, 1 To UBound(a(), 2) - 1) должно всё работать.  
{/post}{/quote}Ошибаетесь. Читаем справку:  
Similarly, when you use Preserve, you can change the size of the array only by changing the upper bound; changing the lower bound causes an error.  
 
С Презервом вверх можно вниз - нет.

Виноват, погорячился.  
Да, наверное, получается выражение вида ReDim Preserve a(1 To 0)  
То о чем я привел цитату говорит о следующем  
Dim a()  
ReDim Preserve a(1 To 10)  
ReDim Preserve a(1 To 20) - так можно  
а:  
Dim a()  
ReDim Preserve a(1 To 10)  
ReDim Preserve a(2 To 10) - так нельзя