如何用VBA调用数据库中数据

首先在工具 引用 中引入ADO组件(全名叫Microsoft ActiveX Data什么的，很好好找)，然后声明一个连接变量 conn as ADODB.Connetion用来连接数据库，这里需要连接字符串，不知道你是什么类型数据库，所以连接字符串无法给出，再声明一个数据集变量ds as ADODB. DATASET用于执行SQL语句并返回结果集，得到结果集之后就可以访问里面的内容了

给你个建议，把所有需要读写工作表的 *** 作，用数组表达，尽量减少读写工作表的语句。

这样让更多的 *** 作在内存中进行，而不是在硬盘上进行。这中间的差异是天壤之别。我原来写的一个提取内容的sub，提取一个填写一个，总用时2分40秒。

然后我把要提取的东西全都赋值给数组，完事以后一次填写一行，或者完事后一下填写完，

结果只用了7秒。

1、首先在电脑桌面中，鼠标右键鼠标，新建一个excel工作簿并打开。

2、创建一个简单的表格，并输入一些字符串，比如衣服购买表格，如下图所示。

3、接着，鼠标左键单击【开发工具】菜单标签，并单击VBA按钮，如下图所示。

4、然后，在VBA编辑的代码窗口中，鼠标右键单击表格，选择添加用户窗体，如下图所示。

5、接着，在用户窗体上，选择工具箱中的【按钮】，如下图所示。

6、接着，鼠标右键选择【添加代码】，在代码窗口上，输入VBA代码，比如读取表格中的数据，给出消息提示，如下图所示。

7、最后，在设计窗口上，鼠标左键单击用户窗体上的按钮，可以看到表格中提示读取表格中数据的提示，如下图所示。

---