PB 如何保存datawindow数据到excel文件
保存datawindow数据到excel，使用了OLEObject对象中的excel，代码如下（文件名称可以指定）：
// ...初始化文档名称
// ...GetFileOpenName或任何其他方法
if dw_1.SaveAs(docname, HTMLTable!, True) = -1 then
MessageBox("警告", "无法导出数据。写入文件时出错！", Exclamation!)
return
end if
// 将HTML文件转换为Excel格式
//创建对象excel
OLEObject excel
excel = CREATE OLEObject
if excel.ConnectToObject(docname) = 0 then
excel.application.DisplayAlerts = FALSE
excel.application.workbooks(1).Parent.Windows(excel.application.workbooks(1).Name).Visible = True
excel.application.workbooks(1).saveas(docname, 39)
excel.application.workbooks(1).close()
end if
//释放对象
DESTROY excel
//完成
您阅读本篇文章共花了： 