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
For r = 0 To .Rows - 1
strLine = ""
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 |