admin管理员组

文章数量:1535071

2024年5月22日发(作者：)

在EXCEL中操作ACCESS数据库(发表时间: 2007-3-31

17:29:00)

【评论】 【打印】 【字体：大 中 小】 本文链接：

/otot/ 复制链接

分享到： 0

标签:excel vba access mdb

为了便于管理手中的一大堆联系厂家的联系方式，我建立了一个ACCESS

的数据库文件（（表名：telephone）），把所有的客户信息存

在数据库里面。但是由于操作ACCESS数据库很不方便，我平时又习惯使

用EXCEL，所以便想做一个EXCEL文件，能够与这个数据库文件连接起来，

实现对数据的搜索、添加功能。于是使用VBA。

当然首先是建立一个空白的EXCEL，并在里面针对数据库的各个字段标题

建立标题。如：

姓名

公司

座机

手机

传真

打开VBA编辑器，添加三个模块：

模块1：（从数据库取得全部数据，并显示到EXCEL文件中）

Public Sub Getmdb()

Dim cmd As String

第 1 页

Dim oAss As Object

connstr = "DBQ=D:;DefaultDir=;DRIVER={Microsoft

Access Driver (*.mdb)};"

Set oAss = CreateObject("tion")

connstr

cmd = "SELECT * FROM telephone ORDER BY id DESC"

Set rs = e(cmd)

btop = 4

bleft = 2

ast = "A" & btop & ":Z1000"

Range(ast).ClearContents

Do While Not

btop = btop + 1

Cells(btop, bleft + 2) = rs("姓名")

Cells(btop, bleft + 3) = rs("公司")

Cells(btop, bleft + 4) = rs("座机")

Cells(btop, bleft + 5) = rs("手机")

Cells(btop, bleft + 6) = rs("传真")

xt

Loop

第 2 页

本文标签： 数据库添加数据打印建立

版权声明：本文标题：在EXCEL中操作ACCESS数据库-8页精选文档 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1716390180a500977.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。