error 1004

[Lyubov1990]

Помогите пожалуйста! Постоянно вылезает ошибка:
run-time error '1004'
Application-defined or object-defined error

Не знаю в чем дело!

[С.М.С]

Выкладывайте документ, посмотрим.

[SAS888]

Не знаю в чем дело!

Уверен, что никто не знает. Даже сам Excel.

[RAMZESTV]

Добрый день!

Пробую сформировать счета на оплату электроэнергии, процесс проходит нормально, в Excel-е формируются квитанции до строки 32826, после этого вылетает ошибка "Run-time error '1004' Application-defined or object-defined error" захожу в макрос (вот его содержание):

Sub aa()
'
' aa Макрос
' Макрос записан 27.02.2009
'

'
ActiveWindow.SelectedSheets.HPageBr eaks.Add Before:=ActiveCell
End Sub

В безопасности Excel-я стоят все доверительные отношения.

Помогите, что можно сделать чтобы данная ошибка не возникала, с чем это связано?

[Slavik]

Эта проблема может произойти при присвоении книге определенного имени и последующем копировании листа несколько раз без предварительного сохранения и закрытия книги.Для обхода этой проблемы не копируйте существующий лист, а вставьте новый лист из шаблона
Больше информации http://support.microsoft.com/kb/210684

[EducatedFool]

Посмотрите пример макроса здесь.
Обратите внимание на строки, выделенные жирным шрифтом.
(разрывы страниц корректно устанавливаются только в режиме разметки документа)

Возможно, превышено количество допустимых разрывов страниц (максимум - 1026 штук для Excel 2003)



Этого я добился таким макросом:

Sub test()
    For i = 1 To 40000
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 1, 1)
        If i Mod 100 = 0 Then DoEvents: Debug.Print i
    Next
End Sub

[RAMZESTV]

Сообщение от EducatedFool

Посмотрите пример макроса здесь.
Обратите внимание на строки, выделенные жирным шрифтом.
(разрывы страниц корректно устанавливаются только в режиме разметки документа)

Возможно, превышено количество допустимых разрывов страниц (максимум - 1026 штук для Excel 2003)



Этого я добился таким макросом:

Sub test()
    For i = 1 To 40000
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(i + 1, 1)
        If i Mod 100 = 0 Then DoEvents: Debug.Print i
    Next
End Sub

Попробовал Ваш макрос. Теперь ошибка Run-time error '1004' исчезла, однако опять дойдя до строки 32826 появляется сообщение "Заменить содержимое конечных ячеек?", если нажимаю "нет" - сообщение повторяется, если нажимаю "да" - то формируются (постоянно добавляются) данные в самой первой строке, ломая структуру квитанции. Что я не правильно делаю?

[EducatedFool]

Что я не правильно делаю?

Отказываетесь выложить файл

Проблема в строке 32826. Попробуйте её удалить (вместе с предыдущей и последующей строками) - возможно, проблема исчезнет.

[RAMZESTV]

Сообщение от EducatedFool

Отказываетесь выложить файл

Проблема в строке 32826. Попробуйте её удалить (вместе с предыдущей и последующей строками) - возможно, проблема исчезнет.

Всмысле какой файл отказываюсь выложить?

И на каком этапе мне необходимо удалить эту строку? Дело в том,что эта последняя строка сформированной квитанции (страница 245), особой информации не несет, в принципе можно удалить

[EducatedFool]

Всмысле какой файл отказываюсь выложить?

Если бы Вы прикрепили к сообщению файл с макросом, уже получили бы решение проблемы, и узнали бы причину возникновения ошибки.