水晶报表处理为Excel，！！！急！！！1

[mudai]

水晶报表(8.0或8.5)中怎么样去代码去控制直接让它导出为Excel格式的，有原代码更好，谢谢好手了

[water_j]

waiting!!

[coolsky]

我没用过水晶报表，不清楚，不过formula one可以直接导出为excel表格，你试试水晶报表有没有相关的方法！
如果没有的话，就是使用excel对象一个单元格一个单元格的导入，打开写入excel对象表单等可以查找一下vb版，很多。

Dim excel_app As Excel.Application
Dim excel_sheet As Excel.Worksheet
Set excel_app = CreateObject("Excel.Application")
excel_app.Workbooks.Add '可以加名称，添加的次数同报表的表单数。

Set excel_sheet = excel_app.Sheets("Sheet1")
'下面就可以写入到excel里 了。大致为：
excel_sheet.Cells(3,B)="xxx" '水晶报表对应数值。


excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing

[qffhq]

水晶报表可以EXPORT excel格式

[kuangxiang007]

樓主﹐能提供水晶報表8.5給我嗎?(下載連接或E_MAIL等)
(分數不是問題﹐[e-mail])
非常感謝