ActiveReport導出功能

ActiveReport導出功能

在網上查了不少資料，有個講解比較完整的方案，我在系統中一試，發現並不好用，在使用導出功能，必須是引用幾個命名空間

接下來，導出功能就變得更加簡單

Dim xlsExport1 As New DataDynamics.ActiveReports.Export.Xls.XlsExport()
Dim saveDlg As New SaveFileDialog()
saveDlg.Filter = "Excel文件(*.xls)|*.xls"
saveDlg.ShowDialog()


Dim sFileName As String = saveDlg.FileName.Trim
If String.IsNullOrEmpty(sFileName) = True Then
MsgBox("沒有輸入導出文件名，系統不能導出！", MsgBoxStyle.Exclamation)
Return
End If
xlsExport1.Export(rpt.Document, sFileName)
xlsExport1 = Nothing

導出Excel 搞定收工