正在阅读：将MsFlexGrid控件的内容输出到文本将MsFlexGrid控件的内容输出到文本

2004-02-14 09:34 出处：PConline 作者：SoHo_Andy 责任编辑：linjixiong

'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

关注我们

聚超值

热门排行

正在阅读：将MsFlexGrid控件的内容输出到文本将MsFlexGrid控件的内容输出到文本

相关文章

关注我们

聚超值

热门软件

汽车资讯