' 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


10 Productivity Hacks to Supercharge Your Business in 2023
Picture this: your team working seamlessly, completing tasks efficiently, and achieving goals with ease. Sounds like too good to be true? Not at all! With our productivity hacks, you can