Question

excel如何引用access里的查询数据？

我在access里面做了查询表，想在excel引用这个表做数据透视表，但是只能带过来表头，下面的数据没有，这是为什么呢？引用上面的表又没有问题……





Answer 1

1、连接ACCESS2007，2007以上版本代码都差不多：

Sub AC()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;data Source=" & ThisWorkbook.Path & "\数据库.accdb"
sql = "select * from [宏站]"
rs.Open sql, cnn
  '复制字段名
    For i = 1 To rs.Fields.Count
 
        Cells(1, i) = rs.Fields(i - 1).Name
    Next i
 
[a1].CopyFromRecordset rs
   rs.Close
 
    cnn.Close
 
End Sub

1、连接ACCESS2003：

Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\数据库.mdb"
sql = "select * from [宏站] "
rs.Open sql, cnn
  '复制字段名
    For i = 1 To rs.Fields.Count
 
        Cells(1, i) = rs.Fields(i - 1).Name
    Next i
   '复制全部数据
 
    Range("A2").CopyFromRecordset rs
 
    rs.Close
 
    cnn.Close
 
 
End Sub

追问

我是access2019年的，复制您的这个到excel的宏，允许提示用户定义类型未定义 是什么意思呀

Answer 2

1、连接ACCESS2007，2007以上版本代码都差不多：

Sub AC()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;data Source=" & ThisWorkbook.Path & "\数据库.accdb"
sql = "select * from [宏站]"
rs.Open sql, cnn
  '复制字段名
    For i = 1 To rs.Fields.Count
 
        Cells(1, i) = rs.Fields(i - 1).Name
    Next i
 
[a1].CopyFromRecordset rs
   rs.Close
 
    cnn.Close
 
End Sub

1、连接ACCESS2003：

Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\数据库.mdb"
sql = "select * from [宏站] "
rs.Open sql, cnn
  '复制字段名
    For i = 1 To rs.Fields.Count
 
        Cells(1, i) = rs.Fields(i - 1).Name
    Next i
   '复制全部数据
 
    Range("A2").CopyFromRecordset rs
 
    rs.Close
 
    cnn.Close
 
 
End Sub

追问

我是access2019年的，复制您的这个到excel的宏，允许提示用户定义类型未定义 是什么意思呀