Форум программистов, компьютерный форум, киберфорум
Microsoft Office
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 28.04.2021
Сообщений: 27
1

Импорт данных из txt в excel vba?

09.05.2021, 08:03. Показов 881. Ответов 30
Метки нет (Все метки)

Добрый день. Нужно загрузить данные из отчета ( txt файл) в excel для дальнейшей работы с ним ( в таблице excel хранятся данные за все время работы, которые пополняются каждый день). В идеале, чтобы данные из тхт сохранялись сразу в умную таблицу .. далее чз впр я свяжу данные между собой чз другой макрос. Заранее благодарю !
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.05.2021, 08:03
Ответы с готовыми решениями:

Импорт данных из dbf в excel через VBA (Provider=vfpoledb)
Добрый день. Помогите корректно импортировать данные из вложенного dbf-файла в excel, используя...

Импорт txt в Excel
Здравствуйте! Имеется txt документ. Нужен макрос, которы будет конвертировать информацию из него в...

Импорт txt в excel
Добрый день! Есть макрос, который импортирует txt файл в excel, подскажите, пожалуйста, как...

Импорт txt в excel
Добрый день! Если кто-нибудь знает, подскажите, пожалуйста, как решить данную задачу: у меня есть...

30
506 / 171 / 84
Регистрация: 30.01.2020
Сообщений: 451
12.05.2021, 12:24 21
Цитата Сообщение от Valeriy2c Посмотреть сообщение
Ещё есть варианты ?
Цитата Сообщение от Punkt5 Посмотреть сообщение
на имена листов есть определённые ограничения - не более 31 символа, и не все спецсимволы можно использовать
Поскольку опять же мне не известно, что именно вы туда пишете, думаю вам самое время проверить то, что рекомендует отладчик: длину и наличие запрещённых символов в той строке, которую вы пытаетесь впендюрить в Name ActiveSheet.
0
1 / 1 / 0
Регистрация: 28.04.2021
Сообщений: 27
12.05.2021, 12:26  [ТС] 22
application defined or object defined error
0
1 / 1 / 0
Регистрация: 28.04.2021
Сообщений: 27
12.05.2021, 12:29  [ТС] 23
Ничего сложного я впиндюрить не пытаюсь, как видишь
0
Миниатюры
Импорт данных из txt в excel vba?  
506 / 171 / 84
Регистрация: 30.01.2020
Сообщений: 451
12.05.2021, 12:35 24
Цитата Сообщение от Valeriy2c Посмотреть сообщение
Ничего сложного я впиндюрить не пытаюсь, как видишь
Что я должен увидеть? Где на этой картинке то, что ты пытаешься вписать в имя листа? Миелофон ещё вроде не изобрели пока.
0
1 / 1 / 0
Регистрация: 28.04.2021
Сообщений: 27
12.05.2021, 12:40  [ТС] 25
Это данные, которые я пытаюсь перенести из txt в excel ( судя по названию темы )
0
506 / 171 / 84
Регистрация: 30.01.2020
Сообщений: 451
12.05.2021, 12:47 26
Цитата Сообщение от Valeriy2c Посмотреть сообщение
Это данные, которые я пытаюсь перенести из txt в excel
Цитата Сообщение от Valeriy2c Посмотреть сообщение
наименование он не подгружает в excel
Имелось в виду наименование файла? Которое нужно вписать в имя листа? Ну, "1.txt" туда отлично должен вписаться. Вы его вписываете, или что-то другое?
Или имелось в виду, что где-то далеко позади за артикулом есть наименование этого товара? И его надо как-то найти.
Или, что наименование товара разложено по артикулам в другом файле и из него надо тоже подгрузить? Или мы уже о чём-то другом говорим?
0
1 / 1 / 0
Регистрация: 28.04.2021
Сообщений: 27
12.05.2021, 13:07  [ТС] 27
Ещё раз
Нужно загрузить данные ( которые на фото ) из тестового файла (формат файла txt )
А загрузить их нужно в excel на лист 2
На листе 1 будет таблица в которую при помощи впр эти данные будут подтягиваться

Основная информация это артикул и количество

