求助：ADO 访问有密码的Excel文档的问题

plxmm

只好按你15楼的法子弄了。该死的比尔盖茨！

爱歌学习

这个链接网址以前真的是没有人提供吗？呵，我拿不准，是在google中打关键字“excel ado 打开 密码文件”搜到的第一个链接...

爱歌学习

呵，说明在这个问题上比尔盖茨亟需高人相助啊

nawong

我想 Mr.比尔盖茨 已經把這個問題用ACCECC來完成了,因為大家都說EXCEL 沒有了保密局了,對嗎 ?

plxmm

以下是引用[I]nawong[/I]在2006-2-23 10:03:41的发言：[BR]我想 Mr.比尔盖茨 已經把這個問題用ACCECC來完成了,因為大家都說EXCEL 沒有了保密局了,對嗎 ?

或许是的吧。不过数据量不是很大的时候，用Excel还是方便些。

layzl

学习收藏中.......................

hamletl

Dim xl As Object
    Set xl = GetObject(CurrentProject.Path & "\" & "MASTER JAN 2009.xls")

    'Now open the workbook to read/write/whatever
    Dim cnn1 As New ADODB.Connection
    Dim rst1 As ADODB.Recordset
    Dim strExcelName As String = "MASTER JAN 2009.xls"
    Dim strWkBkName As String = "[MASTER 2008$]"
    cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
    "Data Source=" & CurrentProject.Path & "\" & strExcelName & ";" _
    "Extended Properties=""Excel 8.0;"";"
    Set rst1 = New ADODB.Recordset
    rst1.Open strWkBkName, cnn1, , , adCmdTable
    Do Until rst1.EOF
        'process your data here
        rst1.MoveNext
    Loop

donglxd

学习了，好方法试试先。