首页
TVP 最新优惠活动
学习
活动
专区
工具
返回腾讯云官网
分享使用VBA程序读取txt文本文件的代码,txt文件的格式是UTF-8格式。
运行程序,选择需要读取的txt文件,选中后逐行读取填写至表格的A列。(数据处理部分代码可以根据实际需要修改。)
效 果 演 示
VBA 代 码
代码如下:
代码主要分为三部分,第一部分主要是获得指定的txt文本文件的路径和名称。
第二部分代码是读取文本中的内容,保存至变量中。
第三部分是将变量的内容用split函数按分行来分割,保存至数组中,可以根据实际需要来修改代码处理数据,最后再将处理完的数据保存至sheet表中。
Sub test()
Dim objStream, strData, Arr1, i As Long
Dim pathX As String, strX As String, N As Long
'第一部分选中需要读取的txt文件
With Application.FileDialog(msoFileDialogFilePicker)
With .Filters
.Clear
.Add "txt文件", "*.txt"
End With
.AllowMultiSelect = False
If Not .Show Then Exit Sub
pathX = .SelectedItems(1)
End With
'第二部分读取UTF-8格式的txt文件内容保存至strData变量中
'创建ADODB.Stream对象
Set objStream = CreateObject("ADODB.Stream")
'指定字符集为UTF-8
objStream.Charset = "utf-8"
'使用Open方法打开流对象
objStream.Open
'加载文本文件
objStream.LoadFromFile (pathX)
'使用ReadText返回文件内容
strData = objStream.ReadText()
'第三部分用Split函数按行来分割字符串存至数组中,处理数据,然后通过循环填写至sheet表中
Arr1 = Split(strData, vbCrLf)
objStream.Close
Set objStream = Nothing
N = 1
For i = 0 To UBound(Arr1)
strX = Arr1(i)
If strX <> "" Then
Range("A" & N) = strX
End If
N = N + 1
Next
End Sub
如果已知txt文件路径,可以直接从第二部分代码开始使用,将第二部分代码其中修改为objStream.LoadFromFile ("文件完整路径")。
本文分享自 Excel和Access学习笔记 微信公众号,前往查看
如有侵权,请联系 cloudcommunity@tencent.com 删除。
本文参与 腾讯云自媒体同步曝光计划 ,欢迎热爱写作的你一起参与!
两个鬼故事任性女孩起名域名怎么起比较好仓储公司名称起名大全老k关于月亮的古诗韩姓起名韩姓小孩起名大连新冠描写荷花的诗句蛇宝宝起名大全女孩666电影好含义的成语起名字猪的宝宝起乳名办公用品文具店起名字大全入党申请书3000字鞋厂起名大全参照重庆二手论坛女孩起什么样的名字好呢聚宝网金银潭医院院长台湾版的中国地图楚乔传百度云起名字软件手机生辰八字武胜路新华书店中央五台节目预告宁波方特周记500字五行属金的字起公司名字地图软件郑州餐饮起名建材商店取名起名大全少年生前被连续抽血16次?多部门介入两大学生合买彩票中奖一人不认账让美丽中国“从细节出发”淀粉肠小王子日销售额涨超10倍高中生被打伤下体休学 邯郸通报单亲妈妈陷入热恋 14岁儿子报警何赛飞追着代拍打雅江山火三名扑火人员牺牲系谣言张家界的山上“长”满了韩国人?男孩8年未见母亲被告知被遗忘中国拥有亿元资产的家庭达13.3万户19岁小伙救下5人后溺亡 多方发声315晚会后胖东来又人满为患了张立群任西安交通大学校长“重生之我在北大当嫡校长”男子被猫抓伤后确诊“猫抓病”测试车高速逃费 小米:已补缴周杰伦一审败诉网易网友洛杉矶偶遇贾玲今日春分倪萍分享减重40斤方法七年后宇文玥被薅头发捞上岸许家印被限制高消费萧美琴窜访捷克 外交部回应联合利华开始重组专访95后高颜值猪保姆胖东来员工每周单休无小长假男子被流浪猫绊倒 投喂者赔24万小米汽车超级工厂正式揭幕黑马情侣提车了西双版纳热带植物园回应蜉蝣大爆发当地回应沈阳致3死车祸车主疑毒驾恒大被罚41.75亿到底怎么缴妈妈回应孩子在校撞护栏坠楼外国人感慨凌晨的中国很安全杨倩无缘巴黎奥运校方回应护栏损坏小学生课间坠楼房客欠租失踪 房东直发愁专家建议不必谈骨泥色变王树国卸任西安交大校长 师生送别手机成瘾是影响睡眠质量重要因素国产伟哥去年销售近13亿阿根廷将发行1万与2万面值的纸币兔狲“狲大娘”因病死亡遭遇山火的松茸之乡“开封王婆”爆火:促成四五十对奥巴马现身唐宁街 黑色着装引猜测考生莫言也上北大硕士复试名单了德国打算提及普京时仅用姓名天水麻辣烫把捣辣椒大爷累坏了