Импорт текста из txt в excel

@blackfisk · Регистрация: 21.05.2020

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

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

15rt63 174asd94 39047 494 39a049 0304
157863 174394 39047 4a94 39049 0304

1a57863 1asd394 390ds47 494 390a49 0304
15d7863 174394 39047 494 39dsd049 0304

157863 17asd394 39047 494 39049 0304
157863 174d394 3904a7 494 39049 0304

Нужен макрос, который бы скопировал всё и вставил также по столбикам с первой ячейки первой строчки в определенный лист excel файла

Листая интернет, я нашел много ссылок на такие макросы, но почему то они у меня не работают. Я их слабо понимаю, и видимо одной замены расположения txt файла недостаточно, помогите :/
Спасибо

@amd48 · 31.08.2020, 14:47

Сообщение от Hugo121

tmp(x) = --tm(x)

чооооо? это работает в VBA?

Пффф. На секунду показалось, что это
tmp(x) -= tm(x)
Но и так тоже... Эм... Зачем?

@Hugo121 · 31.08.2020, 14:54

Да всегда работало, и в функциях листа тоже...

Добавлено через 5 минут
Затем что иначе там текст, хоть и число. И народ жалуется!

@amd48 · 31.08.2020, 14:55

Таки смысл этой операции какой? Один знак минуса - это смена знака. Два - дважды. В итоге знак не меняется. Зачем тогда выражение Else, если там происходит то же самое присвоение, но без проворачивания знака?

Добавлено через 37 секунд

Сообщение от Hugo121

иначе там текст, хоть и число

Это индусская реализация Val?

@Hugo121 · 31.08.2020, 14:59

Смысл - превратить "123" в 123. В другой массив, ибо изначальный типа string.

Добавлено через 1 минуту
Val - 3 знака, + ещё скобки

хотя... Ща сравню.

Добавлено через 2 минуты
Не, у меня Val() убивает все дроби, да и текст всё равно нужно оставлять... Бинарный минус проще.

@amd48 · 31.08.2020, 15:00

Сообщение от Hugo121

превратить "123" в 123

Это-то понятно. Но можно использовать нормальную такую функцию приведения к типу Val, а не этот индуизм

К примеру, на памяти индусское определение вхождение числа в диапазон от 0 до 9 через Len. Если больше 1, значит это или 10 и более или -1 и менее. Но это же индуууусы

@Hugo121 · 31.08.2020, 15:00

Ну пусть индусский, хотя так Вы первый назвали

@amd48 · 31.08.2020, 15:01

Сообщение от Hugo121

Val() убивает все дроби

Ну, если число записано через дробный знак ТОЧКА, то Val преобразует нормально

@Hugo121 · 31.08.2020, 15:02

Ну так там не точка, это ещё нужно замену делать...

@amd48 · 31.08.2020, 15:05

Ок. Но эту строчку таки надо подробно так закомментировать, что в ней происходит

А то некоторые могут сойти с ума, когда наткнутся на такое решение.
Я, конечно, не настоящий программист, но с таким встречаюсь впервые. Прикольно

@blackfisk · 01.09.2020, 07:33 **[ТС]**

Спасибо большое

А если исходный файл не имеет пробелов, типа, там написано
Сотрудник=Иванов И.И.
расстояние=0.92222222

VBA из excel может повлиять на этот файл? Считать =, как разделение между ячейками, чтобы "Сотрудник" - в первой ячейке, а Иванов И.И. в другой, а также заменить "." на ","?

@Narimanych · 01.09.2020, 09:14

blackfisk,

Опять 25.
Есть ли есть вопрос- должен быть прикреплен файл с деталями...
Кроме вас , в данной ситуации, никто не понял что есть и что нужно делать.

@Hugo121 · 01.09.2020, 10:02

Сообщение от blackfisk

VBA из excel может повлиять на этот файл?

Может.
А т.к. спрашиваете - значит Вы вообще не вникаете в предложенные решения.

@blackfisk · 01.09.2020, 10:05 **[ТС]**

Сообщение от Hugo121

Может.
А т.к. спрашиваете - значит Вы вообще не вникаете в предложенные решения.

"может" - Всего лишь выражение. Кажется я сделал какой то костыльный макрос для этого, только у меня осталась одна проблема
В ячейке записывается время вот так: "26.12.2020 18:30:00" - а excel не понимает такого формата, что делать не знаю

@Hugo121 · 01.09.2020, 10:21

Вы спросили, я ответил, что не так?

Сообщение от blackfisk

что делать не знаю

Сообщение от Hugo121

Можно добавить форматов столбцам

@Catstail · 01.09.2020, 13:26

Сообщение от Hugo121

If IsNumeric(tm(x)) Then tmp(x) = --tm(x) Else tmp(x) = tm(x)

- что это?

@Hugo121 · 01.09.2020, 15:47

Если элемент есть по сути число, то преобразуем в число, иначе оставляем как есть.
Не притворяйтесь что не поняли

Покажите свой вариант, решающий эту задачу - превратить "123" в 123 при условии что может попасться и "слово".

@amd48 · 01.09.2020, 16:28

Сообщение от blackfisk

"26.12.2020 18:30:00"

Visual Basic
1
2
a = "26.12.2020 18:30:00"'переменная имеет значение даты в текстовом формате
b = DateValue(a) + TimeValue(a)'переменная b получает значение в формате даты-времени

