手机边亲爱你们还好吗?大家好久不见!
我又双叒叕好久未给大家更新示例了,实在是不好意思,今天继续给大家带来导入导出系列——导入TXT文档。
之前我们讲过导出Access,导出PPT,今天我们讲一下导入txt文档,也就是我们常说的文本文档。
话不多说,现在就动手吧。
01建窗体
老规矩,我们先新建一个窗体,如下图,放两个文本框,一个文本框做为文档的路径,命名为txt路径;另一个文本框命名为txt内容。
添加代码
在按钮中添加单击事件。
单击事件
Dim MyString As String
Dim strFile
Me.txt路径 = Null
With FileDialog(msoFileDialogFilePicker)
.Title = "选择文件"
.InitialFileName = ""
.Filters.Clear
.Filters.Add "TXT", "*.txt"
If .Show Then
strFile = .SelectedItems(1)
End If
End With
Me.txt路径 = strFile
Me.txt内容 = Null
If Not IsNull(Me.txt路径) Then
Open Me.txt路径 For Input As #1
Do While Not EOF(1)
Input #1, MyString
Me.txt内容 = Me.txt内容 & MyString & Chr(13) & Chr(10)
Loop
Close #1
End If
03
测试
代码比较简单,读取出TXT文本文件中的内容, 这里使用到了vba中的open对象,并使用Do While Not EOF遍历文本内容,实现完整读取TXT的功能。
![94f43c673dfaa22cbbb3e79c8e2ca36b.gif](https://i-blog.csdnimg.cn/blog_migrate/d54a35baf6a974f5f25f9bd97753d6e0.gif)