Posted 15 July 2020, 4:57 am EST
Export to C1FlexGridClassic data Excel using C1XLBook but numeric data exported as text in excel.
Public Sub C1ExportToExcel(ByVal GridName As C1.Win.C1FlexGrid.Classic.C1FlexGridClassic, ByVal SaveDialog As System.Windows.Forms.SaveFileDialog, Optional ByVal lngStartRow As Long = -1, Optional ByVal lngEndRow As Long = -1, Optional ByVal lngStartCol As Long = -1, Optional ByVal lngEndCol As Long = -1)
Try
If GridName.Rows > 1 Then
If (MsgBox("Do You Want to Export the Data To Excel Sheet", MsgBoxStyle.YesNoCancel, "DetaSys") = MsgBoxResult.Yes) Then
Dim XlsApp As New C1XLBook
Dim XlsWB As XLSheet = XlsApp.Sheets(0)
Dim intRow, intCol As Integer
Dim str As String
SaveDialog.ShowDialog()
str = SaveDialog.FileName + ".xlsx"
If Len(str) > 0 Then
For intRow = 0 To GridName.Rows - 1
For intCol = 0 To GridName.Cols - 1
XlsWB(intRow, intCol).Value = GridName.get_TextMatrix(intRow, intCol)
Next
Next
XlsApp.Save(str)
ReleaseObject(XlsWB)
MsgBox("Export To Excel Sheet Completed Successfull", MsgBoxStyle.OkOnly, "DetaSys")
End If
Else
End If
Else
MsgBox("No Data For Export To Excel Sheet", MsgBoxStyle.OkOnly, "DetaSys")
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "DetaSys")
End Try
End Sub
Private Sub ReleaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub