开启左侧

VBA读取文本文件

[复制链接]
etthink 发表于 2021-12-1 23:45:54 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
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
学教育技术,上教育技术论坛!http://www.etthink.com

精彩评论1

正序浏览
etthink 发表于 2021-12-1 23:50:57 | 显示全部楼层
读取utf-8格式会乱码,将文本文件另存为assii码格式
当前路径

strPath & "\" & strFilter
欢迎大家多发帖,参与讨论,增进彼此了解。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则


11关注

448粉丝

5675帖子

会员达人更多+
广告位

最新信息

更多+

关注我们:教育技术人

官方微信

官方微博

教育技术热线:

13955453231

学教育技术,上教育技术论坛!

教育技术论坛征稿范围:教育技术应用案例、教程文章、优秀作品等。

Email:sf@etthink.com

Copyright   ©2007-2026  教育技术论坛  Powered by©Discuz!  技术支持:且行资源    ( 皖ICP备10014945号-4 )