@blackfisk · 02.09.2020, 09:29 **[ТС]**

Сообщение от Hugo121

Вы спросили, я ответил, что не так?

Вы так говорите, будто я на Вас наезжаю
Я понял всех Вас, и дописал всё что нужно было, для корректной работы
Всем Спасибо

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

1. Я открываю случайный xlsx файл
2. Запускаю макрос из персональной книги.
Работа макроса направлена на копирование определенных ячеек с разных листов из ОТКРЫТОГО файла в первую пустую строку конкретного файла (название и путь которого я знаю).
Макрос откроет конкретный файл и начнет пошагово переносить данные ячеек, но вот как ему объяснить какое окно в данный момент должно быть активно, чтобы он взял нужную ячейку
Затем макрос должен поставить прочерки в пустых ячейках заполненной строки
3. Закрыть и сохранить "конкретный" файл.

Не представляю, как я буду писать этот макрос. Но пока основная проблема это выбор между окнами excel

Добавлено через 1 час 0 минут
Ага, ответом на вопрос являются:

Visual Basic
1
2
ThisWorkbook.Activate 
Workbooks(Workbooks.Count).Activate

Теперь необходимо найти первую пустую строчку или ячейку

@amd48 · 02.09.2020, 09:49

Сообщение от blackfisk

найти первую пустую строчку или ячейку

Проходить по ним в цикле и проверять каждую, пустая она или нет.
Или, если область работы с ячейками заканчивается реальными данными, то последнюю строку найти так:

Visual Basic
1
debug.print Cells(Rows.Count, 1).End(xlUp).Row

@blackfisk · 02.09.2020, 11:31 **[ТС]**

Сообщение от amd48

Проходить по ним в цикле и проверять каждую, пустая она или нет.
Или, если область работы с ячейками заканчивается реальными данными, то последнюю строку найти так:

Visual Basic
1
debug.print Cells(Rows.Count, 1).End(xlUp).Row

Спасибо, я тоже нашел вариант похожий, переделал его под себя, чтобы выделял строку

Новые блоги и статьи Все статьи Все блоги /
Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .

@blackfisk Нет, ну ты видел?! 8 / 8 / 0 Регистрация: 21.05.2020 Сообщений: 146

	Импорт текста из txt в excel 31.08.2020, 08:17. Показов 17568. Ответов 74 Метки vba импорт, импорт данных, импорт текста excel (Все метки) Здравствуйте, Есть файл txt_01.txt, из него необходимо скопировать содержимое Содержимое столбцами расположено, примеру так 15rt63 174asd94 39047 494 39a049 0304 157863 174394 39047 4a94 39049 0304 1a57863 1asd394 390ds47 494 390a49 0304 15d7863 174394 39047 494 39dsd049 0304 157863 17asd394 39047 494 39049 0304 157863 174d394 3904a7 494 39049 0304 Нужен макрос, который бы скопировал всё и вставил также по столбикам с первой ячейки первой строчки в определенный лист excel файла Листая интернет, я нашел много ссылок на такие макросы, но почему то они у меня не работают. Я их слабо понимаю, и видимо одной замены расположения txt файла недостаточно, помогите :/ Спасибо 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	31.08.2020, 14:54
	Да всегда работало, и в функциях листа тоже... Добавлено через 5 минут Затем что иначе там текст, хоть и число. И народ жалуется! 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	31.08.2020, 14:59
	Смысл - превратить "123" в 123. В другой массив, ибо изначальный типа string. Добавлено через 1 минуту Val - 3 знака, + ещё скобки хотя... Ща сравню. Добавлено через 2 минуты Не, у меня Val() убивает все дроби, да и текст всё равно нужно оставлять... Бинарный минус проще. 1

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	31.08.2020, 15:00
	Ну пусть индусский, хотя так Вы первый назвали 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	31.08.2020, 15:02
	Ну так там не точка, это ещё нужно замену делать... 0

@amd48 845 / 475 / 80 Регистрация: 18.05.2016 Сообщений: 1,267 Записей в блоге: 5
	31.08.2020, 15:05
	Ок. Но эту строчку таки надо подробно так закомментировать, что в ней происходит А то некоторые могут сойти с ума, когда наткнутся на такое решение. Я, конечно, не настоящий программист, но с таким встречаюсь впервые. Прикольно 0

@blackfisk Нет, ну ты видел?! 8 / 8 / 0 Регистрация: 21.05.2020 Сообщений: 146
	01.09.2020, 07:33 [ТС]
	Спасибо большое А если исходный файл не имеет пробелов, типа, там написано Сотрудник=Иванов И.И. расстояние=0.92222222 VBA из excel может повлиять на этот файл? Считать =, как разделение между ячейками, чтобы "Сотрудник" - в первой ячейке, а Иванов И.И. в другой, а также заменить "." на ","? 0

@Narimanych 2752 / 1726 / 779 Регистрация: 23.03.2015 Сообщений: 5,452
	01.09.2020, 09:14
	blackfisk, Опять 25. Есть ли есть вопрос- должен быть прикреплен файл с деталями... Кроме вас , в данной ситуации, никто не понял что есть и что нужно делать. 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	01.09.2020, 15:47
	Если элемент есть по сути число, то преобразуем в число, иначе оставляем как есть. Не притворяйтесь что не поняли Покажите свой вариант, решающий эту задачу - превратить "123" в 123 при условии что может попасться и "слово". 0