adCmdFile Set .对于j=0到i - 1 活动连接=无以活动工作表结束 单元格(1

如下代码示例的功能是，在擅长中，通过VBA代码，读取可扩展标记语言文件中的内容。

Dim rst As ADODB .记录集

变暗字符串，文件字符串

我如龙，我如龙

设置rst=新ADODB .记录集

stFile='C:dzwebs.xml '

stCon=' Provider=MSPersist '

用英特尔的快速储存技术。CursorLocation=adUseClient。打开stFile、stCon、adOpenStatic、adLockReadOnly、adCmdFile

准备好了。活动连接=无

以…结尾

有活性纸

对于j=0至i - 1。单元格(1，j 1).值=rst .字段(j)1 .名字

下一个j。范围(' A2 ').CopyFromRecordset rst

以…结尾

第一次.关闭

设置rst=无