Обработка файлов из одной папки

Пользователь

Сообщений: 30 Регистрация: 28.01.2014

18.07.2014 09:58:41

Ребят, всем привет! Подскажите пожалуйста, как сделать

Код

Sub Макрос1()
'
' Макрос1 Макрос
'

'


Workbooks.Open Filename:="D:\Новая папка\konsolidation\doc1.xlsx"
Workbooks.Open Filename:="D:\Новая папка\konsolidation\doc2.xlsx"
Workbooks.Open Filename:="D:\Новая папка\konsolidation\doc3.xlsx"

    Dim FilesToOpen
    Dim x As Integer
 
    Application.ScreenUpdating = False
     
   
  
Workbooks("doc1.xls").Worksheets("Лист1").Range("A2:D10").Copy
    Windows("doc1.xls").Activate
    Range("A2:D10").Select
    Selection.Copy
    Windows("glavdoc.xls").Activate
    ActiveSheet.Paste
    Windows("doc2.xls").Activate
    Range("A6:C14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("E8").Select
    ActiveSheet.Paste
    Windows("doc1.xls").Activate
    Range("F2:G10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("H8").Select
    ActiveSheet.Paste
    Windows("doc2.xls").Activate
    Range("G6:K14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("J8").Select
    ActiveSheet.Paste
    Windows("doc1.xls").Activate
    Sheets("Лист2").Select
    Range("C2:D5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("F2").Select
    ActiveSheet.Paste
    Windows("doc3.xls").Activate
    Range("G2:G5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("H2").Select
    ActiveSheet.Paste
    Sheets("Лист2").Select
    Windows("doc1.xls").Activate
    Sheets("Лист1").Select
    Range("K2:Q10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("A9").Select
    ActiveSheet.Paste
    Windows("doc2.xls").Activate
    Range("M6:M14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("H9").Select
    ActiveSheet.Paste
    Windows("doc1.xls").Activate
    Range("S2:U10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("I9").Select
    ActiveSheet.Paste
    Windows("doc2.xls").Activate
    Range("D6:G14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("L9").Select
    ActiveSheet.Paste
    Windows("doc3.xls").Activate
    Range("A2:C5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("G2").Select
    ActiveSheet.Paste
    Windows("doc1.xls").Activate
    Sheets("Лист2").Select
    Range("G2:G5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("glavdoc.xls").Activate
    Range("J2").Select
    ActiveSheet.Paste
     Application.ScreenUpdating = True
    Workbooks("doc1.xls").Close
    Workbooks("doc2.xls").Close
    Workbooks("doc3.xls").Close
End Sub

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

Прикрепленные файлы

123.rar (30.59 КБ)

Изменено: meshkale - 18.07.2014 09:59:26

Юрий М Модератор Сообщений: 61037 Регистрация: 14.09.2012 Контакты см. в профиле	#2 18.07.2014 12:51:29 В "Приемах" есть статья "Сборка листов из разных книг в одну" - там всё без пароля))

meshkale Пользователь Сообщений: 30 Регистрация: 28.01.2014	#3 21.07.2014 14:19:01 Я видел, но почему то у меня макрос только пустые листы добавляет, пример открывает документы только по пути к ним и добавляет на отдельные листы а не в одну таблицу((

Игорь Пользователь Сообщений: 3679 Регистрация: 23.12.2012	#4 21.07.2014 14:21:47 Это пробовали? Сбор данных из файлов Excel в заданной папке

The_Prist Пользователь Сообщений: 14893 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#5 21.07.2014 15:21:46 До кучи: Просмотреть все файлы в папке Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

meshkale Пользователь Сообщений: 30 Регистрация: 28.01.2014	#6 02.08.2014 13:48:28 Спасибо всем ! еще не смотрел но обязательно попробую! Игорь, пробовал, но не разобрался немного с функцией. The_Prist, этого еще не видел огромное спасибо!

Hugo Пользователь Сообщений: 23799 Регистрация: 22.12.2012	#7 02.08.2014 14:10:55 Вы бы рассказали что именно хотите сделать - т.к. по коду трудно понять смысл действа. Выбор файлов там вообще ни к чему (правильно что на форуме не показали ), что-то куда-то копируется затирая заголовки... Будет понятно - может кто и поможет кодом.