''''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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
