VBA 怎么打开 ACCESS 2007 文件

maxili1983

Set conn = CreateObject("adodb.connection")

conn.Provider = "microsoft.jet.oledb.4.0"
'conn.Database Password = "111111"
        On Error GoTo 0

conn.Open ThisWorkbook.Path & "\渠道联系人.accdb"

运行到这里的时候弹出一句话"不可识别的数据库格式"
请问怎么办?

roych

拜托，下载个2007兼容包吧。否则怎么也打不开的。

maxili1983

哥们,我装的就是2007

roych

(⊙_⊙)，还有一个问题，要创建access对象。

lipton

ADO基本连接语句

1. Sub AdoExcelAcc()
   
2. Dim Cnn
   
3. Dim Sql As String
   
4.    
   
5.     Set Cnn = CreateObject("ADODB.Connection")
   
6.     With Cnn
   
7.         .Provider = "microsoft.ACE.oledb.12.0"
   
8.         .ConnectionString = "Data Source =d:\lo1\罗斯文 2007.accdb;" & "jet oledb:database password=123 "
   
9.         .Open
   
10.     End With
    
11. 
    
12.     Sql = "SELECT * From 表1 ;"
    
13.     Sheet1.Range("a2").CopyFromRecordset Cnn.Execute(Sql)
    
14.     Cnn.Close
    
15.     Set Cnn = Nothing
    
16.    
    
17. End Sub

复制代码