标签：xml xlsx VBA Stream WriteStream2 对象 生成 文件 ADODB

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

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。