恭喜,你发布的帖子
发布于 2026-02-10 14:00:31
5楼
' 定义要打开的TXT文件路径(注意路径分隔符用\或/,也可以用双\\转义)
Dim filePath
filePath = "C:\test.txt" ' 替换为你的TXT文件路径
'创建文件系统对象
Dim fso, txtFile, fileContent
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtFile = fso.OpenTextFile(filePath, 1, False, -2) ' -2=默认编码(ANSI)
' 读取文件全部内容
fileContent = txtFile.ReadAll()
请填写推广理由:
分享
只看
楼主