通过vfp控制excel，来生成.xlsx的 report

自己琢磨下来，发现如下一个难点暂时无法解惑，请各位赐教，不胜感激
oxel=creatobject("excel.application")

1.oxel.activesheet.range("a1").select
  oxel.activesheet.range(Selection, Selection.End(xltoright)).Select  这步操作，vba可以执行，在vfp中该怎么调整？

這是交互式環境中用到的動作，在程序環境中摹仿它沒用的啊。已選定的區域，在程序中，直接圈定範圍就是了，輪不到人用鼠標拖拉之後再用這個來查找選定區的終點，因爲程序不可能把控制權交到用戶手上給你選定再接著操作。

参考这http://

将 xlToRight 替换成 -4161 即可。在 VBA 下需要将常量替换成常数。要了解常量值，可以将代码添加到 Excel 宏中并设置一个断点，运行宏，将鼠标悬停在常量上即可得到常数代表的值。

谢谢你

经测试
oxel.activesheet.range(oxel.selection,oxel.selection.end(-4161))  这一步可以正确执行。

另外问一个，xldown 对应的常量是多少？

我查到了
xldown 是-4121
谢谢楼上各位的帮助。

使用 xldown .rows.count 比使用 usedrange.rows.count 统计的行数更加准确。

EXCEL常量下载：https://down.bccn.net/6576.html

我滴个神啊，vfp都操作excel的vba了。你也太简化了吧。
是整上了整个全自动的程序是吧，自动生成2010版本的excel,然后自动添加这些个VBA代码？