急，关于水晶报表的问题

Question

请问各位高手，在vb中如何用代码实现导出报表（excel格式）

Answer 1

很简单的，在VB中定义如下
    Dim aa As New CrystalReport1
    
'    aa.ExportOptions.PDFExportAllPages = True
'    aa.ExportOptions.DiskFileName = "c:\123.pdf"
    aa.SaveAs "c:\123.pdf", cr80FileFormat
其中crystalreport1 是一报表控件。

Answer 2

文件能保存了，但打开时说文件格式无效
我的代码如下：
Option Explicit
Dim StrWord As String
Dim StrShuchu As String
Dim StrRiqi As StringPrivate 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 Sub

Answer 3

你要导出excel必须先引用excel对象，我用过的是直接把sql语句查询的纪录每一条的每一字段
依次付给excel的单元格，单元格定位为属性，网上有相关代码，我忘了在什么地方，你可以搜索
以下。