[目的]
想在固定行前添加分页符

[找到的方法]
方法一： eole.Worksheets("Sheet1").Rows(50).PageBreak = 1

方法二:  eole.ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(50, 1) 此方法没实验，因为结尾部分感觉也出问题

方法三： Set eole.ActiveSheet.HPageBreaks(1).Location = eole.Range("A50")

[问题描述]
法一和法二不能除掉EXCEL系统自带的虚线分页符（此情况出现于自己设置的分页符在一页以外）
法三在VBA中运行完美，定位精确，不出现虚线分页符
但是在VFP中方法三连保存都不允许，更别谈编译了,提示的错误是：“命令中含有不能识别的短语或关键字”

希望哪位同志能帮助一下， VBA 中set 语句如何在VFP中使用，另外，eole.Selection.Delete  -4162 结尾的数字在VFP中也导致无法保存。

不好乱猜
最好给出完整可运行测试的示例相关文件

继续顶起

    Set eole.ActiveSheet.HPageBreaks(1).Location = eole.Range("A50")
多个了Set

把set去掉以后，不再报错，但是语句不起作用了。

没有在指定的行前添加分页符

在EXCEL用VBA不用set测试 ActiveSheet.HPageBreaks(1).Location = Range("A50") 也是无作用
按VBA要求给对象赋值要用set，VFP可以用VBS脚本来使用set，不知有无其他更好的办法。

#DEFINE xlPageBreakAutomatic    -4105    &&Excel 自动添加分页符。
#DEFINE xlPageBreakManual    -4135    &&手动插入分页符。
#DEFINE xlPageBreakNone    -4142    &&工作表中不插入分页符。
xlApp = GETOBJECT(, "Excel.Application")
If VARTYPE(xlApp)<>"O"
    MESSAGEBOX("没有打开 Excel","温馨提示")
    retu
ENDIF
xlapp.ActiveSheet.ResetAllPageBreaks  &&重置分页符
xlapp.cells(6,2).PageBreak = xlPageBreakNone  &&取消分页符
xlapp.cells(7,1).PageBreak = xlPageBreakManual  &&在你需要的地方插入分页符，如果你设置的分页长度大于页面长度，系统会自动添加一个分页符

按每页行数添加行分页符

eole = CREATEOBJECT("Excel.application")
eole.displayalerts = 0
eole.SheetsInNewWorkbook = 1
eole.Workbooks.Add
eole.Worksheets("sheet1").Activate
eole.ActiveWindow.WindowState = 2
FOR i=1 TO 100
   FOR j=1 TO 5
       eole.cells[i,j] = i
   ENDFOR
ENDFOR
nRow = 5  &&每页行数
nPageBreaks = INT(eole.CountA(eole.ActiveSheet.Range("A:A"))/nRow)  &&分页符数
FOR i=1 TO nPageBreaks
    eole.Range("A"+TRANSFORM(i*nRow+1)).Select
    eole.ActiveSheet.HPageBreaks.Add(eole.ActiveCell)
ENDFOR
eole.Visible=.T.