将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

上一篇： VB学习:文本插入与编辑处理实例
下一篇： 用VB和Word来制作格式合同的方法

http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!