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

爱歌学习

有个问题，你是希望出现密码框呢，还是不出现？

如果不出现，那么用你这个文件就完全可以将加密文件的内容导出，那么加密不是失去了意义？

如果要出现，那么设一个连接到密码文件的公式倒变成个办法了，这样就会弹出密码框，只要输入密码，就可以进行ADO查询...

plxmm

以下是引用[I]爱歌学习[/I]在2006-2-21 17:50:10的发言：[BR]

有个问题，你是希望出现密码框呢，还是不出现？

如果不出现，那么用你这个文件就完全可以将加密文件的内容导出，那么加密不是失去了意义？

如果要出现，那么设一个连接到密码文件的公式倒变成个办法了，这样就会弹出密码框，只要输入密码，就可以进行ADO查询...

不希望出现密码对话框。主要是不希望 Sj.xls 文件单独使用时被随意打开。

爱歌学习

在坛子里搜索“ADO”，只在这里http://club.excelhome.net/viewthread.php?tid=134655&replyID=&skin=0 看见说不可能打开加密文件，再就没看到别的有关资料了...

plxmm

以下是引用[I]爱歌学习[/I]在2006-2-21 18:26:24的发言：[BR]在坛子里搜索“ADO”，只在这里http://club.excelhome.net/viewthread.php?tid=134655&replyID=&skin=0 看见说不可能打开加密文件，再就没看到别的有关资料了...

难道成了死问题了啊？云彩啊。

爱歌学习

想出一个办法：

Sub nawong()
Dim Conn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim DbPath As String
On Error GoTo 11
Workbooks.Open Filename:=ThisWorkbook.Path & "\sj.xls", Password:="3234" '先把密码文件打开
Windows("xiehong2.xls").Activate '切回原工作簿
DbPath = "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0;HDR=YES';data source=sj.xls" '使用相对路径
Conn.Open DbPath
For i = 3 To [a100].End(xlUp).Row
dsdf = Cells(i, 2).Text
Set Rst = Conn.Execute("SELECT * FROM [sj$] Where 代碼 =" & dsdf)
Do While Not Rst.EOF
Cells(i, 8) = Rst.Fields(3).Value
Cells(i, 9) = Rst.Fields(2).Value
Exit Do
Loop
Next
MsgBox "Ok !"
Workbooks("sj.xls").Close 'ADO 结束，关闭密码文件
Exit Sub
11 MsgBox Err.Description
End Sub

nawong

Great !

thank You

plxmm

偶也是这个思路。但是不想这样来实现。因为 Conn.Open DbPath 语句好像有 密码输入规则的，搞不明白试了N次就是不可以。

爱歌学习

呵，我从这个问题也学了不少，同贺喽...

plxmm

谢谢 爱歌学习 提供的资料啊。[em24][em24][em24][em27]

爱歌学习

刚才我发的那个官方网址中明确指出

"

2.	在连接选项卡上，浏览到您的工作簿文件。忽略“用户 ID”和“密码”项，因为这些不适用于 Excel 连接。

......

无法打开受密码保护的工作簿

如果您的 Excel 工作簿受密码保护，即使在连接设置中提供了正确的密码，也无法打开它以访问其数据，除非已在 Microsoft Excel 应用程序中打开了该工作簿文件。"