在VB环境下,用SQL怎样操作加密的Excel文件?
A:在C:\数据库.xls...此文件的(工作簿密码为123)
B:在C:\数据库.xls...此文件中有一个加密的工作表:加密表.(工作表密码456)
在A,B两种情况下,在VB环境中怎么分别写连接数据库语句?
[解决办法]
关注这个问题
同求，求代码求真相
[解决办法]
xlApp.Workbooks.Open 文件名, , , Password
xlApp.Workbooks.Open "C:\数据库.xls", , , "123"
'试试上一行
''下一行没有研究
B:在C:\数据库.xls...此文件中有一个加密的工作表:加密表.(工作表密码456)
[解决办法]
'同上，只要先打开了加密的EXCEL，就可以用VB进行查询了，否则只用SQL语句是没办法的
Dim Rs As ADODB.Recordset '搞了个对象:)
Set Rs = New ADODB.Recordset '设置了个对象rs
dim ExcelConn
Set ExcelConn = New ADODB.Connection
Dim ConnStr As String
ConnStr = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & XlsFile
'打开连接
ExcelConn.open ConnStr
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockBatchOptimistic
'打开表
If Sql = "**"
Rs.open Sql, ExcelConn
Set GetExcelRs = Rs
Set Rs = Nothing
[解决办法]
最简单就直接用EXCEL的方式来读，不用管SQL了
