Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ошибки Run-time error 9: subscript out of range при выполнении макроса
 
#1
30.10.2013 16:57:20
Помогите
Скопировал с одного из форумов
для защиты листов
вот сам макрос
Код
Private Sub auto_open()
 Worksheets("Лист1") .Protect Password:="1111", UserInterfaceOnly:=True
 Worksheets("Лист1") .EnableOutlining = True
 Worksheets("Лист1") .Protect Password:="1111", UserInterfaceOnly:=True
 Worksheets("Лист2") .Protect Password:="2222", UserInterfaceOnly:=True
 Worksheets("Лист2") .EnableOutlining = True
 Worksheets("Лист2") .Protect Password:="2222", UserInterfaceOnly:=True
End Sub

на всех компах работает а на одном нет выводит ошибку Run-time error 9: subscript out of range
причем при открытии файла с флешки на этом компе макрос работает
копирую на рабочий стол открываю и он выдает ошибку
 
 
 
#2
30.10.2013 18:27:28
Run-time error 9: Элемент за пределами диапазона. Это сообщение об ошибке выводится
тогда, когда именованный объект не найден в коллекции объектов. Например,
если используется код Sheets (" Лист2" ) , а лист Лист2 не существует
 
 
 
#3
11.11.2017 09:15:35
Код
  Case x = N4 And y <> N5 ' save_3ftt_commercial_ШУЭТ
    
        Sheets(Array("АКТ", "титул", "прот6", "прот4", "паспорт-протокол", _
                     "титул БП", "прот6 БП", "прот4 БП", "паспорт-протокол БП")).Select
        Sheets("АКТ").Activate
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ПутьКПапке & "АКТ ТО 3ф транс № " & Worksheets("титул").Range("I9"), Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        
        Sheets(Array("СЕ308", "АТТ 1", "АТТ 2", "ВТТ 1", "ВТТ 2", "СТТ 1", "СТТ 2")).Select
        Sheets("СЕ308").Activate
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ПутьКПапке & "АКТ ТО 3ф транс ФО № " & Worksheets("титул").Range("I9"), Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    
    Case x = N3 And y = N5 ' save_3f_technical_ШУЭТ_УСПД_контр
    
        Sheets(Array("АКТ 1ф3ф", "титул", "прот4", "СЕ308", "титул БП", "прот4 БП")).Select
        Sheets("АКТ 1ф3ф").Activate
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ПутьКПапке & "АКТ ТО ТехУчет № " & Worksheets("титул").Range("I9"), Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
Добрый день!

При выполнении макроса выскакивает Run-time error 9: Элемент за пределами диапазона. Подскажите в чем может быть проблема!
Ошибка появляется в строке 11, хотя в строках 20 и 3 проблем нет . Все страницы существуют. Раньше все работало без проблем.

В строке 11 в массиве листов используются листы в, в которых вставлены графические подложки. Соответственно размер сохраненного файла *.pdf большой. Это может быть источником проблемы?
     
 
   
Изменено: Konstantine - 11.11.2017 10:15:42
 
 
 
#4
11.11.2017 09:45:43
Konstantine, проверьте символы в названиях листов. Русские и латинские А и A, E и Е, Н и H и т.д. визуально не отличаются, но являются разными.
 
 
 
#5
11.11.2017 09:48:14
Символы проверил, названия листов копировал и вставлял в код.
 
 
 
#6
11.11.2017 10:03:55
1. Кнопка цитирования не для ответа.
2. Кнопка оформления кода в сообщении - <...>. Прошу исправить сообщение
 
 
 
Страницы: 1
Читают тему
Наверх