使用VBA将Excel（XLS）转换为使用UTF-8的CSV
我想在Excel中将excel转换为带有UTF – 8的csv。 但是，转换时，内容正在变成不需要的符号和文字。
请帮我解决这个问题。
Public Sub convert_UnicodeToUTF8() Dim parF1, parF2 As String parF1 = "D:\test.xlsx" parF2 = "D:\test.csv" Const adSaveCreateOverWrite = 2 Const adTypeText = 2 Dim streamSrc, streamDst ' Source / Destination Set streamSrc = CreateObject("ADODB.Stream") Set streamDst = CreateObject("ADODB.Stream") streamDst.Type = adTypeText streamDst.Charset = "utf-8" streamDst.Open With streamSrc .Type = adTypeText .Charset = "Unicode" ' this is also the default value .Open .LoadFromFile parF1 .copyTo streamDst .Close End With streamDst.saveToFile parF2, adSaveCreateOverWrite streamDst.Close Set streamSrc = Nothing Set streamDst = Nothing End Sub 谢谢。
- 遍历一个目录中的每个excel文件，将单个工作表转换为CSV文件
- 我如何转换XLS文件; 分隔符到CSV文件在Python中？ 如果你提供一个示例脚本，这将是一件好事
- Excel 2011 Mac用于dynamic报告macros（VBA）的相对引用
- Excel / CSV – 将键值转换为CSV
- 这是什么“语言”（在.csv文件中find，也许以前的Excel表）？
- date时间格式，在Excel，Chrome和Firefox中parsing
- 将字节顺序标记添加到通过PapaParseparsing的CSV
- 用python中的n个csv文件创buildexcel文件
- 我怎样才能在excel csv文件中添加两个表？