VBA 读取TXT文件

最新推荐文章于 2025-05-18 15:45:58 发布

lab2013

最新推荐文章于 2025-05-18 15:45:58 发布

阅读量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