VBA 单元格内容存为txt文本文件

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
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容