Fastreport export to excel3/31/2024 ![]() ' obj = Nothing Next ' GC.Collect() ' GC.WaitForPendingFinalizers() End Sub Public Sub InteropExportDatasetToExcel( ByVal dataSet As DataSet, ByVal outputPath As String, Optional ByVal hideWorkbook As Boolean = False)ĭim excelApp As .ApplicationClass = Nothing Dim excelWorkbooks As .Workbooks = Nothing Dim excelWorkbook As .Workbook = Nothing Dim excelSheets As .Sheets = Nothing Const colCharset As String = " ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim finalColLetter As String = String.Emptyĭim colCharsetLen As Integer = colCharset.Length If obj Is Nothing Then Continue For Try Select Case True Case TypeOf obj Is .WorkbookĬase TypeOf obj Is .ApplicationClass ' GC.Collect() ' GC.WaitForPendingFinalizers() For Each obj In objList Copy Code Private Shared Sub ReleaseComObjects( ByVal objList As List( Of Object))
0 Comments
Leave a Reply.AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |