第23章：经由过程VBA程序利用Excel服务器（一）

到了2009年时候已经明显体会到企业对于信息自动化的迫切需求，于是自行编写了一个较小的程序，用于信息化的内部管理，由于做的不够专业，当数据量的增加时信息就会出现错误，且没有团队的支持，对BUG的更新能力薄弱。因此，无法满足企业的需求，数据准确性也无法保证。 VBA是Visual Basic for Applicaton的缩写，它是一种通用的主动化言语，在Excel中，能够经由过程编写VBA程序，扩大Excel的功效。
本章目标是解说怎样经由过程VBA程序挪用Excel服务器供应的功效。而不在于对VBA编程办法自己的先容。本章的读者对象是把握VBA编程的用户。若您对VBA编程不懂得，可略过本章内容，不影响别的章节的进修。

23.1 VBA编程概述

23.1.1 VBA编程情况

Visual Basic工具栏
在Excel工具栏的恣意一处点击鼠标右键，从弹出菜单当选择“Visual Basic”，呈现Visual Basic工具栏，以下图：

登录/注册后可看大图

<br>

图 23-1 Visual Basic工具栏

VBA编纂器
点击Visual Basic工具栏上的 ，可进进Visual Basic编纂器，如图：

登录/注册后可看大图

<br>

图 23-2 Visual Basic编纂器

另有一种进进VBA编纂器的办法：点击菜单“工具à宏àVisual Basic编纂器”
经由过程匡助进修VBA编程
在VBA编纂器中点击“匡助”菜单，可看到翻开Visual Basic联机匡助，您能够体系、完全地进修VBA编程的有关内容。
使用按钮和窗体等控件
点击Visual Basic工具栏上的 ，弹出控件工具箱，个中列示各类文本框、复选框、按钮等各类控件，若想在事情表上增加一个控件，可先在控件工具箱中单击此控件，然后在事情表上单击，该控件会呈现在响应地位，您能够进一步修正它的属性或增加事务处置程序。

登录/注册后可看大图

<br>

图 23-3 控件工具栏

23.1.2 Excel对象模子

从编程的角度来看，Excel的各个构成部分都称为对象，一个事情簿是一个Workbook对象，个中的每一个事情表是Worksheet对象，一个单位格是range对象，等等。每种对象都有必定的“属性”。好比说，Range对象有一个属性，代表单位格中的内容，如许，当我们想失掉A4单位格的值时，就能够写如许一行代码：
x=range(“A4”).
对象另有必定的“事务”和“办法”，好比说，workbook对象有一个beforePrint事务，当用户打印事情簿文件时产生，如许，假如我们但愿在打印条件醒用户反省打印机，就能够写上面的这段代码。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    MsgBox "请反省打印机，然后按断定。"
End Sub

下表枚举了Excel的经常使用对象及其属性和办法

对象名

寄义

属性/办法

属性/办法寄义

Workbook
事情簿
Worksheets
属性
属性，所包括的事情表汇合
Worksheets
事情表汇合
Count
属性
汇合中包括的事情表数
Worksheet
事情表
Name
属性
事情表称号


Prut
办法
打印


PrintPreview
办法
打印预览
Range
单位地区(格)
Address
属性
地区地点


Row
属性
左上角行号


Column
属性
左上角列号


Rows
属性
包括的一切行


Columns
属性
包括的一切列



属性
值


Formula
属性
公式内容


ct
办法
选中地区

翻开Excel的联机匡助，在目次树中睁开“编程信息”，可看到Excel的对象模子，以下图所示。从中您能够具体懂得每种对象及其属性和办法的寄义、用法。

登录/注册后可看大图

<br>

图 23-4 Excel对象模子

23.1.3 事务驱动的编程

如前所述，Excel中的事情簿、事情表、单位地区、单位格、工具栏等都是对象，每类对象都有本人的一套属性、办法和事务。“事务”在用户操纵后产生，好比“保留”是一个事务，“翻开”某个事情簿是一个事务，在某单位格中“输出”内容是一个事务，点击一个按钮仍是一个事务。假如我们但愿在完成某项操纵的时侯实行某段程序，就要把这段程序写在该操纵对应的事务处置程序中。

经常使用的事务有

对象

操纵

事务处置程序

事情簿
翻开
Workbook_Open

封闭
Workbook_BeforeClose

保留
Workbook_BeforeSave

打印
Workbook_BeforePrint
事情表
双击
Worksheet_BeforeDoubleClick

右击
Worksheet_BeforeRightClick

选中地区/单位格
Worksheet_ctionChange

改动单位格内容
Worksheet_Change

激活
Worksheet_Activate


公司信息化历程：在实施勤哲EXcel服务器之前，企业内部对于数据的统计都是以手工做帐为主，这会导致信息反馈和收集不及时，生产发货进度无法灵活调度，并且很难控制库存量。

本来在潜水，看到LZ这篇矿石奇文，实在忍不住出来冒个泡泡：真TM天书啊！

顶起出售广告位

每天对着单位那群白痴讲话让我觉得前途很渺茫……

站位支持

前排支持下了哦~

介是神马？！！

珍爱生命，果断回帖。

占坑编辑ing

秀起来~

求沙发

元芳你怎么看？

仓酷云

无论是不是沙发都得回复下

沙发位出租，有意请联系电话：13838384381

LZ是天才，坚定完毕

撸过

无论是不是沙发都得回复下

确实不错，顶先

我也是坐沙发的

不错 支持下