应用思考-教育技术论坛

标题: VBA读取文本文件 [打印本页]

作者: etthink 时间: 2021-12-1 23:45
标题: VBA读取文本文件
Dim txtLine
Dim FileObj
Dim TextObj
Dim FilePathFilePath = "C:\text1.txt"
Set FileObj = CreateObject("Scripting.FileSystemObject")
Set TextObj = FileObj.OpenTextFile(FilePath)
Do While Not TextObj.AtEndOfLine
txtLine = txtLine & Trim(TextObj.ReadLine)
Loop
MsgBox txtLine

作者: etthink 时间: 2021-12-1 23:50
读取utf-8格式会乱码，将文本文件另存为assii码格式
当前路径

strPath & "\" & strFilter

欢迎光临应用思考-教育技术论坛 (http://etthink.com/)