Sub 单元格内容保存为txt文件()
myPath = ThisWorkbook.Path & "\txt\"
'*********************用ADODB.STREAM进行写入UTF-8文本******************************
For i = 2 To 50
Set OBJSTREAM = CreateObject("ADODB.Stream")
With OBJSTREAM
.Open
.Position = 0
.Charset = "UTF-8"
StrText = Cells(i, "B").Value '单元格内容
.writeText StrText '写入单元格内容
.SaveToFile myPath & Cells(i, "A").Value & ".html", 2 '存为html或者txt文件
.Close
End With
Set OBJSTREAM = Nothing
Next
End Sub
VBA 单元格内容存为txt文本文件
最后编辑于 :
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
- 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
推荐阅读更多精彩内容
- 最近遇到关于EXCEL导出需求,导出时需要自动设置列宽。去网上查了资料和自己实验后整理出一种列宽计算公式,希望能给...
- 前景提要 上一节我们学习了如何通过VBA来实现查找功能,也是通过VBA简单的了解了Excel查找功能的逻辑 不...
- 前景提要 今天开始我们进入第5序列的学习,本序列我们将要学习的时候关于工作薄的相关知识和各种操作,相信很多的童鞋都...
- # -&- coding: utf-8 -&- """ Created on Mon Jul 8 22:05:32...
- 问题背景 项目中遇到一个问题,导入Excel文件时,单元格内容为纯数字的字符串(商品税收分类编码),如12345,...