急，关于水晶报表的问题
请问各位高手，在vb中如何用代码实现导出报表（excel格式） 问题点数：20、回复次数：6Top
1 楼zhysecond（太阳伞）回复于 2004-08-02 14:08:15 得分 0
很简单的，在VB中定义如下
Dim aa As New CrystalReport1
' aa.ExportOptions.PDFExportAllPages = True
' aa.ExportOptions.DiskFileName = "c:\123.pdf"
aa.SaveAs "c:\123.pdf", cr80FileFormat
其中crystalreport1 是一报表控件。Top
2 楼zdrone（zdrone）回复于 2004-08-02 14:33:57 得分 0
好像有点文不对题啊Top
3 楼diablobaal（无敌马桶）回复于 2004-08-02 14:41:47 得分 0
文件能保存了，但打开时说文件格式无效
我的代码如下：
Option Explicit
Dim StrWord As String
Dim StrShuchu As String
Dim StrRiqi As String
Private Sub Report_Initialize()'CrystalReport1为vb中的设计器，与form1相连
StrRiqi = Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日"
'如有必要,保存本表格
StrWord = "是否需要保存？" & vbCrLf & "——建议保存"
StrShuchu = MsgBox(StrWord, vbYesNo + vbQuestion, "提示")
On Error GoTo Ip
If StrShuchu = vbYes Then
CrystalReport1.ExportOptions.ExcelExportAllPages = True
CrystalReport1.ExportOptions.DiskFileName = "d:\" & StrRiqi & "aa.xls"
CrystalReport1.SaveAs "d:\" & StrRiqi & "aa.xls", cr80FileFormat
End If
Exit Sub
Ip:
If Err = 8512 Then
StrShuchu = MsgBox("表格已经存在 ", vbOKOnly + vbCritical, "错误")
End If
End SubTop
4 楼andylxd（东东）回复于 2004-08-02 15:15:12 得分 0
我也正在写一个管理软件 需要用到报表目前不明白如何写
关注下~Top
5 楼xiaoxiaoP（每天都是重新开始）回复于 2004-08-04 16:28:50 得分 20
你要导出excel必须先引用excel对象，我用过的是直接把sql语句查询的纪录每一条的每一字段
依次付给excel的单元格，单元格定位为属性，网上有相关代码，我忘了在什么地方，你可以搜索
以下。Top
6 楼diablobaal（无敌马桶）回复于 2004-09-02 17:03:53 得分 0
我已经解决了，谢谢Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
