不需要，ADO即可

路过，看一看














[url=http://www.sc115.com/vector]矢量素材[/url],[url=http://www.sc115.com/PPT]PPT模板[/url],[url=http://www.sc115.com]素材中国[/url]

用这个方法试一下
Dim wbWorld As Object
Dim shtWorld As Object
Dim shtexcel As Excel.Worksheet
filename = Right(Text3.Text, Len(Text3.Text) - InStrRev(Text3.Text, "\"))
获取excel 中的第一个工作表
Set shtWorld = GetObject(Text3.Text)
获取工作簿
Set wbWorld = shtWorld.Application.Workbooks(filename)
Set shtexcel = wbWorld.Sheets(1)