не работает шаблон *.xlt в Officce2010

[irinasela]

Подскажите как решить проблему - очень давно был создан шаблон *.xlt, вызывается из приложения. При запуске на Window7 MS Office2010 вываливается на строке разрыва страницы

With ActiveWorkbook.Sheets(ActiveWorkboo k.Sheets.Count)
...
.Rows(CurRow).PageBreak = xlPageBreakManual
...
что-то не срослось...или перекомпилировать, помогите.

[EducatedFool]

так я не понял:

не работает шаблон *.xlt

или
не работает МАКРОС в шаблоне?

если макрос - то как мы его починим, не видя вашего файла с кодом?
ошибка там может быть где угодно


PS: не перекомпилировать надо, а исправлять криво написанный код.

[irinasela]

Макрос работал 11лет, я не вижу что в нем окривело на MS Office2010.

Private Sub AAA()
  Dim I As Long, BaseRowCount As Long
  Dim TempString As String
  DocNum = 333
  CurNum = 444
  With ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
    .Cells(2, 3) = DocNum
    .Cells(2, 4) = CurNum
    .Cells(2, 5) = CurNum \ 10
    DocNum = DocNum + 1
    
    BaseRowCount = .UsedRange.Rows.Count
    
    For I = 4 To BaseRowCount
        If CInt(.Cells(I, 1).Value) > 0 Then
            CurRow = .UsedRange.Rows.Count + 1
            ActiveWorkbook.Sheets(1).Range(ActiveWorkbook.Sheets(1).Cells(114, 1), _
            ActiveWorkbook.Sheets(1).Cells(155, 1)).EntireRow.Copy
            .Rows(.UsedRange.Rows.Count + 1).Insert Shift:=xlShiftDown
            .Rows(CurRow).PageBreak = xlPageBreakManual
            
            CurRow = .UsedRange.Rows.Count - 3
          CurRow = CurRow + 1
      End If
    Next
  End With
End Sub

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[irinasela]

Разрывы заработали путем замены .Rows(CurRow).PageBreak на .Cells(CurRow, 1).PageBreak .

Есть еще проблема -не вызывается формочка, на которой пользователь вводит входной параметр. Раньше работало так: сначала отображается форма, заполняется вх.парам, потом только открывается окно Excel.

[EducatedFool]

еще проблема -не вызывается формочка

вы не на форуме телепатов...
мы - обычные люди, которые, не видя вашего файла с кодом, не имеют возможности догадаться о причинах проблемы...