如何用VBA按指定编码创建文本文件？

作者：绿色风分类：时间：2022-08-17 浏览：159

楼主
amulee

Q：如何用VBA按指定编码创建文本文件？
A：利用ADO的STREAM对象可以实现各种编码文本文件的创建。参考以下过程：

Sub WriteFile(ByVal FName As String, ByVal Content As String, ByVal CharSet As String)
With CreateObject("Adodb.Stream")
.Type = 2
.Mode = 3
.CharSet = CharSet
.Open
.WriteText Content
.SaveToFile FName, 2
.Flush
.Close
End With
End Sub

利用以下语句调用，表示在当前目录下创建一个BIG5编码的文件，名称为abc.txt，内容为你好：

WriteFile ThisWorkbook.Path & "\abc.txt", "你好", "BIG5"

如何用VBA按指定编码创建Txt文件.rar

2楼
herelazy

ADO是什么东西啊？

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表