数据窗口保存为EXCEL的好办法

[myclife]

能保存几乎所有内容
// ... Init docname
// ... GetFileOpenName or any other method

if dw_1.SaveAs(docname, HTMLTable!, True) = -1 then
MessageBox("Warning", "Unable to export data. Error writing to file!", Exclamation!)
return
end if


// Convert HTML file to Excel native format
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
// done

[linger_liang]

哦

[zhanwei]

哈哈，果然简单

[zhanwei]

哈哈，果然简单

[RechardXc]

调试过吗?

[swjtu95]

结贴后可以放到FAQ