将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. 以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!
|