wex5怎么接入数据库,wex5官网下载

工作中wex5怎么接入数据库,为方便从业务数据库中进行数据取数统计,为方便大家操作可以通过EXCL连接业务数据库,把需要的业务数据读取到EXCEL中进行分析统计,本案例在excel 2010和SQLServer2008下正常运行,其他EXCEL版本请自行测试。

操作 *** 如下wex5怎么接入数据库

第一步:新建一个工作表:wex5怎么接入数据库

第二步:调出开发工具(如菜单不显示)wex5怎么接入数据库

第三步:打开 VISUAL BASIC 进行代码编写,也可用使用快捷键打开AIT+F11打开。wex5怎么接入数据库

第四步:在当前工作表中新建模块,如下图所示:wex5怎么接入数据库

第五步:在模块中粘贴以下代码:Sub getDataFromSqlServerER() 'vba连接SqlServerDim i%, j%, sht As Worksheet 'i,j定义为整数;sht定义为页签对象'下面语法不需要增加引用ADODim danhao As RangeSet conn = CreateObject("Adodb.Connection")Set dataset = CreateObject("Adodb.Recordset")Set sht = ThisWorkbook.Sheets("销货单1") '工作表名称'Sheet2.Range("A3:AA1000").Clear ' sht.Cells.Clear '清空内容Dim strCn$, strSQL$strCn = "Provider=sqloledb;Server=127.0.0.1;Database=UFDATA_790_2019;Uid=sa;Pwd=123456" '定义数据库连接字符串'请自行修改上面的Server、Database、Uid、PwdstrSQL = "select * from fh " ' 其中的查询语句?conn.Open strCn '与数据库建立连接,成功返回连接对象connWith dataset.Open strSQL, conn '执行SQL语法,结果保存在dataset数据集中'获取标题For i = 0 To dataset.Fields.Count - 1sht.Range("a3").Offset(0, i).Value = dataset.Fields(i).NameNext'获取数据sht.Range("a3").Offset(1, 0).CopyFromRecordset datasetEnd Withdataset.Close: Set dataset = Nothing '关闭数据集,conn.Close: Set conn = Nothing '关闭数据库连接End Sub第六步:保存后,运行宏可在工作表显示数据库中的数据。wex5怎么接入数据库

wex5怎么接入数据库

总结:

通过在EXCEL中进行数据分析查询,很方便,小技巧:在实际操作过程中,可以将需要查询的数据在数据库中进行处理,如多表数据可创建视图,这样在查询时可直接查询视图,视图创建见上上期如何创建视图。

你学会了吗,关注我,一起学习数据分析。

发布于 2024-10-28 10:10:58
收藏
分享
海报
0 条评论
50
目录

    0 条评论

    本站已关闭游客评论,请登录或者注册后再评论吧~