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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 03.04.2013, 16:52   #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 Кб, 9 просмотров)
Akimich_ вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование файлов из нескольких директорий в одну 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