如何将PB表数据发送到excel中

今天分享一个数据保存到excel的功能

提供下发送数据按钮的代码
long ll_cols , ll_rows , c, r
OLEObject xlapp , xlsub
int result
//定义变量

ll_cols = long(dw_emp.Object.DataWindow.Column.Count)
//设置行号和列号
ll_rows = dw_emp.RowCount()
//获得行数
xlApp = Create OLEObject
//创建OLE对象

result = xlApp.ConnectToNewObject( “Excel.Sheet” )
if result < 0 then
MessageBox(“连接Excel程序失败!”,string(result))
return
end if
//连接Excel，并检验返回值

xlApp.Application.Workbooks.Open(“E:\emp.xls”)
//打开一个特定的Excel文件
xlApp.Application.Visible = true
//使该Excel文件可视
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
//确定第一个工作簿

xlsub.cells[1,1] = “员工编号”
xlsub.cells[1,2] = “姓名”
xlsub.cells[1,3] = “性别”
xlsub.cells[1,4] = “年龄”

For c =1 to ll_cols
For r = 2 to ll_rows
xlsub.cells[r,c] = dw_emp.object.data[r,c]
Next
Next
//循环发送数据

xlApp.DisConnectObject()
Destroy xlapp
//断开连接