VBA 生成文件 xml，xlsx

VBA 生成文件方法：

使用 ADODB.Stream 生成文件，通过控制文件的后缀，应该是什么文件都可以生成。

Dim WriteStream2 As Object  '定义一个对象

Set WriteStream2 = CreateObject("ADODB.Stream")   '创建一个 ADODB.Stream 对象

With WriteStream2 

.Type = 2 'adTypeText  '点 相当于 面向对象那些语言里的点，给WriteStream2对象的type进行设置。
.Charset = "sjis"
.Open
.WriteText tableCreatelast
.SaveToFile outSqlfilename, 2 'adSaveCreateOverWrite
.flush
.Close
End With

Set WriteStream2 = Nothing

相关解释：

with ... end with  使用可以提高代码执行速度。

上面ADODB.Stream使用的那些属性可以看 下面的百度链接，里面讲的很详细。

给对象赋值，使用   set  对象 = 值

ADODB.Stream 对象超级详细介绍（百度）：adodb.stream_百度百科 (baidu.com)

标签：xml,xlsx,VBA,Stream,WriteStream2,对象,生成,文件,ADODB
来源： https://www.cnblogs.com/chenhaiyanblog/p/16478641.html