各位前辈请赐教！！！！请问如何将DATAWINDOW中的数据保存为EXCEL格式的文件？？？拜托了！！！！

[benneng]

各位前辈！！！我用SAVEAS（）函数将DATAWINDOW中的数据保存为EXCEL格式的文件。可是保存成功后。用EXCEL打开后发现数据窗口中的每一个列的标题却并没有带过来（就是DATAWINDOW对象中HEADER带中的标题）请问各位前辈有解决的办法吗？

[pufan]

用ole或dde均可.
给你个例子.
//OLE to XCEL
integer result
OLEObject myoleobject
myoleobject = CREATE OLEObject
result = myoleobject.ConnectToNewObject("excel.application")
myoleobject.visible =true
myoleobject.Workbooks.Add
myoleobject.WorkSheets("sheet1").Activate
long ll_rowcount,ll_colcount
long i,j
ll_rowcount=dw_1.rowcount()+1
ll_colcount=long(dw_1.object.datawindow.column.count)
string ls_colname[],ls_value
for j = 1 to ll_colcount
ls_colname[j] = dw_1.describe("#"+string(j)+".name")+"_t"
ls_value = dw_1.describe(ls_colname[j]+".text")
myoleobject.activesheet.cells[1,j].value = ls_value
next
string ls_coltype
integer ii
for j=1 to ll_colcount
for i=2 to ll_rowcount
ls_coltype=dw_1.describe("#"+string(j)+".coltype")
ii=pos(ls_coltype,"char")
if ii>0 then
myoleobject.activesheet.cells(i,j).value="'"+dw_1.object.data[i -1 ,j]
else
myoleobject.activesheet.cells(i,j).value=dw_1.object.data[i -1 ,j]
end if
next
next
myoleobject.ActiveWorkBook.Save()
myoleobject.application.quit()
myoleobject.Disconnectobject()
Destroy myoleobject

[comma7456]

SaveAsAscii()可以实现，不过pb6.5版本以上的才可以

[fjzjr]

SaveAs()

[jylzm]

SaveAsAscii()和SaveAs()都有很大的缺陷，其中最大的一个缺陷是不能存复合报表的内容。当然，以上的代码也存在同样的问题。不知道哪位师兄能提供一下存复合报表的方法。而且复合报表的表头文本可能是动态改变的哟！

[balloonman2002]

我已在
http://expert.csdn.net/Expert/topic/1108/1108626.xml?temp=.6767847

中贴了详细的DDE和OLE操作的方法