Dear all:我用adodb將mdb檔案格式轉到excel中,因為通訊錄.xls有保護密碼,所以一開始出現run-time error:無法為檔案解密(程式如下)
With cn
.CursorLocation = 3
    .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\測試.mdb;Persist Security Info=False"
End With
cn.Execute "Select * into [Excel 8.0;database=" & App.Path & "\通訊錄.xls].[sheet3] From 通訊"
後來我為了解決上面的解密問題,在前後加入如下程式後出現:(vb6造成MSJETOLEDB40.DLL發生錯誤)及(VB6造成SSSCC.DLL錯誤),程式最後執行到cn.Execute...就當掉了.
Set myex = CreateObject("Excel.Application")
myex.DisplayAlerts = False
myex.Workbooks.Open FileName:=App.Path + "\通訊錄.xls", Password:="1234"
[之前的程式]
myex.Quit
Set myex = Nothing
不知有什麼好方法可以解決為檔案解密的方法及為什會造成上述錯誤呢?麻煩大家幫忙了,謝謝^^

arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()