Организация циклической вставки данных

@San8691 · Регистрация: 01.08.2011

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

Необходим макрос последовательного ввода данных в рабочую книгу из набора большого количества файлов, находящихся в 1 папке, например, с:\Baza и именуемые Файл1.xls, Файл2.xls и так далее. У всех у них один лист и называется одинаково "Лист1". Количество таких файлов конечно, но пока неизвестно. Необходимо последовательно в текущую открытую книгу на "Лист1" вставлять данные со столбца "А" по столбец "К" каждого из файлов последовательно, закрывая потом файл-источник. Возможно ли, чтобы макрос сам определял количество файлов-источников и формировал цикл? Процедура будет выполнятся многократно, поэтому нужен макрос. Процедуру обработки данных вставлю сам в нужное место.

Добавлено через 23 минуты
Забыл уточнить. Реализовать надо без использования буфера обмена.

@San8691 · 16.01.2013, 21:38 **[ТС]**

https://www.cyberforum.ru/post4011635.html тут в строке 5 указал свой путь. Больше ничего не трогал. Что-нибудь еще надо было править или вводить?

Скрипт · 16.01.2013, 21:44

San8691, у меня работает этот код.

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

Поэтому нужно создать новую книгу, сохранить её и только потом запускать код.
Или запускать код, когда уже открыта существующая книга.

@San8691 · 16.01.2013, 21:45 **[ТС]**

у меня на работе тоже работал код. Открытая и сохраненая давным давно та книга, где сидит макрос. Ну что тут не так?. уже запутался Вообще то у меня этот файл на флешке и компы дают ему разную букву названия съемного диска. Может тут зарыто?

@Hugo121 · 16.01.2013, 21:48

Я не уверен, что правильно это:

Visual Basic
1
PathName:=myPath & "\" & myFile

В хелпе просто путь к файлу в кавычках:

Visual Basic
1
2
Dim CADObject As Object
Set CADObject = GetObject("C:\CAD\SCHEMA.CAD")

Ну и при закрытии я обычно просто пишу 0/1 или true/false - хотя про это в хелпе по getobject примера нет.

Скрипт · 16.01.2013, 21:52

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

Я не уверен, что правильно это:

у меня работает этот код:
https://www.cyberforum.ru/post4011635.html

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

Вообще то у меня этот файл на флешке и компы дают ему разную букву названия съемного диска. Может тут зарыто?

может путь неправильно указываете - с ошибками.

Потренируйтесь на каком-нибудь простом коде, чтобы узнать: правильно вы указываете путь или нет.

@San8691 · 16.01.2013, 22:01 **[ТС]**

а все одинаково. Не работает и все тут. Завтра на рабочем компе попробую - сообщу

Скрипт · 17.01.2013, 04:43

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

Вообще то у меня этот файл на флешке и компы дают ему разную букву названия съемного диска. Может тут зарыто?

я попробовал с флешкой - то же всё работает.

Я про этот код (этот код использует GetObject):
https://www.cyberforum.ru/post4011635.html

А этот код у вас работает?
https://www.cyberforum.ru/post4008938.html

У меня был случай - я точно не помню, что было, - но с GetObject какая-то проблема была в Excel. Файл нужно было полностью открыть, чтобы что-то с ним сделать.

И ещё, я же тестирую код на своих книгах - у меня одни данные в книгах, а у вас данные в книгах другие и поэтому у вас может не работать, а у меня всё работает.

@San8691 · 17.01.2013, 07:42 **[ТС]**

ни тот ни другой не работают. Попробую более ранние версии.

Добавлено через 10 минут
Сама слетела библиотека. снова подключил. Уже ничего не работает даже с 3 страницы темы. Все та же строка. Причем встает на втором проходе цикла.

@San8691 · 17.01.2013, 08:23 **[ТС]**

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

Добавлено через 25 минут
https://www.cyberforum.ru/post4011635.html все нормально работает.

Скрипт · 17.01.2013, 12:06

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

Сама слетела библиотека. снова подключил.

для этого кода:
https://www.cyberforum.ru/post4011635.html

не нужно подключать никаких библиотек.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" 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 и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@San8691 16 / 4 / 0 Регистрация: 01.08.2011 Сообщений: 72

	Организация циклической вставки данных 15.01.2013, 14:12. Показов 7971. Ответов 69 Метки нет (Все метки) Необходим макрос последовательного ввода данных в рабочую книгу из набора большого количества файлов, находящихся в 1 папке, например, с:\Baza и именуемые Файл1.xls, Файл2.xls и так далее. У всех у них один лист и называется одинаково "Лист1". Количество таких файлов конечно, но пока неизвестно. Необходимо последовательно в текущую открытую книгу на "Лист1" вставлять данные со столбца "А" по столбец "К" каждого из файлов последовательно, закрывая потом файл-источник. Возможно ли, чтобы макрос сам определял количество файлов-источников и формировал цикл? Процедура будет выполнятся многократно, поэтому нужен макрос. Процедуру обработки данных вставлю сам в нужное место. Добавлено через 23 минуты Забыл уточнить. Реализовать надо без использования буфера обмена. 0

@San8691 16 / 4 / 0 Регистрация: 01.08.2011 Сообщений: 72
	16.01.2013, 21:38 [ТС]
	https://www.cyberforum.ru/post4011635.html тут в строке 5 указал свой путь. Больше ничего не трогал. Что-нибудь еще надо было править или вводить? 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	16.01.2013, 21:44
	San8691, у меня работает этот код. У меня были проблемы, только когда я открывал новую книгу и запускал макрос. В ходе выполнения кода, новая книга закрывалась, когда открывался файл. Поэтому нужно создать новую книгу, сохранить её и только потом запускать код. Или запускать код, когда уже открыта существующая книга. 0

@San8691 16 / 4 / 0 Регистрация: 01.08.2011 Сообщений: 72
	16.01.2013, 21:45 [ТС]
	у меня на работе тоже работал код. Открытая и сохраненая давным давно та книга, где сидит макрос. Ну что тут не так?. уже запутался Вообще то у меня этот файл на флешке и компы дают ему разную букву названия съемного диска. Может тут зарыто? 0

@San8691 16 / 4 / 0 Регистрация: 01.08.2011 Сообщений: 72
	16.01.2013, 22:01 [ТС]
	а все одинаково. Не работает и все тут. Завтра на рабочем компе попробую - сообщу 0

@San8691 16 / 4 / 0 Регистрация: 01.08.2011 Сообщений: 72
	17.01.2013, 07:42 [ТС]
	ни тот ни другой не работают. Попробую более ранние версии. Добавлено через 10 минут Сама слетела библиотека. снова подключил. Уже ничего не работает даже с 3 страницы темы. Все та же строка. Причем встает на втором проходе цикла. Миниатюры 0

@San8691 16 / 4 / 0 Регистрация: 01.08.2011 Сообщений: 72
	17.01.2013, 08:23 [ТС]
	ну наконец то нашел кракозябру. вручную открывал файлы-источники и на одном из них выдало - типа содержит содержимое, которое нельзя прочитать - сейчас все работает. Попробую последний вариант прогнать Добавлено через 25 минут https://www.cyberforum.ru/post4011635.html все нормально работает. 1