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

plxmm

这个附件是借用 网友nawong回答他人的帖子中的附件。偶把问题引申了一下，附件中的 sj.xls 添加了密码，打开时的密码为 3234 。问题是用 另一个文件：xiehong2.xls 的代码该如何修改，才可以打开或者取到 sj.xls中的数据到 xiehong2.xls 文件中？ 谢谢关注。 Sub nawong() Dim Conn As New ADODB.Connection Dim Rst As New ADODB.Recordset Dim DbPath As String On Error GoTo 11 DbPath = "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0;HDR=YES';data source=" & ThisWorkbook.Path & "\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 !" Exit Sub 11 MsgBox Err.Description End Sub OMXaBn2f.rar (142.88 KB, 下载次数: 123)

2006-2-21 11:59 上传

点击文件名下载附件
求助：ADO 访问有密码的Excel文档的问题

爱歌学习

Conn.Open DbPath, Password

这样?

nawong

din

Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=C:\WINDOWS\Desktop\ORbal.xls;Mode=Share Deny None;Extended Properties="Excel 8.0;HDR=Yes";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

請高手指教,給在下指點迷津,謝謝 !

plxmm

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

Conn.Open DbPath, Password

这样?

偶按你的提示这样修改了： Sub nawong() Dim Conn As New ADODB.Connection Dim Rst As New ADODB.Recordset Dim DbPath As String On Error GoTo 11 DbPath = "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0;HDR=YES';data source=" & ThisWorkbook.Path & "\sj.xls" Conn.Open DbPath, Password:="3234" 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 !" Exit Sub 11 MsgBox Err.Description End Sub 但是提示如下：

SWFWIND

这个和打开ACCESS是否能通用呢？

SWFWIND

Database Password="XXXX"

爱歌学习

那个提示应该不是加了password语句后引起的,而是它的sheet1中的“开盘价”“收盘价”中的公式直接引用了加密码的文件，如果把那两列中的公式去掉，那么无论有没有password语句，打开选择“更新”时，就会弹出“输入密码”的对话框。

所以现在的问题应该是怎样使这个密码对话框不出现，又可以将密码传给程序？是不是要用到 API ?

plxmm

谢谢回复。偶把公式链接去掉试试。

plxmm

偶把公式链接粘贴为：“值”。不存在公式链接了，依旧提示4楼的问题。把 ，Password：="3234"注释后运行代码提示：不能解密文件！！！

爱歌学习

又看了一下，原来我的公式没有全部删掉，所以打开时会要求更新，下一步不能点“继续”，要点“编辑链接”，以更改数据源，这样，会弹出密码框，回答后倒是可以进行ADO操作。

但是如果将公式全部删除，则不会弹出密码框，也不能执行ADO...

问题仍没解决，需继续研究....