在excel2010 VBA找不到预定义的Ado对象

Question

为了将Excel单元格中的包含汉字的字符串A$ 输出到一个使用UTF-8编码格式的外部文件，我打算用下面的函数来实现转换，但VBA运行时报告没有对象类型AdoStream，导致转换无法进行。
例如：
A$=cells(1,1)
B$= tran_ado(A$)

我在VBA中自定义了如下函数，其中AdoStream是网上说由VBA预先定义的对象类型（是真的吗？）
Function tran_ado(ByVal strA As String) As String
'这个函数利用所谓的 AdoStream对象 将保存在strA中的普通编码格式的字串转换成UTF-8格式编码的字符串，以便后边输出给VCF文件

Dim Stm As New AdoStream
Stm.Type = adTypeText
Stm.Mode = adModeUnknown
Stm.Open
Stm.Charset = "utf-8"
Stm.WriteText strA
Stm.Position = 0
Stm.Type = adTypeText
Stm.Charset = "gb2312"
tran_ado = Stm.ReadText()
Stm.Close
End Function
1, 能否说明一下 怎样连接Microsoft Jet OLE DB Provider 和 ODBC Drivers两种方式连接到 Excel 数据文件？
2. 我在Exce2010 VBA的help环境下搜索不到对 ADODB.Stream 的描述， ADODB.Stream 是EXCEL2010 中预定义的对象吗？

Answer 1

1楼的根本就不懂， 在网上复制过来的

有2中方法

 方法1：  在VBE 窗口    工具---引用

MICROSOFT ACTIVEX DATA OBJECTS 6.1

然后定义 变量类型 Dim Stm As New ADODB.Stream

你的程序的定义 也写错了

法法2：创建对象

这个无需添加引用

 Set stm = CreateObject("Adodb.Stream")

Answer 2

ADO：ActiveX数据对象(ActiveX Data Object)的缩写，它提供访问各种数据类型的连接机制。ADO设计为一种极简单的格式，通过ODBC的方法同数据库接口。
ADO 有 Microsoft Jet OLE DB Provider 和 ODBC Drivers两种方式连接到 Excel 数据文件。
（注意：要先连接，才能操作ADO）

********下面是网上找到的例子，供参考*******
'* ************************************** *
'* 模块名称：modCharset.bas
'* 模块功能：GB2312与UTF8相互转换函数
'* 作者：lyserver
'* ************************************** *

Option Explicit

'- ------------------------------------------- -
' 函数说明：GB2312转换为UTF8
'- ------------------------------------------- -
Public Function GB2312ToUTF8(strIn As String, Optional ByVal ReturnValueType As VbVarType = vbString) As Variant
Dim adoStream As Object

Set adoStream = CreateObject("ADODB.Stream")
adoStream.Charset = "utf-8"
adoStream.Type = 2 'adTypeText
adoStream.Open
adoStream.WriteText strIn
adoStream.Position = 0
adoStream.Type = 1 'adTypeBinary
GB2312ToUTF8 = adoStream.Read()
adoStream.Close

If ReturnValueType = vbString Then GB2312ToUTF8 = Mid(GB2312ToUTF8, 1)
End Function

'- ------------------------------------------- -
' 函数说明：UTF8转换为GB2312
'- ------------------------------------------- -
Public Function UTF8ToGB2312(ByVal varIn As Variant) As String
Dim bytesData() As Byte
Dim adoStream As Object

bytesData = varIn
Set adoStream = CreateObject("ADODB.Stream")
adoStream.Charset = "utf-8"
adoStream.Type = 1 'adTypeBinary
adoStream.Open
adoStream.Write bytesData
adoStream.Position = 0
adoStream.Type = 2 'adTypeText
UTF8ToGB2312 = adoStream.ReadText()
adoStream.Close
End Function

追问

1, 能否说明一下 怎样连接Microsoft Jet OLE DB Provider 和 ODBC Drivers两种方式连接到 Excel 数据文件？
2. 能否请您对两个示范转换函数中对adoStream对象进行操作的每行代码加上注释文字？ 我在Exce2010 VBA的help环境下搜索不到对 ADODB.Stream 的描述。