【PB】将PB数据窗口中的数据导出到EXCEL文件

我设计中只用过两种方法。

第一种：
导出到默认的路径（代码中固定好的）。核心代码是：
long dwcontrol.SaveAsAscii(string filename,[string separatorcharacter(可选项，以该种格式来分隔数据，如果省略则默认为tab，)],)

实例如下：
if dw_1.saveasascii("C:\缺陷查询结果.xls","   ","")=1 then
messagebox("提示信息","数据导出成功!! 文件路径为C:\缺陷查询结果.xls!")
else
messagebox("提示信息","数据导出失败!")
end if

第二种：这种方法要事先在指定路径建立起要导出的EXCEL文件。下面代码是打开该文件并保存进去。
long numcols,numrows,c,r
OLEObject xlapp,xlsub
int ret
//定义变量

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

ret=xlApp.ConnectToNewObject("Excel.Sheet")
if ret<0 then
messagebox("连接Excel程序失败!",string(ret))
return
end if
//连接Excel,并检验返回值
xlApp.Application.Workbooks.Open("C:\缺陷查询结果.xls")
//打开一个特定的Excel文件
xlApp.Application.Visible=true
//使该Excel文件可视
xlsub=xlApp.Application.ActiveWorkbook.Worksheets[1]
//确定第一个工作薄

for c=1 to numcols
for r=1 to numrows
  xlsub.cells[r,c]=dw_1.object.data[r,c]
next
next
//循环发送数据

xlApp.DisConnectObject()
Destroy xlApp