Как и обещала отписываю о результатах. Вариант KuklP при запуске начал спрашивать путь к каким то папкам . Вариант Hugo прошел на "Ура!". При копировании в другую папку, считает все как надо. Спасибо огромнейшее!!!! Низкий поклон и всех благ вашему дому!!!! Спасли! Посоветуйте, что почитать по VBA? Помимо форума, конечно же.
Извините, за поспешность.. Просто начальник требует, а я подобным программированием занималась еще в институте, давным давно.Вот так выглядит макрос, который тянет массив данных из первой папки 1 файла. Таких макросов 12, на каждый месяц соответственно :)
Код
Sub январь_1()'отключаем мерцание
Application.ScreenUpdating = False
'открываем книгу январь тэц1
Workbooks.Open Filename:="C:\Users\кр_en\2016 проект\TEZ-2\01-ком-2.xls"
Worksheets("ITOG2").Select
Range("K5:K30").Select
Selection.Copy
'открываем книгу плана
Workbooks("комс тэ 2016 - копия.xls").Activate
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues
'закрываем книгу
Workbooks("01-ком-2.xls").Close
Application.ScreenUpdating = True
End Sub
Доброго времени суток! Очень нужна помощь. Есть папка с именем "Проект 2016", в которой находится экселевский файл "Проект", и еще две папки 1 и 2, в которых еще по 12 файлов эксель с данными. В файле "Проект" я прописала макрос, который собирает данные с каждого файла в обеих папках, в одну таблицу. Вопрос: при копировании файла "Проект" в папку с именем "Проект 2017", в которой так же 2 папки по 12 файлов каждой. Можно ли, написать макрос для определения местоположения файла "Проект", так, что бы макрос переноса работал в этой папке без замены пути к папкам 1 и 2 в макросе? Надуюсь нормально объяснила.