在VFP中,如何在表单中过行Excel?

来源：百度知道 编辑：UC知道 时间：2024/06/05 16:00:46
在VFP中,如何在表单中过行Excel.用
oEx=CreateObject("Excel.Application")
oEx.Visible=.t.
打开的窗口是独立的.我想在表单上运行,就像edit控件一样.能实现吗?

with thisform

if empty(.qd_path.value)
messagebox("请选择要汇出的目录！",48,"提示")
else
****************以下设置为准备工作
xls=GETOBJECT('','excel.sheet')
xlapp = xls.APPLICATION
xlapp.visible = .t.
wait wind '正在汇出[手袋工时清单] 到Excel，请耐心等待......' nowait
xlapp.workbooks.ADD()
xlapp.ActiveWindow.WindowState = 2
xlsheet = xlapp.activesheet
lc_name="手袋工时汇总"
xlsheet.name = lc_name
*表头
xlsheet.Range("a1").VALUE = "手袋各款工时清单"
xlsheet.Range("a2").VALUE = "序号"
xlsheet.Range("b2").VALUE = "款号"
xlsheet.Range("c2").VALUE = "总工时(秒)"
xlsheet.Range("d2").VALUE = "文件编号"
xlsheet.Range("e2").VALUE = "备注"
xlsheet.Range("a1:e2").font.Bold = .t.
xlsh