VBA 读取TXT文件

最新推荐文章于 2024-05-25 08:47:43 发布

lab2013

最新推荐文章于 2024-05-25 08:47:43 发布

阅读量6.9k

点赞数 1

文章标签： vba string

本文链接：https://blog.csdn.net/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