Question

VB 操作EXCEL插入分页符出错问题求解

Dim ExcelApp As Excel.Application '声明对象变量
Dim Excelbook As Excel.Workbook
Dim Excelsheet As Excel.Worksheet

On Error Resume Next
Set ExcelApp = GetObject("Excel.application")
If Err.Number <> 0 Then
Set ExcelApp = CreateObject("Excel.application")
ExcelApp.Visible = True 'Excel可见
Err.Clear
End If
'Me.MousePointer = 11 '改变鼠标样式
ExcelApp.DisplayAlerts = False '在程序执行过程中使出现的警告框不显示
Set Excelbook = ExcelApp.Workbooks.Open(App.Path & "\User_report.xls") '激活工作簿文件
Set Excelsheet = Excelbook.Sheets("Sheet1") '打开工作表
Excelsheet.Activate '激活工作表

'------------------------------------------------------------------------------------根据户主数创建空表
If num > 1 Then
For i = 1 To num - 1

ExcelApp.Range("A" & i * 29 + 1).Select '将焦点移动到指定行
Excelsheet.HPageBreaks.Add before:=ActiveCell '添加分页符

ExcelApp.Range("A1 :AE29").Copy ExcelApp.Range("A" & i * 29 + 1) '将单元格区域复制到单元格F1开始的区域中
Next
End If
************************************************************
以上代码第一次执行时，循环分页可以，第二次执行不按设定的分页的（设定分页无效了）这是什么问题？求解
我用VB 控制EXCEL根据我要写入的内容复制增加的行记录内容，并设置插入了分页，在程序第一次运行时都正常可以分页，但关了EXCEL后再次点击程序调用写入EXCEL时，分页却不成功了，是什么原因呢，求大神们帮忙。

Answer 1

第一次运行正常说明程序大致是没问题的。第二次再开出错，有可能是excel浏览状态不正常，或之前设好的分页符影响的。请在设置分页符之前，先清除掉原有的分页符。
方法：
‘先设置页面为分页浏览方式
activewindow.view=xlpagebreakpreview
'清除所有分页符
activewindow.resetallpagebreaks

Answer 2

没看到Num的赋值。
起码看到的代码不完整。