Добрый день,
При получении в массив единственного элемента, вход в цикл For each возвращает ошибку Run-time error '13': Type mismatch
Если в массиве два и более элементов, цикл отрабатывает
При получении в массив единственного элемента, вход в цикл For each возвращает ошибку Run-time error '13': Type mismatch
Если в массиве два и более элементов, цикл отрабатывает
Код |
---|
Dim ВыкладкаФайлы As Variant Sheets("Генератор").Select lLastRow = Sheets("Генератор").Cells(Rows.Count, 19).End(xlUp).Row Sheets("Генератор").Range(Cells(1, 19), Cells(lLastRow, 19)).Select ВыкладкаФайлы = Selection.Value2 For Each Filename In ВыкладкаФайлы ' здесь Run-time error '13': Type mismatch Debug.Print Filename |