vb6.0中Spread输出CSV文件

fileName为想要生成的文件路径。将画面上spread中的所有数据直接生成了指定路径上的CSV文件。       

Open fileName For Output As #1                                     

        For i = 1 To ExcelSpread.MaxRows
          ExcelSpread.Row = i
          strLine = ""
          For j = 1 To ExcelSpread.MaxCols
            ExcelSpread.Col = j
            If j = 1 Then
              strLine = Replace(ExcelSpread.text, ",", " ")
            Else
              strLine = strLine & "," & Replace(ExcelSpread.text, ",", " ")
            End If
          Next
          Print #1, strLine
        Next
        Close #1