如何将MSHFLEXGRID中的数据导入到一个TEXT文本文件

Question

我的MSHFLEXGRID用于显示查询出来的数据，我想将这些数据导入到TEXT文本文件中
应如何操作，谢谢

Answer 1

'刚写的，试试
'*********************************************************
'* 名称：OutDataToText
'* 功能：将MsFlexGrid控件中显示的内容输出到文本文件
'*********************************************************
Public Sub OutDataToText(Flex As MSFlexGrid)
    Dim s As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim strTemp As String
    On Error GoTo Ert
    Me.MousePointer = 11
    On Error Resume Next
    DoEvents
    Dim FileNum As Integer
    FileNum = FreeFile
    Open "d:\aa.txt" For Output As #FileNum
        With Flex
            k = .Rows
            For i = 0 To k - 1
                strTemp = ""
                For j = 0 To .Cols - 1
                    DoEvents
                    strTemp = strTemp & .TextMatrix(i, j) & ","
                Next j
                Print #FileNum, Left(strTemp, Len(strTemp) - 1)
            Next i
        End With
    Close #FileNum
    Me.MousePointer = 0
    MsgBox "导出成功"
Ert:
    MsgBox Err.Description
    Me.MousePointer = 0
End Sub