ToMKai 's World

落花有意随流水,流水无心恋落花!

将MSFlexGrid控件的内容输出到文本

'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
阅读更多
个人分类: Visual Basic
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