应用思考-教育技术论坛

标题: 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://www.etthink.com/) Powered by Discuz! X3.4