Данные из текстового файла в excel

[vovchik_lazarev]

Есть текстовый файл с данными. Эти данные надо перенести в excel

[kuklp]

И в чем проблема?

[Watcher_1]

Данные->Из текста разделитель Табуляция формат Текст
И Все!

[vovchik_lazarev]

Надо с помощью макроса

[Hugo121]

Можно просто файлу изменить расширение (переименовать) и открыть даблкликом
Это в этом случае.
Затем поменять формат первого столбца на числовой.

А если макросом - то позвольте полюбопытствовать, зачем в Эксель?

[vovchik_lazarev]

данные выгружаются из БД, а в excel для подготовки и дальнейшего отправления партнерам

[Hugo121]

Я спросил потому, что обрабатывать и подготавливать можно данные прямо из текста - макросом или через запрос SQL, тут было много примеров.
А результат уже выгружать на лист - будет быстрее и правильнее.
Ну а ели результат нужен точно как в тексте - то выше уже есть ответ от Watcher_1

[EducatedFool]

А поискать готовые макросы религия не позволяет?

Вариант1:
http://excelvba.ru/code/DATfolder2Array

Вариант2:
http://excelvba.ru/code/txt
http://excelvba.ru/code/Text2Array
http://excelvba.ru/code/Array2worksheet

[R Dmitry]

Sub impTXT()
Dim Fl$
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = Application.DefaultFilePath & "/"
.Title = "Выберите файл для импорта данных"
If .Show = False Then Exit Sub
Fl = .SelectedItems.Item(1)
End With
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fl, Destination:=Range("$A$1"))
.FieldNames = True
.TextFileParseType = xlDelimited
.Refresh BackgroundQuery:=False
End With
End Sub

[vovchik_lazarev]

Спасибо большое, очень помогли