Как перевести текстовый файл в excel формат

@Alex_01 · Регистрация: 23.06.2008

Студворк — интернет-сервис помощи студентам

Люди помогите!

1. У меня имеется текстовый файл с разделителями:
Пример

1;Собака;1;;;200;Овчарка;
3;Кошка;2;3;;;;;ммм;
...........

Мне надо все это перевести при открытии в формат excel, но надо это сделать програмно (в модуле), не используя так сказать 'Мастер текстов'

2. И еще у меня почему-то не получается в модуле отсортировать числовую колонку, хотя в excel все работает, а после того, как запускаю записанный макрос не работает

Заранее благодарен.

24.06.2008, 15:42

А может нужно ?

Visual Basic
1
2
sssFile = Application.FindFile
Workbooks.OpenText Filename:=sssFile

@Aleron · 24.06.2008, 15:45

я не понимаю зачем привязывать файл? можно же по другому сделать.
с этим потом будут большие траблы.

@Alex_01 · 24.06.2008, 15:50 **[ТС]**

Для ранжирования делаю следующее:

Visual Basic
1
2
3
4
Selection.NumberFormat = "0.00"
    Range("A1:L16384").Sort Key1:=Range("E2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers

числа в колонке 'E'

@Alex_01 · 24.06.2008, 15:54 **[ТС]**

To Aleron:
Файл я не привязываю, тоесть
Workbooks.Open Filename:='price.csv'

@Alex_01 · 24.06.2008, 15:56 **[ТС]**

To Vita:
>А может нужно ?
sssFile = Application.FindFileWorkbooks.OpenText Filename:=sssFile

переменная sssFile - это true/false

@Aleron · 24.06.2008, 15:57

он у тебя будет открываться пока ты не перегрузишь комп. не знаю, я от таких решений давно отказался. потому что мои проги используют по всей республике, и малоли что им в голову взбредет.

@Alex_01 · 24.06.2008, 15:58 **[ТС]**

To Vita:
>Потом пойдет Визард импорта, и в нем много всяческих опций, все это наглядно и позволяет поиграться.

У меня 'Визард импорта' нет сразу файл открывается без предварительных окон (и сразу преобразованный)

24.06.2008, 16:03

Ну ясно у меня 97 у тебя 2000 - стратегии могут быть разные.

Давай сначала: если ты дашь такую команду

Code
1
Workbooks.OpenText FileName:='??? price.csv', ...

у тебя импорт идет правильный? Или же ошибки какие появляются?

@Alex_01 · 24.06.2008, 16:04 **[ТС]**

To Aleron:

Тоесть если я правильно тебя понял нужно полный путь до файла указывать?

To All:

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

так что если, что в голову взбредет пишите....

@Aleron · 24.06.2008, 16:07

2 Alexts
нет наоборот надо указать только имя файла а сам путь писать в textbox.
если надо пример могу скинуть.

@Alex_01 · 24.06.2008, 16:08 **[ТС]**

To Vita:
Ошибок нет
открывается файл нов одну строку, тоесть в колонке 'A'
пишу как ты говоришь:

Visual Basic
1
2
3
4
5
6
7
8
    sssFile = Application.FindFile
    NameWin = ActiveWorkbook.Name
    ActiveWorkbook.Close
     
    Workbooks.OpenText Filename:=NameWin, Origin:=xlWindows, _
    StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlSingleQuote, _
    ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, _
    Space:=False, Other:=False

@Alex_01 · 24.06.2008, 16:09 **[ТС]**

To Aleron:
Если не трудно скинь пожалуйста: Alexts01@yandex.ru

24.06.2008, 16:25

У меня Application.FindFile - это Sub. И ее вызов приводит к вызову Визарда импорта текстового файла.

Наверное, я больше уже ничем не смогу тебе помочь, ставить Офис2000 нет желания, чтобы дальше в нем смотреть, что можно сделать. Сорру.

@Alex_01 · 24.06.2008, 16:40 **[ТС]**

To Vita:
Спасибо большое за помощь

Просто наверно действительно тяжело объяснять человеку который нихрена не знает в excel

@Aleron · 24.06.2008, 16:40

ладно разберемся

поломаем голову

думаю что в офисе 2К будет все работать. значит вывод - надо ставить всем офис 2К.

@Alex_01 · 24.06.2008, 16:44 **[ТС]**

To Aleron:

Я все написал за один день (включая изучение)
А вот ранжирование и импорт - хрен знает как делать
Может можно это дело как-то по другому обойти..... надо подумать...

25.06.2008, 12:45

Это афигеть!!!! Убери символы _ _ _ _. Конечно не будет получаться. И под словом не получается понимается что макрос выполняется, но выдает не то, а не то что макрос вообще не выполняется.

@Alex_01 · 25.06.2008, 13:42 **[ТС]**

Символы не причем

- без них в одну строку тоже ничего не получается это и так понятно
А не работает - это значит excel считает разделителем ','(запятую), а не ';'(точку с запятой) - и изменить сие не получается

25.06.2008, 15:18

Это снова я. Попробовал твой код на 2000. Все прекрасно работает.

Visual Basic
1
2
3
4
5
6
7
8
    Dim sFile As String
    sFile = "C:\TMP\test.txt"
    Workbooks.OpenText Filename:=sFile, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(10, 2))
    Columns("E:F").Select
    Selection.NumberFormat = "0.00"