Добавлено через 15 минут
Ну вот смотри
По факту ты ничего дельного не предложил, умничал там что-то ..а теперь заднюю включил, ещё и плакал что-то про правила форума
0
506 / 171 / 84
Регистрация: 30.01.2020
Сообщений: 451
12.05.2021, 13:09 28
Цитата Сообщение от Valeriy2c Посмотреть сообщение
Ещё раз
Нужно загрузить данные ( которые на фото ) из тестового файла (формат файла txt )
А загрузить их нужно в excel на лист 2
На листе 1 будет таблица в которую при помощи впр эти данные будут подтягиваться
Ещё раз. Для того, чтобы кто-то что-то написал для вас, ему надо иметь чёткое описание задачи + набор исходных данных + желаемый результат. Для этого то, кто реально хочет, чтобы ему помогли с решением, а не потрындеть заглянул, набивает ручками исходный файл, набивает ручками желаемый результат, помещает всё в архив, прикладывает этот архив к теме и максимально подробно старается описать задачу и те проблемы, которые хотелось бы обойти в результате. По картинке я насчитал навскидку 11 возможных способов преобразования, каждый из которых может быть реализован отдельной программой. Оно мне надо: писать 11 разных модулей, чтобы может ни один в вашем случае не сработал, просто потому, что кодировка файла экзотическая, или в качестве пустого разделителя использованы не символы с кодом ASCII 32, а что-то другое. Просто потому, что вы жмётесь приложить исходный файл. Опять же число выходных вариантов тоже выйдет за десяток, если учитывать местные идиотизмы различных правил ведения учёта. Если тут ещё учесть идиотизмы автоматического преобразования некоторых текстовых данных Экселем, наберётся куча кода, который некуда будет девать. И всё из-за того, что кому-то (явно не мне) неохота сформулировать нормальное ТЗ и приложить нормальные файлы примеров исходников и примера результата.
0
1 / 1 / 0
Регистрация: 28.04.2021
Сообщений: 27
12.05.2021, 13:14  [ТС] 29
Видимо я не на тот форум зашёл. Тут по ходу клиника какая-то
0
733 / 435 / 148
Регистрация: 22.12.2015
Сообщений: 1,309
13.05.2021, 10:50 30
Цитата Сообщение от Valeriy2c Посмотреть сообщение
Мне нужен простой макрос в котором не надо разбираться
Valeriy2c, два варианта простого кода. Первый открывает файл и записывает все его содержимое в ячейку А1.
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
Sub ea1()
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("c:\1\1.txt")
Set TextStream = File.OpenAsTextStream(1)
ActiveSheet.Range("A1").Value = TextStream.Readall
TextStream.Close
End Sub

Второй переносит информацию из файла txt построчно в ячейки от А2 до А n+1, где n - число строк в вашем txt.
Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub ea2()
Dim i As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("c:\1\1.txt")
Set TextStream = File.OpenAsTextStream(1)
 
While Not TextStream.AtEndOfStream
i = i + 1
     ActiveSheet.Range("A1").Offset(i, 0).Value = TextStream.ReadLine()
Wend
TextStream.Close
End Sub

Цитата Сообщение от Valeriy2c Посмотреть сообщение
А загрузить их нужно в excel на лист 2
Больше чем уверен, что не на "лист 2", а на "Лист2", для кода это два различных листа. Пока - грузить будет на активный лист, поправить можно позже, когда будет понимание, что все работает правильно.
Цитата Сообщение от Valeriy2c Посмотреть сообщение
чз впр я свяжу данные между собой
Для этого перенесенные из txt данные нужно разбить по столбцам? В эксель все будет перенесено построчно. Если информацию нужно разбить на столбцы, по какому принципу ее делить? В вашей фоточке - вроде бы если заменить несколько пробелов на один, то можно разбить на столбцы по пробелам... Но это не точно.
Цитата Сообщение от Valeriy2c Посмотреть сообщение
он загружает не все информацию .. наименование он не подгружает в excel.
Что такое "наименование"?
Цитата Сообщение от Valeriy2c Посмотреть сообщение
Видимо я не на тот форум зашёл.
Золотые слова: вопросы vba на форуме принято обсуждать в профильном разделе https://www.cyberforum.ru/vba/
Те, кому интересен VBA сюда могут в принципе не заглядывать, большого смысла писать в этот подфорум с вопросами vba действительно нет.
Цитата Сообщение от Valeriy2c Посмотреть сообщение
а если и буду когда-нибудь в них разбираться и ко мне обратятся за советом, я обязательно дам простой, развёрнутый ответ на который не будет возникать ещё много вопросов.
Тоже соглашусь: вы же наверняка разбираетесь в чем-то другом, сами помогите другим участникам в знакомых вам разделам.
Разумеется вам тоже будут охотнее помогать, если вместо нуля у вас будет стоять солидное число решенных вами тем. Надеюсь - заднюю не включите и пойдете консультировать в других разделах.
Цитата Сообщение от Valeriy2c Посмотреть сообщение
ещё и плакал что-то про правила форума
Ваше недовольство в адрес единственного человека, который пытается вникнуть в вашу проблему, переходит все рамки приличий.
Если считаете, что вас задели в рамках обсуждения - обратитесь к модератору, а не ведите себя в традициях пошлейшей школоты. На ресурсах с менее толерантной модерацией вы сами бы уже сидели в бане для возможности поразмышлять, чем воспитанный человек отличается от других людей.
1
1 / 1 / 0
Регистрация: 28.04.2021
Сообщений: 27
13.05.2021, 12:22  [ТС] 31
Все работает !!

Добавлено через 1 минуту
Премного благодарен!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2021, 12:22

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Импорт текста из txt в excel
Здравствуйте, Есть файл txt_01.txt, из него необходимо скопировать содержимое Содержимое...

Импорт из Excel или Txt в БД Лотус
Вроде тема поднимлась так или иначе, но то что нужно не нашла. Пожалуйста, поделитесь скриптом,...

VBA парсинг и импорт в столбец excel
Всем привет. Решил сделать парсинг сайта: https://2gis.ru/ekaterinburg/rubrics На данный момент...

Импорт текста в Excel средствами VBA
Здравствуйте! Нужно импортировать в Excel текстовые файлы с разделителями (например логи Squid)...

Импорт значений из pdf в Excel VBA
Здравствуйте ! А не смогли бы вы подсказать где найти информацию по копированию значений из...

ADP VBA импорт из Excel - ошибка сортировки
Всем привет! Есть вот такой код (нашел на просторах сети, адаптировал под свои данные): Private...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
31
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.