devxlogo

SaveCSV – Saving the content of a FlexGrid control as a CSV-file

SaveCSV – Saving the content of a FlexGrid control as a CSV-file

' Save the content of a FlexGrid control as a CSV-file' Example: SaveCSV("C:Test.csv", MSFlexGrid1)Private Sub SaveCSV(ByVal strFilename As String, ByRef msFlex As MSFlexGrid)    Const SEPARATOR_CHAR As String = ","    Dim intFreeFile As Integer    Dim strLine As String    Dim r As Integer    Dim c As Integer    intFreeFile = FreeFile        Open strFilename For Output As #intFreeFile        With msFlex        ' Every row        For r = 0 To .Rows - 1            strLine = ""                        ' Every column            For c = 0 To .Cols - 1                strLine = strLine & IIf(c = 0, "", _                    SEPARATOR_CHAR) & .TextMatrix(r, c)            Next c                        Print #intFreeFile, strLine        Next r    End With        Close #intFreeFileEnd Sub

See also  Professionalism Starts in Your Inbox: Keys to Presenting Your Best Self in Email
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist