请大家帮忙看看我错在那里

Question

大家好，是这样的，我一向用ADODC连接到ACCESS数据库的，但现在想连到EXCEL
我用连接到ACCESS方法连接
过程是这样的
在connectstring上选择“使用连接字符串”点击生成
在“1.指定数据源”中选择“使用连接字符串”点击编译
然后点击“机器数据源”双击“EXCEL FILE 用户”在选择工作簿对话框中选好EXCEL文件的位置
然后点击确定，确定后在连接字符串中出现“
DSN=ExcelFiles;DBQ=D:\test.xls;DefaultDir=D:;DriverId=790;MaxBufferSize=2048;PageTimeout=5;”
测试连接是成功的！
但是在RECORDSOUCE中的“表或储存过程名称中”找不到EXCEL中的表！！
请问我在那里出错，如何才能用ADODC连接到EXCEL呢！
小女子先行谢过 

Answer 1

Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
看看这样~~

Answer 2

把数据导入到EXCEL,我还没看见人用过ADODB.都是用的VBA

Answer 3

好多谢rufengch99()我用你的方法可以写入ESCEL但是为什么每次写入之后就会打开EXCEL文件呢，而且每写一个就要保存，是不是有什么语句没有写上去，比如关闭数据库，保存数据库等？？？在线等大家的帮助，谢谢

Answer 4

用ODBC連接的話 不是很方便啊
你可以用Adodc控件來做 
代碼也可以
Dim cn As New ADODB.Connection '¥´¶}execl
Dim Con As New ADODB.Connection '¥´¶}access
Dim rs As New Recordset '¦sÀxexeclªº¼Æ¾Ú
    Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Vbp\MyDataBase\DataBase.mdb;Persist Security Info=False"
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=C:\Documents and Settings\zhangshuai\My Documents\My Work\ExeclToSQL.xls;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
    cn.Open
    Con.Open
    rs.Open "select * From [Sheet1$]", cn, 1, 1‘打開你對應的要寫入的Execl
    If rs.EOF = True Then
        Exit Sub
    End If
    While Not rs.EOF
        Con.Execute "Insert Into TableName(Name)Values('" & rs(0) & "')"
        rs.MoveNext
    Wend
rs.Close
cn.Close
Con.Close
Set rs = Nothing
Set cn = Nothing

Answer 5

鼠标右击控件，弹出菜单选“属性”：
1 “通用”中选择“使用连接字符串”点击"生成"
2 提供者中选择 Microsoft Jet 4.0 OLE DB Provider
3 点击“下一步”，在“选择或输入数据库名称（D）”中，点击按钮“...”，选择文件。
4 点击“所有”页签，双击 Extended Properties，输入“Excel 5.0”。
5 回到“连接”页，测试。

Answer 6

记录源，例如：
select * from [sheet1$]

Answer 7

按照of123()的方法不行啊，提示“测试连接失败，因为寝化提供程序时发生错误。找不到可插入的ISAM”
怎么办啊，大家帮帮我，谢谢！