VBA 读取TXT文件

lab2013

于 2012-05-15 20:15:16 发布

阅读量7.1k

点赞数 1

CC 4.0 BY-SA版权

文章标签： vba string

本文链接：https://blog.youkuaiyun.com/lab2013/article/details/7570238

Public Sub ReadTxt()
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim FileObj
    Dim TextObj
    Dim TmpPath As String

    TmpPath = "d:\test.txt"
    Set FileObj = CreateObject("Scripting.FileSystemObject")
    Set TextObj = FileObj.OpenTextFile(TmpPath, ForReading, True)

    Do While Not TextObj.AtEndOfLine
        strSQL = TextObj.ReadLine   '读txt文件内容
    Loop

    TextObj.Close
End Sub