在工作中，为了方便从业务数据库中统计数据，为了方便大家操作EXCL连接业务数据库，读取所需的业务数据EXCEL本案例在分析统计中excel 2010和SQLServer2008年正常运行，其他EXCEL请自行测试版本。

操作方法如下：

第一步：新建工作表：

第二步:调出开发工具(如菜单未显示)

第三步：打开 VISUAL BASIC 编写代码也可以用快捷键打开AIT F11打开。

第四步：在当前工作表中新建模块，如下图所示：

第五步：在模块中粘贴以下代码：

Sub getDataFromSqlServerER() 'vba连接SqlServer

Dim i%, j%, sht As Worksheet 'i,j定义为整数；sht定义为页签对象
&#39；不需要增加以下语法引用ADO
Dim danhao As Range
Set conn = CreateObject("Adodb.Connection")
Set dataset = CreateObject("Adodb.Recordset")
Set sht = ThisWorkbook.Sheets("销货单1") &#39；工作表名称
'Sheet2.Range("A3:AA1000").Clear ' sht.Cells.Clear &#39；清空内容
Dim strCn$, strSQL$
strCn = "Provider=SQLoledb;Server=127.0.0.1;Database=UFDATA_790_2019;Uid=sa;Pwd=123456" &#39定义数据库连接字符串

&#39；请自行修改上述内容Server、Database、Uid、Pwd

strSQL = "select * from fh "  ' 查询句？

conn.Open strCn &#39；与数据库建立连接，成功返回连接对象conn
With dataset

.Open strSQL, conn '执行SQL语法，结果保存dataset数据集中
&#39；获取标题

For i = 0 To dataset.Fields.Count - 1

sht.Range("a3").Offset(0, i).Value = dataset.Fields(i).Name

Next

&#39；获取数据

sht.Range("a3").Offset(1, 0).CopyFromRecordset dataset

End With

dataset.Close: Set dataset = Nothing &#39；关闭数据集，

conn.Close: Set conn = Nothing &#39；关闭数据库连接

End Sub

第六步:保存后，运行宏可以在工作表中显示数据库中的数据。

总结：

通过在EXCEL数据分析和查询非常方便和提示：在实际操作过程中，需要查询的数据可以在数据库中处理。例如，多表数据可以创建视图，以便在查询过程中直接查询视图。视图创建见上一期如何创建视图。

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