Задача: Скопировать наборы листов в книге.
Решение:
For i = 1 To Sheets("Основной").Range("b2").Value
'копируем базовые листы
Sheets(Array("31-01(7 часов)", "31-01Вед")).Select
Sheets(Array("31-01(7 часов)", "31-01Вед")).Copy Before:=Sheets(Sheets.Count)
'сортируем листы
'переименовываем листы
Next i
Проблема:
В Excel 2003 на сотом листе выходит ошибка "Метод Copy из класса Sheets завершен неверно". На других компьютерах с 2003-им ошибка выходит и того раньше.
На 2007 все работает хорошо.
Возможно ли и как в Excel 2003 средствами VBA копировать 100 и более листов?
Спасибо.
Решение:
For i = 1 To Sheets("Основной").Range("b2").Value
'копируем базовые листы
Sheets(Array("31-01(7 часов)", "31-01Вед")).Select
Sheets(Array("31-01(7 часов)", "31-01Вед")).Copy Before:=Sheets(Sheets.Count)
'сортируем листы
'переименовываем листы
Next i
Проблема:
В Excel 2003 на сотом листе выходит ошибка "Метод Copy из класса Sheets завершен неверно". На других компьютерах с 2003-им ошибка выходит и того раньше.
На 2007 все работает хорошо.
Возможно ли и как в Excel 2003 средствами VBA копировать 100 и более листов?
Спасибо.