用VBA生成UTF-8无BOM格式的文件

用VBA生成UTF-8无BOM格式的文件

直接上代码

 Sub test()
  Dim WriteStream As Object, BinSt As Object
  Dim name As String
  Dim nameto As String
  Set WriteStream = CreateObject("ADODB.Stream")
  Set BinSt = CreateObject("ADODB.Stream")
  nameto = "指定一个文件全路径 如：“D:\1.sql”"
  With WriteStream
  	.Open
    .Charset = "UTF-8"
    .Type = 2               'adTypeText  （文本）
    .WriteText ("insert into name values('1','2','3')")
    .Position = 3
  End With
  With BinSt
    .Open
    .Type = 1              '（字节）
  End With
  WriteStream.CopyTo BinSt '数据复制
  With BinSt
  	.SaveToFile nameto, 2	'保存文件
    .Close
  End With
  WriteStream.Close
  Set WriteStream = Nothing
  Set BinSt = Nothing
  Application.ScreenUpdating = True
  MsgBox "test over"	
 End Sub

参考文档 1：百度文库
参考文档 2：CSDN