excel vba 给单元格赋值_EXCEL日报自动化_2

建立“通报正文”表

整理好“数据源”表与“数据转化”表后，接下来就该把每条通报正文与图表一一对应起来，按事先拟定的分析框架进行整理。

① 新建一张工作表，并命名为“日报正文”。

② 在A1单元格处输入通报标题，合并A1：H1单元格，并设置字体大小及排版居中。

③ 添加日期下拉输入控件，可直接复制“数据转化”表中已设置好的下拉控件。

④ 输入、设置通报正文，例如在B4单元格输入“一、用户规模”，在B5单元格输入“=数据转化!I18”，将新增用户数的柱形图复制到B5单元格所在行的下方，图表数据会随原图表数据的更新而更新。其他通报正文设置亦同此理，我就不再重复介绍，直接完成设置。

⑤ 可隐藏通报正文范围外无须用到的单元格区域，例如要隐藏I列及其以后的列，那么用鼠标选中I列，同时按下【Ctrl+Shift+→】三个键，并单击鼠标右键，选中【隐藏】即可，同理，还可隐藏无须用到的行。

⑥ 如果希望隐藏行、列标题，可通过【文件】→【选项】→【高级】，找到【显示行和列标题】的复选框，去除勾选即可。

最终通报正文效果如图所示。

数据提取自动化

实现从数据库取数，把数据结果追加至Excel相应表中，需要用SQL与VBA语句，主要实现以下几个功能。

★ 打开Access数据库。

★ 输入提取数据的日期。

★ 运行指定的提数SQL语句。

★ 将SQL语句运行的数据结果自动追加到Excel“数据源”表的新记录中。

相关的VBA语句编写如下：

Sub每日数据提取()

'声明定义VBA语句中需要使用到的各个变量类型

Dim AdoConn As New ADODB.Connection '定义变量AdoConn为连接数据库对象(ADODB是数据库访问组件，Connection是其中的一个对象)，用于实现连接数据库和关闭数据库连接等操作

Dim MyData As String '定义变量MyData为字符串型变量，用于数据库路径赋值

Dim N As Integer 定义变量N为数值型变量，用于Excel表行数赋值

Dim D1 As Date '定义变量D1为日期型变量，用于数据起始日期赋值

Dim D2 As Date '定义变量D2为日期型变量，用于数据结束日期赋值

' 定义SQL语句所需要的4个字符串型变量，可根据实际需要选择需要声明的变量个数

Dim strSQL1 As String

Dim strSQL2 As String

Dim strSQL3 As String

Dim strSQL4 As String

' InputBox函数的作用是打开输入对话框，提示输入提数日期，并赋值给D1，D2赋值D1+1

D1 = InputBox("请输入需要提数的日期，例如：2011-9-4