' 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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
