|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.04.2013, 16:52 | #1 |
Регистрация: 03.04.2013
Сообщений: 3
|
Cуммирование значений из нескольких файлов в один в зависимости от двух условий
Помогите дописАть макрос. Имеем: Разное количество файлов с одинаковой структурой и один файл "Свод". Необходимо из файла 1.1 и.т.д в зависимости от двух условий (строка которая с городами) и столбца (код) скопировать значение и прибавить его в ячейку которая также совпадёт с кодом и название города в файле "Свод". Сложности с суммированием значений в зависимости от двух условий в файл "Свод".
Код HTML:
Sub Обработка() Dim MyName, MyPath As String Dim wbX As Workbook MyPath = "S:\Письма\" 'исходная папка для обработки файлов MyName = Dir(MyPath & "*.xlsx") Do While MyName <> "" sPath = MyPath + MyName Excel.Application.Workbooks.Open sPath MyName = Dir Loop For Each wbX In ActiveWorkbooks ' здесь копирование значения ячейки I9 и в зависимости от I8 и B9 в файл "Свод" - вставка. Далее с ячейкой J9 и так до O9. ' затем переход на строку 10 и всё то же самое. ' обрабатывать до тех пор пока следующая строка пустая, далее: Range("A9") = "Обработан" ActiveWorkbook.Close Savechanges:=True Next wbX End Sub |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Копирование файлов из нескольких директорий в одну | artemavd | Общие вопросы Delphi | 21 | 24.11.2010 19:27 |
Экспорт значений из нескольких документов Word в одну таблицу Excel для дальнейших расчетов. | YJYNGK | Microsoft Office Excel | 0 | 30.10.2010 13:42 |
Как организовать импорт двух файлов в одну базу данных | SergeyK | Microsoft Office Access | 2 | 15.10.2010 13:36 |
Скрытие линии в зависимости от условий | Brucebelg | Microsoft Office Excel | 7 | 19.05.2010 14:27 |
как изменять цвет ячейки в зависимости от условий ? | Витёк | Microsoft Office Excel | 2 | 19.06.2007 13:10 |