Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Konstantine
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Ошибки Run-time error 9: subscript out of range при выполнении макроса
 
#
11.11.2017 09:48:14
Символы проверил, названия листов копировал и вставлял в код.
 
Перейти    
Ошибки Run-time error 9: subscript out of range при выполнении макроса
 
#
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
 
Перейти    
Сохранение необходимых листов книги в один PDF-файл
 
#
10.05.2017 16:28:17
Данных много. Расчеты, ссылки на другие листы, картинки, схемы... Реально много всего.  
 
Перейти    
Сохранение необходимых листов книги в один PDF-файл
 
#
10.05.2017 16:14:32
folder_1$ и ActiveWorkbook.ActiveSheet.[I9] работают (путь к файлу и номер протокола из ячейки).

"неработа" заключается в том, что сохраняет только первую страницу первого листа. Хотя если убрать последние 4-5 листов, то документ сохраняет как нужно.


Извиняюсь за неправильно поставленный вопрос.
 
Перейти    
Сохранение необходимых листов книги в один PDF-файл
 
#
10.05.2017 15:50:38
В Архиве нашел тему с описанием реализации сохранения листов в один PDF-файл. По образу и подобию сделал в своем проекте. Все работало, пока не понадобилось формировать файл из большого количестви листов. В чем может быть проблема? В массиве, в его размерности?

Код
Код
Sheets(Array("титул БП", "прот4 БП", "паспорт-протокол2ттБП", "СЕ308", "АФормТТ1", "АФормТТ2", "ВФормТТ1", "ВФормТТ2", "СФормТТ1", "СФормТТ2", "УСПД1", "УСПД2", "УСПД3", "УСПД4")).Select 
Sheets("титул БП").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    folder_1$ & "АКТ ТО ТехУчет БП № " & ActiveWorkbook.ActiveSheet.[I9], Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
 
Перейти    
Сохранение файла PDF в папку
 
#
25.02.2017 23:29:50
Цитата
Юрий М написал:
Слэш, как написал Сергей, добавили?
Добавил, заработало! спасибо!
 
Перейти    
Сохранение файла PDF в папку
 
#
25.02.2017 23:23:57
Цитата
Юрий М написал:
Остановите код и посмотрите - чему равно значение ThisWorkbook.Path?
Присвоено значение C:\Users\КГ\Desktop\прога МРСК\Прога
 
Перейти    
Сохранение файла PDF в папку
 
#
25.02.2017 23:12:38
Цитата
kuklp написал:
Не то?
К сожалению не то. Необходимо сохранять ПДФ-файл в ту папку где сам файл программы.
 
Перейти    
Сохранение файла PDF в папку
 
#
25.02.2017 23:09:04
Цитата
Юрий М написал:
Как понять "папка ранее"?
Путь к Excel-файлу, куда должно происходить сохранение PDF-файла: C:\Users\КГ\Desktop\прога МРСК\Прога

А по факту сохраняет PDF-файл в C:\Users\КГ\Desktop\прога МРСК
 
Перейти    
Сохранение файла PDF в папку
 
#
25.02.2017 22:54:35
Добрый день!

Перерыл интернет, не могу решить проблему. Прошу Вашей помощи!

В результате выполнения макроса, сохраняются листы в ПДФ-файл не в указанную папку, а на папку ранее.
Часть кода:
Код
ActiveWorkbook.Save
                Sheets(Array("АКТ", "титул", "прот4", "паспорт-протокол", "СЕ308", "АФормТТ1", "АФормТТ2", "BФормТТ1", "BФормТТ2", "CФормТТ1", "CФормТТ2")).Select
                Sheets("АКТ").Activate
                ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                ThisWorkbook.Path & "АКТ ТО ТехУчет № " & ActiveWorkbook.ActiveSheet.[J10], Quality:= _
                xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=True
 
Перейти    
Страницы: 1
Наверх