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

来源：百度文库编辑：神马文学网时间：2024/04/27 20:17:39

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

将MsFlexGrid控件的内容输出到文本用office将文本的内容变成声音输出 VSFlexgrid、MSFlexGrid控件的技术问题222 VB MSFlexGrid控件的几种简单的使用方法 VB MSFlexGrid控件的几种简单的使用方法！ VB MSFlexGrid控件的几种简单的使用方法 2VSFlexgrid、MSFlexGrid控件的技术问题[黑马软件论坛] VB中MsFlexGrid控件的使用细则(收集) 可以将脚本的输出复制到剪贴板吗？将用友财务数据输出到闪存 mschart控件如何使鼠标移动到数据标记上时显示相应的内容12 mschart控件如何使鼠标移动到数据标记上时显示相应的内容4 mschart控件如何使鼠标移动到数据标记上时显示相应的内容asdf C# 如何将光标置于TextBox控件中的文本的开头或末尾或当前位置 - 博客文库 - 博客园 MSFlexGrid控件属性及使用方法整理 VB控件MSFlexGrid获取选择行如何使用JavaScript输出功能将360doc集成到自己的个人网站上应该如何将输出保存到一个文本文件？应该如何将输出保存到一个文本文件？ MSFlexGrid控件属性及使用方法整理by u3u31 MSFlexGrid控件属性及使用方法整理by u3u3 MSFlexGrid控件属性及使用方法整理by u3u32010 MSFlexGrid控件属性及使用方法整理by u3u3aaa MSFlexGrid