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

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

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

Необходим макрос последовательного ввода данных в рабочую книгу из набора большого количества файлов, находящихся в 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

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

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

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

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	16.01.2013, 21:52	65
	Сообщение от Hugo121 Я не уверен, что правильно это: у меня работает этот код: https://www.cyberforum.ru/post4011635.html Сообщение от San8691 Вообще то у меня этот файл на флешке и компы дают ему разную букву названия съемного диска. Может тут зарыто? может путь неправильно указываете - с ошибками. Потренируйтесь на каком-нибудь простом коде, чтобы узнать: правильно вы указываете путь или нет. 0

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

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	17.01.2013, 04:43	67
	Сообщение от San8691 Вообще то у меня этот файл на флешке и компы дают ему разную букву названия съемного диска. Может тут зарыто? я попробовал с флешкой - то же всё работает. Я про этот код (этот код использует GetObject): https://www.cyberforum.ru/post4011635.html А этот код у вас работает? https://www.cyberforum.ru/post4008938.html У меня был случай - я точно не помню, что было, - но с GetObject какая-то проблема была в Excel. Файл нужно было полностью открыть, чтобы что-то с ним сделать. И ещё, я же тестирую код на своих книгах - у меня одни данные в книгах, а у вас данные в книгах другие и поэтому у вас может не работать, а у меня всё работает. 0

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

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

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

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

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	17.01.2013, 12:06	70
	Сообщение от San8691 Сама слетела библиотека. снова подключил. для этого кода: https://www.cyberforum.ru/post4011635.html не нужно подключать никаких библиотек. 2