Как экспортировать данные

[Малявка]

Всем привет. я новенькая, но очень нужна помощь. нужно из txt-файла скопировать данные в эксель. чтобы различить столбцы в экселевском файле, данные в текстовике разделяются пробелом. помогите, пожалста

[pashulka]

В меню Файл выберите команду Открыть (CTRL+O), в появившемся стандартном диалоговом окне Открытие документа в поле со списком Тип файлов: выберите Текстовые файлы. Затем, выделите нужный текстовый файл и кликните кнопку Открыть. Потом, в стандартном диалоговом окне Мастер текстов (импорт) установите переключатель напротив С разделителями и кликните кнопку Далее, затем, в разделе Символом-разделитем является: снимите все "флажки", за исключением, Пробел и нажмите кнопку Готово.
При необходимости можно использовать и другие опции, которые будут доступны при импорте текстового файла, например, установить нужный формат для нужного столбца, выбрать разделитель целой и дробной части для чисел (XL2000) и т.д.

[Малявка]

а как-нить в коде это можно прописать? понимаете, мне нужно создать программку, к-рая сама из текстового файла с определенным названием, находящегося в определенной директории, будет забирать данные и обрабатывать их. просто никак не могу найти процедуру, к-рая будет копировать данные из текстового файла. вот

[Малявка]

pashulka, спасибо. я нашла. ура!!! теперь с работы не уволят))). но буду рада, если кто-нить еще что-нить предложит

[pashulka]

Вариант I.
В меню Сервис выберите пункт Макрос и команду Начать запись, затем откройте текстовый файл, используя вышеопубликованный алгоритм. Закончите все манипуляции нажатием клавиши Остановить запись. В результате получите что-то вроде нижеопубликованного кода :

Workbooks.OpenText FileName:= _
"C:\Текстовый_документ.txt", Origin:=xlWindows, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False

Вариант II.

With ThisWorkbook.Worksheets(1)
     With .QueryTables.Add(Connection:="TEXT;C:\Текстовый_документ.txt", Destination:=.Cells(1))
          .TextFilePlatform = xlWindows 'а может быть xlMSDOS
          .TextFileParseType = xlDelimited
          .TextFileTextQualifier = xlTextQualifierDoubleQuote
          .TextFileConsecutiveDelimiter = True
          .TextFileSpaceDelimiter = True
          .Refresh BackgroundQuery:=False
          'При необходимости можно использовать и другие свойства
     End With
End With

Обратите внимание на то, что в первом случае текстовый файл откроется в новом окне, во втором, данные будут помещены в ячейки указанного рабочего листа.

[Малявка]

я как раз первым вариантом и воспользовалась . но второй мне более подходит. спасибки