工作梳理：Vb 导出生成CSV文件

因工作需要 使用VBA导出CSV文件

方法一：

Open "c:/test.csv" For Output As #1
Print #1, "测试代码开始"
Print #1, "测试代码内容"
Print #1, "测试代码结束"
Close #1

该方法可以一次插入一行数据，不需要加换行符。但是该方法目前没有找到可以直接转换编码格式的方法，需要对插入的数据一一转换。

方法二：

Dim objStream As Object
Set objStream = CreateObject("ADODB.Stream")
With objStream 
    .Type = 2
    .Charset = "UTF-8"
    .Open
    .WriteText "测试代码开始" & vbCrLf
    .WriteText "测试代码内容" & vbCrLf
    .WriteText "测试代码结束" & vbCrLf
    .SaveToFile "c:/test.csv",2
End With

此方法方便编码格式的变换，但是需要加换行符 vbCrLf

 

自己总结  自己使用 勿喷 本人不是vba开发人员