导出txt文件宏_导入导出系统——读取TXT文本中的内容

手机边亲爱你们还好吗？大家好久不见！

我又双叒叕好久未给大家更新示例了，实在是不好意思，今天继续给大家带来导入导出系列——导入TXT文档。

之前我们讲过导出Access，导出PPT，今天我们讲一下导入txt文档，也就是我们常说的文本文档。

话不多说，现在就动手吧。

01

建窗体

老规矩，我们先新建一个窗体，如下图，放两个文本框，一个文本框做为文档的路径，命名为txt路径；另一个文本框命名为txt内容。

02

添加代码

在按钮中添加单击事件。

单击事件

    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的功能。

“ 在看”的永远18岁~