关于如何用VBA导出Access的表

关于怎么用VBA导出Access的表
Access的表，可以导出成为Excel的电子表格，但是用VBA怎么实现？？求达人
[解决办法]

引用:

Access的表，可以导出成为Excel的电子表格，但是用VBA怎么实现？？求达人

以下为VBA连接ACCESS2007  ;

Sub AC()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"
cnn.Open "Provider=Microsoft.Ace.OleDB.12.0;data Source=" & ThisWorkbook.Path & "\数据库.accdb"
sql = "select * from [宏站] where 区域='" & qx & "'"

'('" & qx & "'")括号里这段有点BT，一定要这样写才行。
rs.Open sql, cnn

[a1].CopyFromRecordset rs

End Sub

[解决办法]
本帖最后由 bcrun 于 2013-06-15 21:22:47 编辑

引用:

Access的表，可以导出成为Excel的电子表格，但是用VBA怎么实现？？求达人

下面为2003：

Sub AC()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"
cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\数据库.mdb"
sql = "select * from [宏站] where 区域='" & qx & "'"

'('" & qx & "'")括号里这段有点BT，一定要这样写才行。
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

2003也可以用2007的方法哈！
[解决办法]

引用:

Access的表，可以导出成为Excel的电子表格，但是用VBA怎么实现？？求达人

远程连接：
把局域网里面的Access数据库服务器中的Access数据库文件所在的文件夹设置共享
然后写成这样：\\服务器名或IP\你共享的文件夹的名字（其它路径不写的）\数据库名
这里说明了方法的。

http://topic.csdn.net/u/20081216/17/ee68c83c-2b4d-44e7-8a77-b8120bbf7718.html

Sub 远程()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"
cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=\\192.168.0.101\\ac\\数据库.mdb "
sql = "select * from [宏站] where 区域='" & qx & "'"
'('" & qx & "'")括号里这段有点BT，一定要这样写才行。
rs.Open sql, cnn

[a1].CopyFromRecordset rs

End Sub
 
 

[解决办法]

引用:

Quote: 引用:

Access的表，可以导出成为Excel的电子表格，但是用VBA怎么实现？？求达人

远程连接：
把局域网里面的Access数据库服务器中的Access数据库文件所在的文件夹设置共享
然后写成这样：\\服务器名或IP\你共享的文件夹的名字（其它路径不写的）\数据库名
这里说明了方法的。

http://topic.csdn.net/u/20081216/17/ee68c83c-2b4d-44e7-8a77-b8120bbf7718.html

Sub 远程()
Dim cnn As New Connection
Dim rs As New Recordset
Dim sql As String
Dim qx As String
qx = "金牛"
cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=\\192.168.0.101\\ac\\数据库.mdb "
sql = "select * from [宏站] where 区域='" & qx & "'"
'('" & qx & "'")括号里这段有点BT，一定要这样写才行。
rs.Open sql, cnn

[a1].CopyFromRecordset rs

End Sub

好同志，回答的真详细。

查看更多 下一篇