出现：“THISFORM只能在方法程序中使用错误！”提示，但忽略后能正确保存Excel文件能。如何纠正？请师傅们建言，感激！

学习一下。

上面这个是自定义函数。你把定义函数的第1，2行去掉，把最后1行去掉。就可以在表单的COMMAND上直接运行。

非常感谢！错误取消，程序通过。

我在office2007、2010都测试过，没问题呢。
另外，谢谢你的代码，受你的启发，我直接把这一段代码做成Grid类了，导出功能放进Grid右键快捷菜单里去了，感觉这样子更好用。向原作者致敬。

那可能是我电脑问题，我的是2013，有问题，但我家的就没问题。
怎么做成类的。放上来看看。

如下图，现在只能在表头的空白位置点右键弹出菜单，在表格中右键菜单我还没想好咋弄。

做好了放上来看看。。
oColumn.COLUMNORDER=i0611 AND oColumn.VISIBLE=.T. AND oColumn.Width>0 &&列宽等于0的不处理，列隐藏不处理
我自己加了oColumn.Width，也就是用鼠标拉表格宽度=0时不导出，其他都是原作者的。

好，那我直接放代码上来，效果是一样的。首先是Grid.RightClick的代码，
但是这个代码目前只有在表格的表头空白位置右击了，才会弹出来，
如果是在表格中的任意位置也要有快捷菜单弹出来的话，我还没想好，也欢迎大家来出主意 ：

* 设计一个右键弹出式菜单，让用户可以选择导出到Excel或XML
LOCAL LHASdATA AS Boolean
LOCAL CSELECT AS String
CSELECT=""
IF THIS.ColumnCount>0 THEN 
    LHASdATA=.T.
ENDIF 
    Define Popup shtcut SHORTCUT Relative From Mrow(),Mcol()
    Define Bar 1 Of shtcut Prompt "导出到XML" ;
            SKIP For LHASdATA=.F.
    Define Bar 2 Of shtcut Prompt "导出到EXCEL" ;
            SKIP For LHASdATA=.F.
ON SELECTION POPUP shtcut  CSELECT=PROMPT( )

Activate Popup shtcut
DO CASE 
    CASE CSELECT="导出到XML" 
        MESSAGEBOX("抱歉，[导出到XML格式]功能尚未开发完毕，请等待后续版本。",64,"提示：")
    CASE CSELECT="导出到EXCEL"
        this.grid2excel            
    OTHERWISE 
ENDCASE 

至于“grid2excel”就是给类添加的一个方法，代码就是一楼那一段。

感谢你！辛苦了。