<em>ADO</em> 连接<em>EXCEL2010</em> 的数

一、点击“文件”按钮

二、点击“选百项度”按钮

三、出问现“excel选项”对话框

四、点击“自定义功能区”

　五、在“答开发工具”前版面打上对号，点击确定完成设置。权

　六、在功能区选择，“开发工具”-“Visual Basic”

　七、出现Vba编辑器。

64位，连接字符串:Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=mdb.mdb;uid=admin;pwd=password;

1. 不是预期格式的，肯定是格式不对百，是用另存为保存一下，注意保存的时候重新选择类型度，一般都可以解决。

2. 我认为还是文件格式问内题。

3. 有特殊符号的字段要是用中括号，例如FROM、车间/科室字段的查询容：

SELECT [车间/科室], [FROM] FROM ................

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