关于把表单通过按钮导出生成Execl文档的有关问题

关于把表单通过按钮导出生成Execl文档的问题
把表单里面的数据信息通过点击一个按钮自动生成对应的Excel文档 其中按钮的代码是什么？请详细点，还有一点是我们公司的系统在操作时 并不是直接调用后台数据库的信息 而是把源代码设成一个变量 然后对其进行操作 说是为了防止源代码出错 那么在这个导出按钮里怎么设置变量？这两个问题其实是一个问题 还望各位老大帮帮忙 学习~！

[解决办法]
COPY TO newtt type xls for ....
自己动手做一下，有问题再问
[解决办法]
如：

VB code

If !Used('表名')    ReturnEndifSelect 表名lcDelimFile = Putfile('', '表名', 'XLS')If Empty(lcDelimFile)    ReturnEndifCopy To (lcDelimFile) Type Xl5Go TopMessagebox("导出完成！文件位置："+Chr(10)+Chr(10)+(lcDelimFile)+Space(3),64,"信息提示")