Большая проблема с HPageBreaks'ами

@babken76 · Регистрация: 11.10.2010

Author24 — интернет-сервис помощи студентам

По совершенно не понятным для меня причинам, на строке:

Visual Basic

1	For Each i In ThisWorkbook.Worksheets.HPageBreaks

программа иногда выдает run-time ошибку:

subscript is out of range

Visual Basic

Sub head_foot_decision(num_stolb As Integer, first_str As Integer, header_range As String, foot_last_diap As String, label As Variant)
Dim i As HPageBreak
header_rows_count = Range(header_range).Rows.Count
For Each w In ThisWorkbook.Worksheets 'цикл перебора всех листов книги
    w.Activate
 
    For Each i In ThisWorkbook.Worksheets.HPageBreaks ' цикл перебора горизонтальных разрывов на текущей странице
        c = make_it(i.Location.Row, header_rows_count)
    Next i
Next w
End Sub
 
Sub h()'вызов проги
    Call head_foot_decision(1, 26, "A23:V25", "diap2", ("Продолжение к акту № " & Cells(8, 11).Value))
End Sub

Вопрос: откуда такое непостоянство? Создается впечатление, что это зависит от занятости ОС, типа i не успевает про инициализироваться.

С уважением,

@babken76 · 15.01.2007, 20:11 **[ТС]**

Очень жаль, что на форуме нельзя ругаться матом, иначе я дал бы себе волю. Вот, что я нашел на одном форуме:

timtim

Мне это нужно и даже очень, а работать нехочет так:

Run-time error '9'. Subscript out of range.

Может я и ошибаюсь, но пока ты не "передернишь" лист начало-конец-начало, для того чтобы Excel расставил разрывы страниц, второй HPageBreak и не найдется.

Проверил. Работает.

С уважением,

@tolikt · 18.01.2007, 18:45

Да, проблема эта есть. Только я не совсем понял её решение.

пока ты не "передернишь" лист начало-конец-начало

Что это значит? Т.е., что и как конкретно нужно сделать?

@babken76 0 / 0 / 1 Регистрация: 11.10.2010 Сообщений: 363
	15.01.2007, 20:11 [ТС]	2
	Очень жаль, что на форуме нельзя ругаться матом, иначе я дал бы себе волю. Вот, что я нашел на одном форуме: timtim Мне это нужно и даже очень, а работать нехочет так: Run-time error '9'. Subscript out of range. Может я и ошибаюсь, но пока ты не "передернишь" лист начало-конец-начало, для того чтобы Excel расставил разрывы страниц, второй HPageBreak и не найдется. Проверил. Работает. С уважением, 0

@tolikt 1 / 1 / 0 Регистрация: 08.05.2011 Сообщений: 40
	18.01.2007, 18:45	3
	Да, проблема эта есть. Только я не совсем понял её решение. пока ты не "передернишь" лист начало-конец-начало Что это значит? Т.е., что и как конкретно нужно сделать? 0