25.06.2008, 15:19

И Визард работает, если при открытии файла выбрать *.* пункт.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Alex_01 0 / 0 / 0 Регистрация: 23.06.2008 Сообщений: 30

	Как перевести текстовый файл в excel формат 23.06.2008, 14:18. Показов 14256. Ответов 52 Метки нет (Все метки) Люди помогите! 1. У меня имеется текстовый файл с разделителями: Пример 1;Собака;1;;;200;Овчарка; 3;Кошка;2;3;;;;;ммм; ........... Мне надо все это перевести при открытии в формат excel, но надо это сделать програмно (в модуле), не используя так сказать 'Мастер текстов' 2. И еще у меня почему-то не получается в модуле отсортировать числовую колонку, хотя в excel все работает, а после того, как запускаю записанный макрос не работает Заранее благодарен. 0

@Aleron 0 / 0 / 0 Регистрация: 23.03.2008 Сообщений: 32
	24.06.2008, 15:45
	я не понимаю зачем привязывать файл? можно же по другому сделать. с этим потом будут большие траблы. 0

@Alex_01 0 / 0 / 0 Регистрация: 23.06.2008 Сообщений: 30
	24.06.2008, 15:54 [ТС]
	To Aleron: Файл я не привязываю, тоесть Workbooks.Open Filename:='price.csv' 0

@Alex_01 0 / 0 / 0 Регистрация: 23.06.2008 Сообщений: 30
	24.06.2008, 15:56 [ТС]
	To Vita: >А может нужно ? sssFile = Application.FindFileWorkbooks.OpenText Filename:=sssFile переменная sssFile - это true/false 0

@Aleron 0 / 0 / 0 Регистрация: 23.03.2008 Сообщений: 32
	24.06.2008, 15:57
	он у тебя будет открываться пока ты не перегрузишь комп. не знаю, я от таких решений давно отказался. потому что мои проги используют по всей республике, и малоли что им в голову взбредет. 0

@Alex_01 0 / 0 / 0 Регистрация: 23.06.2008 Сообщений: 30
	24.06.2008, 15:58 [ТС]
	To Vita: >Потом пойдет Визард импорта, и в нем много всяческих опций, все это наглядно и позволяет поиграться. У меня 'Визард импорта' нет сразу файл открывается без предварительных окон (и сразу преобразованный) 0

@Alex_01 0 / 0 / 0 Регистрация: 23.06.2008 Сообщений: 30
	24.06.2008, 16:04 [ТС]
	To Aleron: Тоесть если я правильно тебя понял нужно полный путь до файла указывать? To All: Гемороя столько потому что я вообще-то веб-программист, а с excel первый раз встречаюсь, а начальство потребовало срочно прогу сваять чтобы эксулевский прайс в куки писался, ранжировался, поиск всякий и т.д. я все это сделал, осталось только эти две беды. так что если, что в голову взбредет пишите.... 0

@Aleron 0 / 0 / 0 Регистрация: 23.03.2008 Сообщений: 32
	24.06.2008, 16:07
	2 Alexts нет наоборот надо указать только имя файла а сам путь писать в textbox. если надо пример могу скинуть. 0

@Alex_01 0 / 0 / 0 Регистрация: 23.06.2008 Сообщений: 30
	24.06.2008, 16:09 [ТС]
	To Aleron: Если не трудно скинь пожалуйста: Alexts01@yandex.ru 0

Vita
	24.06.2008, 16:25
	У меня Application.FindFile - это Sub. И ее вызов приводит к вызову Визарда импорта текстового файла. Наверное, я больше уже ничем не смогу тебе помочь, ставить Офис2000 нет желания, чтобы дальше в нем смотреть, что можно сделать. Сорру.

@Alex_01 0 / 0 / 0 Регистрация: 23.06.2008 Сообщений: 30
	24.06.2008, 16:40 [ТС]
	To Vita: Спасибо большое за помощь Просто наверно действительно тяжело объяснять человеку который нихрена не знает в excel 0

@Aleron 0 / 0 / 0 Регистрация: 23.03.2008 Сообщений: 32
	24.06.2008, 16:40
	ладно разберемся поломаем голову думаю что в офисе 2К будет все работать. значит вывод - надо ставить всем офис 2К. 0

@Alex_01 0 / 0 / 0 Регистрация: 23.06.2008 Сообщений: 30
	24.06.2008, 16:44 [ТС]
	To Aleron: Я все написал за один день (включая изучение) А вот ранжирование и импорт - хрен знает как делать Может можно это дело как-то по другому обойти..... надо подумать... 0

Victory
	25.06.2008, 12:45
	Это афигеть!!!! Убери символы _ _ _ _. Конечно не будет получаться. И под словом не получается понимается что макрос выполняется, но выдает не то, а не то что макрос вообще не выполняется.

@Alex_01 0 / 0 / 0 Регистрация: 23.06.2008 Сообщений: 30
	25.06.2008, 13:42 [ТС]
	Символы не причем - без них в одну строку тоже ничего не получается это и так понятно А не работает - это значит excel считает разделителем ','(запятую), а не ';'(точку с запятой) - и изменить сие не получается 0

Vita
	25.06.2008, 15:19
	И Визард работает, если при открытии файла выбрать . пункт.