vba无法读取mdb文件未安装正确的程序

答：您好！要想使用VBA来读取MDB文件，首先必须安装正确的程序，即Microsoft Access Database Engine，它是一个用于连接Access数据库的组件，可以用来读取MDB文件。安装完成后，就可以使用运乱VBA代码来读取MDB文件了。如果你想要更多胡敏的信息，可以查看Microsoft官方文档裤悄枝，或者网上搜索相关教程。

不知道MDB文件中的NUM是不是包含全部衡旁的手机前7位，或者说每一个手机号前七位都能在数据库中找到一个记录，握拦槐如果是的话，参考下面的代码：

Sub 归属地()

    Dim Cnn As New ADODB.Connection

    Dim Rs As New ADODB.Recordset

    Dim sDB As String, sCnn As String, Sql As String

    

    For i= 2 to range("O" & range("O:O").Rows.Count).End(xlUp).Row

    Num = Range("O" & i).Text

    sDB = "D:\归属地.mdb"

    sCnn = "Provider = microsoft.jet.oledb.4.0  data source=" & sDB   '& "Jet OLEDB:Database Password=" & "123"

 段友   Cnn.ConnectionString = sCnn

    Cnn.Open

 

    Sql = "select [归属地].PROVINCE, [归属地].CITY from 归属地 WHERE [归属地].NUM= """ & Num & """"

    Rs.Open Sql, Cnn

    

    If Rs.EOF Or Rs.BOF Then

          MsgBox "没有找到相关信息", 1 + 16, "系统提示"

    Else

        Range("P" & i).CopyFromRecordset Rs  '从Pi单元格开始粘贴选中字段内容

    End If

     Rs.Close                 '关闭变量

     

    Next i

    

    Set Rs = Nothing

    Set Cnn = Nothing

End Sub

假设 手机号前七位在O列，从第二开始有数据，查询结果返回到后面的P、Q两列

---