Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB6
Expertise: Intermediate
Sep 15, 2003

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 #intFreeFile
End Sub
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.