【文件属性】:
文件名称:将MsFlexGrid控件中显示的内容输出到文本文件
文件大小:803B
文件格式:TXT
更新时间:2016-06-13 15:31:46
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 = MSF1.Rows
For i = 0 To k - 1
strTemp = ""
For j = 0 To MSF1.Cols - 1
DoEvents
strTemp = strTemp & MSF1.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