从事统计、财务工作的人,在工作淘篱跬翎中经常会与数字打交道。对于数据的管理,通过数据库来维护其完整性、准确性,是不错的选择,然而一般的统计、财务人员常常应用的办公工具是EXCEL。其实,通过一小段蕺清寤凯VBA代码,就可以实现EXCEL表与数据库的交互,实现将数据库数据导出至EXCEL表,从而便于开展数据分析工作。
工具/原料
EXCEL2007
SQLServer2005
1、创建启用宏的Excel文件,编写代码
1、新建一个Excel表
2、打开后,在菜单处选择【另存为】,并选择另存为【启用宏的Excel工作簿】,生产后缀名为.xlsm的Excel文件。
3、打开后缀名为.xlsm的Excel文件,在选项卡中依次选择【开发工具】【VisualBasic】【Sheet1】,之后在空白处书写VBA代码。
4、编写VBA代码,字符‘后为注释语句:PrivateSubname()咯悝滩镞’代码开始语句,name可变更Setconn=CreateObject(&鳎溻趄酃quot;adodb.connection")’无需变更conn.Open"Driver=SQLServer;SERVER=localhost;Database=dbname;uid=name;pwd=password"’localhost为数据库ip地址,dbname为数据库名称,name为用户名,password为密码Ifconn.State=1Then’无需变更MsgBox"数据库连接无异常!"’检查语句,可删除‘此处编辑CURD,个人习惯使用下列方法sqll="select*fromtable"’查询语句,按实际需求变更Setrs1=conn.Execute(sqll)’无需变更Range(lie&hang).CopyFromRecordsetrs1'数据库查询结果将在lie列hang行开始展示EndIf’无需变更EndSub’无需变更
5、编辑完成VBA的代码后,单击执行按钮,即可运行代码,从数据库中导入数据至Excel表对应单元格内。执行按钮在菜单栏上,呈现为【绿色箭头】图标。
2、另一种方法执行VBA代码
1、之前采用的方式,需要每次进入【开发工具】【VisualBasic】中,单击【绿色箭头】按钮才可以运行代码。其实有一种更为简便的操作方式,下面进行介绍:在Excel工作簿内,单击【开发工具】【插入】,选择【表单控件】【按钮】
2、拖动按钮到Excel工作簿内,可以调整按钮的大小,满意后,【双击】按钮图标,可以进入代码编辑页面。
3、【双击】按钮图标进入的代码编辑页面淘篱跬翎中,有两行代码,第一行:PrivateSubCommandButton1_Click()第二行:EndSub我们只需将之前提供的VBA代码,【Pri即枢潋雳vateSubname()】与【EndSub】之间的内容复制过来,即可。关闭代码编辑页面,以后需要运行代码,直接单击按钮控件即可。