- 博客(0)
- 资源 (2)
空空如也
VB打开TXT文件
要求打开TXT,而且要在那个程序所在的文件夹里打开
我为什么用Open App.Path & "\aa.txt" For Input As #1
没有用呢
app.path & "\aa.txt"
aa.txt这个文件要放哪里
2013-05-24
将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
2013-05-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人