Народ, добрый день всем.
В кое-то веки сам смог написать код работающий под загрузку данных (был для одного файла - как пробник). Решил сделать аналогичную операцию для ряда похожих файлов, чтобы выбирал пути и подгружал данные циклом. То есть, цикл должен по моей задумке пройтись по некоторым ячейкам в столбце последовательно, где указаны пути к папкам.
Начала вылезать ошибка "type mismatch" error 13. Подскажите плиз, что не так... Дебажит на строку цикла For.
Всем добра!
В кое-то веки сам смог написать код работающий под загрузку данных (был для одного файла - как пробник). Решил сделать аналогичную операцию для ряда похожих файлов, чтобы выбирал пути и подгружал данные циклом. То есть, цикл должен по моей задумке пройтись по некоторым ячейкам в столбце последовательно, где указаны пути к папкам.
Начала вылезать ошибка "type mismatch" error 13. Подскажите плиз, что не так... Дебажит на строку цикла For.
Всем добра!
Код |
---|
Sub Consolidate() 'Макрос открытия файла Dim wb As Workbook Dim rc&, rn&, i As Long Application.ScreenUpdating = False 'rn = Sheets("1").Cells(2, 12) rc = Sheets("1").Cells(Rows.Count, 12).End(xlUp).Row i = i + 1 For a = Sheets("1").Cells(i, 12) To rc FilePath = Sheets("1").Cells(i, 12).Value Workbooks.Open Filename:=FilePath Sheets("1_Портфель привлечений").Select Range("A6:E9").Select Selection.Copy Workbooks("Проба.xlsm").Activate ActiveWorkbook.Sheets("2").Select lLastrow = Cells(Rows.Count, 1).End(xlUp).Row Set R = ActiveWorkbook.Sheets("2").Cells(lLastrow + 1, 1) R.Select Selection.PasteSpecial Paste:=xlPasteValues For Each wb In Workbooks ' перебираем все открытые книги If Not wb Is ActiveWorkbook Then ' если это не этот файл If wb.Windows(1).Visible Then wb.Close False ' закрываем его End If Next wb Next Application.ScreenUpdating = True End Sub |