Active Report 匯出功能，activereport

Active Report 匯出功能，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 搞定收工