Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Свести много файлов
 
Добрый день.
Написал макрос, который копирует данные из файла.
А как сделать, чтобы макрос открывал не только конкретный файл, а все файлы в данной папке и копировал их в сводный файл

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

'
   Workbooks.Open Filename:= _
       "C:\file.xls"
   Range(Selection, Selection.End(xlToRight)).Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.Copy
   Windows("Сводный.xlsm" ).Activate
   ActiveSheet.Paste
   Application.CutCopyMode = False
End Sub
 
1. Код следует оформлять тегом. Исправьте.
2. Перебор файлов в папке можно найти в разделе "Приемы".
Страницы: 1
Читают тему (гостей: 1)