Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.04.2013, 15:27   #1
Akimich_
 
Регистрация: 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
Вложения
Тип файла: rar Desktop.rar (60.4 Кб, 4 просмотров)
Akimich_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Cуммирование значений из нескольких файлов в один в зависимости от двух условий Akimich_ Помощь студентам 0 03.04.2013 16:52
Сбор данных из нескольких листов на один с удалением дубликатов, но суммированием значений strannick Microsoft Office Excel 4 10.04.2012 19:18
Макрос для копирования значений из нескольких файлов в один общий с определенным условием копирования zenner Microsoft Office Excel 0 21.03.2011 14:48
Сборка нескольких файлов в один Gamst Помощь студентам 4 02.06.2010 20:19
Свод нескольких файлов Excel в один Стасон Microsoft Office Excel 2 24.02.2009 11:13