.MinimumScale = 0 ' .MaximumScale = 200 ' .MinorUnit = 10 ' .MajorUnit = 50 ' .CrossesAt = 0 'Y
定义y坐标轴最小值 定义y坐标轴最大值 定义次刻度线单位 定义主刻度线单位 轴交汇点设为0
.MajorTickMark = xlInside ' .MinorTickMark = xlInside ' .HasMajorGridlines = False ' .HasMinorGridlines = False ' End With
Set mychart = Nothing ' Application.ScreenUpdating = True ' Sub
主刻度线方向朝内 次刻度线方向朝内 是否显示主网格线 是否显示次网格线
删除图表对象变量 恢复屏幕刷新 End
2）根据工作表一的 A1：B10数据生成柱状图嵌入表一，位置为数据右下角位置。
Sub Pic2() On Error Resume Next
Application.ScreenUpdating = False Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceDat a Source:=Sheets(\ ActiveChart.Location Where:=xlLocationAsObject, Name:=\
ActiveSheet.Shapes(ActiveSheet.Shapes.C ount).Left = ActiveSheet.Cells(11, 3).Left '定位于单元格 (10,2)右下角
ActiveSheet.Shapes(ActiveSheet.Shape s.Count).Top = ActiveSheet.Cells(11, 3).Top Application.ScreenUpdating = True End Sub
第三章 Excel VBA高级使用
通过以上章节的学习，估计大家都够能使用 Excel VBA进行基本的数据计算、数据汇总、数据的保存、 数据库的使用和绘制图表了，这些功能已经可以解决我们平时所遇到的大多数问题。但有时还会遇到一些 较难的问题，如计算机硬件或底层方面的使用。这些问题可以使用本章介绍的Windows API来解决。
Windows API是Windows的 32位应用程序编程接口，是一系列复杂函数、消息和结构的集合。这种 集合被包含在一个后缀名为 DLL的动态连接库文件中，装有Windows系统的电脑都有标准的Windows动 态连接库文件。编程人员可用不同编程语言的引用方法来使用它们，进而编制出解决 Windows系统底层问 题的应用程序。Excel VBA中使用 API可以让我们轻松实现一些高级功能，比如多媒体播放等，所以有必 要了解一些 API在 Excel VBA中的使用。一般来讲，只有会了Windows API才算真正进入了Windows系 统下程序开发的大门。
第一节 Win API的使用
Windows API 是英文Application Programming Interface的缩写，Win32 API也就是微软Windows 32位 操作系统的应用程序编程接口。我们可以认为 API函数是构筑整个Windows框架的基石，在它的下面是 Windows的操作系统核心，而它上面则是Windows的应用程序。在 Excel VBA中使用 API就是为了开发 出实用高效的应用程序，而 VBA
下使用 API函数需进行API函数的堀明才能使用。 一、堀明 API函数 堀明 VBA所在文件之外的过程或函数就能够访问 Windows API或其它外部动态连接库（ DLL）。在堀 明了过程或函数后，其调用方法与 VBA自己的过程或函数调用方法相同。要堀明一个 DLL文件中的过程
或函数，需要在代码窗口增加一个 Declare语句。例如取的计算机名礀的函数 GetComputerName ，作如 下堀明： Private Declare Function GetComputerName Lib \String, nSize As Long) As Long 或 Public Declare Function GetComputerName Lib \\String, nSize As Long) As Long
以上堀明的不同在于所堀明函数的使用范围， Private Declare堀明的是模块私有，只能在堀明它的模 块内调用； Public Declare堀明的是全局函数，可以在应用程序的任何地方调用，一般我们使用 Public Declare 堀明。堀明完毕后就能在程序中使用此函数。
二、使用 API函数或过程
以 API函数 Beep来说明 API函数的几种使用方法， Beep函数的介绍如下： 【 VBA堀明】 Public Declare Function Beep Lib \
Long) As Long 【说明】 用于生成简单的堀音 【返回值】 Long，非零表示成功，否则返回零。 【参数表】 dwFreq --------- Long，堀音频率（从 37Hz到32767Hz）。 dwDuration ----- Long，堀音的持续时间，以毫秒为单位。如为 -1，表示一直播放堀音，直到再次调用 该函数为止。
可采用以下几种方式使用API函数或过程，以 Beep为例： （1）忽略函数返回值的调用：
Beep 1000, 5000
注意此时函数的参数是不加括号的。 （2） Call方法调用： Call Beep(1000, 5000)
注意这里需要加上括号，但我们不取回函数的返回值。 （3）取得函数返回值的调用： MyLng = Beep(1000, 5000)
此时需要加上括号，而且我们必须事先定义一个变量（变量的类型与函数返回值类型相同）来存储 API函数的返回值。
三、堀明的一些说明
（1）堀明中的 Lib 和 Alias 是怎么回事 一般情况下Win32 API函数总是包含在Windows系统自带的或是其它公司提供的动态连接库 DLL中， 而 Declare语句中的关键字Lib就是用来指定 DLL（动态连接库）文件路径是系统库路径的，这样 VBA才 能找到这个 DLL文件，然后才能使用其中的 API函数。 如果我们只是列出 DLL文件名而不指出其完整路径的话， VBA会自动到 Excel文件所在目录、当前工 作目录、Windows\\System目录、Windows目录下搜寻这个 DLL文件。所以如果所要使用的 DLL文件不在
上輀几个目录下的话，我们应该指明其完整路径。
Alias用于指定 API函数的别名，如果我们调用的 API函数要使用字符串（参数中包含 String型）的话， Alias关键字是必须的。这是因为在 ANSI和 Unicode字符集中同一API函数的名礀可能不一样，为了保证 不出现堀明错误，所以我们使用 Alias关键字指出API函数的别名。 （2）常见API参数类型的说明
API函数的参数中最常见的是长整型数据（ Long）类型，例如 API中的句柄、一些特定的常量、函数 的返回值都是此类型的值；另外几种常见的参数类型有：整型Integer、 Byte型、String型等。 （3）堀明中的 ByVal是作什么用的
这跟 VBA的参数传递方式有关，在默认情况下 VBA是通过传值方式传递函数的参数、而有些 API函 数要求必须采用地址传递方式（ByRef）来传递函数参数（这两种参数传递方式是不同的，前者传递的是 参数真实的值，而后者要求是一个地址指针）。堀明中的 ByVal 表明参数是传递一个值。 （4）怎样轻松得到完整API函数堀明
Visual Basic 6.0 自带 API文本查看器 API Text Viewer，我们可以使用它来找到 API函数的完整堀明， 然后把它粘贴到程序就可使用。如果未安装VB6，大家可以到网上下载，此外网络上还有很多 API函数的 介绍，大家也可以下载来学习。 大家使用 API有必要对它进行有一定了解，然后再去使用 API文本查看器。虽然不必刻意研究每个 API 函数（如果真的知道 100来个 API函数的使用，相信绝对有用），但是需要我们了解一下该函数的作用。 而对 API函数功能的介绍，网络也有现成的软件供大家下载使用。 四、示例
（1）弹出一个对话框，提示计算机的名礀，并且扬堀器喇叭会鸣叫。
Private Declare Function Beep Lib \Long
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib \As String, nSize As Long) As Long
Sub ComputerName() Dim dwLen As Long
Dim strString As String '创建缓冲区 32位
dwLen = MAX_COMPUTERNAME_LENGTH + 1 strString = String(dwLen, \ '获得计算机名礀
GetComputerName strString, dwLen '获得实际名礀字串
strString = Left(strString, dwLen)
'播放频率为 4500赫兹的扬堀器堀音，持续 100微秒 For I = 0 To 5
目 录
第一章 Excel VBA 简明语言之基础
第一节 标识符 第二节 运算符 第三节 数据类型 第四节 变量与常量 第五节 数组使用 第六节 注释和赋值语句 第七节 书写规范 第八节 条件语句 第九节 循环语句
第十节 其他类语句和错误语句处理 第十一节 过程和函数 第十二节 内部函数
第二章 Excel VBA常用对象之使用
第一节 文件的操作
1) Excel文件 2) 文本文件 3) Access文件 4) 文件其它操作 第二节 工作表操作
1) 新建与删除 2) 隐藏与显示 3) 锁定与保护 第三节 单元格操作
1) 如何引用单元格和区域 2) 如何处理单元格和区域
3) 单元格和区域的定位 4）单元格和区域的保护与锁定 第四节 图表的操作
1) 新建及类型 2) 设置图表的数据 3) 图表格式设置 4) 散点图增加系列和文字 5) 实例
第三章 Excel VBA高级使用
第一节 Win API的使用
1) 堀明API函数 2) 使用API函数 3) 堀明补充说明 4) 实例
第二节 Excel VBA程序的保密
1) 使用动态连接库DLL 2) 获得硬盘物理地址 3) 加密与注册
第四章 Excel VBA优化及结束语
第一节 Excel VBA优化 第二节 结束语
附录I Excel VBA对象框架图
第一章 VBA语言基础
第一节 标识符
一．定义
标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常 量、过程、函数、类等的引用。 二．命名规则
1） 字母打头，由字母、数字和下划线组成，如 A987b_23Abc
2） 字符长度小于 40，（Excel2002以上中文版等，可以用汉字且长度可达 254个字符） 3） 不能与 VB保留关键字重名，如 public, private, dim, goto, next, with, integer, single等
第二节 运算符
定义：运算符是代表 VB某种运算功能的符号。 1）赋值运算符 =
2）数学运算符 &、 + (字符连接符 )、 +(加)、-（减）、 Mod（取余）、 \\（整除）、*（乘）、/（除）、-（负号）、^（指
数）
3）逻辑运算符 Not（非）、 And（与）、 Or（或）、 Xor（异或）、 Eqv（相等）、 Imp（隐含）
4）关系运算符 = （相同）、 <>（不等）、>（大于）、<（小于）、 >=（不小于）、 <=（不大于）、 Like、 Is 5）位运算符 Not（逻辑非）、 And（逻辑与）、 Or（逻辑或）、 Xor（逻辑异或）、 Eqv（逻辑等）、 Imp（隐含）
第三节 数据类型
VBA共有12种数据类型，具体见下表，此外用户还可以根据以下类型用 Type自定义数据类型。
数据类型
字符串型 String 字节型 Byte 布尔型 Boolean 整数型 Integer 长整数型 Long 单精度型 Single 双精度型 Double 日期型 Date 货币型 Currency 小数点型 Decimal 变体型 Variant 对象型 Object
类型标识符
$ 无 无 % 2 & 4 ! 4 # 8 无 @ 8 无 无 无
字节
字符长度 (0-65400)
1 2
8 公元 100/1/1-9999/12/31
14
以上任意类型，可变
4
第四节 变量与常量
1） VBA允许使用未定义的变量，默认是变体变量。
2）在模块通用说明部份，加入 Option Explicit 语句可以强迫用户进行变量定义。 3）变量定义语句及变量作用域 Dim 变量 as 类型 '定义为局部变量，如 Dim xyz as integer
Private 变量 as 类型 '定义为私有变量，如 Private xyz as byte
Public 变量 as 类型 '定义为公有变量，如 Public xyz as single Global 变量 as 类型 '定义为全局变量，如 Globlal xyz as date
Static变量 as 类型 '定义为静态变量，如 Static xyz as double 一般变量作用域的原则是，那部份定义就在那部份起作用，模块中定义则在该模块那作用。 Pi=3.1415926 as single
4）常量为变量的
一种特例，用 Const定义，且定义时赋值，程序中不能改变值，作用域也如同变量作用域。 如下定义： Const
第五节 数组
数组是包含相同数据类型的一组变量的集合，对数组中的单个变量引用通过数组索引下标进行。在内 存中表现为一个连续的内存块，必须用Global或Dim语句来定义。定义规则如下： Dim 数组名 ([lower to ]upper [, [lower to ]upper, ….]) as type ;Lower缺省值为0。二维数组是按行列排列，如 XYZ(行，列)。
除了以上固定数组外， VBA还有一种功能强大的动态数组，定义时无大小维数堀明；在程序中再利用 Redim语句来重新改变数组大小，原来数组内容可以通过加 preserve关键字来保留。如下例： Dim array1() as double : Redim array1(5) : array1(3)=250 : Redim preserve array1(5,10)
第六节 注释和赋值语句
1）注释语句是用来说明程序中某些语句的功能和作用； VBA中有两种方法标识为注释语句。 9 单引号 ’ ;如：’定义全局变量；可以位于别的语句之尾，也可单独一行
9 Rem ;如： Rem定义全局变量；只能单独一行 2）赋值语句是进行对变量或对象属性赋值的语句，采用赋值号 =，如X=123：Form1.caption=”我的窗口 ” 对对象的赋值采用： set myobject=object 或 myobject:=object
第七节 书写规范
1） VBA不区分标识符的字母大小写，一律认为是小写字母； 2）一行可以书写多条语句，各语句之间以冒号 : 分开；
3）一条语句可以多行书写，以空格加下划线 _ 来标识下行为续行； 4）标识符最好能简洁明了，不造成歧义。
第八节 条件语句
1） If…Then…Else语句
If condition Then [statements][Else elsestatements] 如1：If A>B And C
2）通过行列的隐藏来保护
本示例隐藏工作表“ Sheet1”的第5行和C列 Sub SetHide()
With Worksheets(\ 率 .Unprotect ‘ 句 .Rows(5).Hidden = True ‘ ‘ End Sub
使用With …End With语句块，提高效撤销保护，如果原先未保护则不需该
隐藏第5行 .Columns(\隐藏C列 .Protect ‘ 启动保
护，如果原先未保护则不需该句 End with
3）通过锁定区域来保护，可限定未锁定区域内输入 Sub SetLock() ActiveSheet.Unprotect Cells.Locked = True ‘ 表
Range(\ ActiveSheet.Protect End Sub
解锁区域 A1:B10，限定该区域为可输入区
锁定全
第四节 图表的操作
Excel让人喜爱的原因就是它有强大得计算功能和数图相关联的数据作图功能。本节就介绍下 VBA代 码作图方面内容。通过代码作重复的图，可以大大提高效率，比如我的作品 GeoPlot（www.geoplot.net）。 Excel图的代码绘制，最好是学习录制的宏来分析 VBA代码的作用，最后优化而成通用程序块。 一．新建及类型
1）设置一个对象等于新增图表对象就建立好了一个新图
1.1) 新图赋值给对象变量
Set mychart = Sheets(1).ChartObjects.Add (ChrLeft, ChrTop, ChrWidth, ChrHeight)
说明：增加一个嵌入图表，其左上角的位置坐标为（ ChrLeft, ChrTop），长宽为 ChrWidth×ChrHeight， 单位为磅。1磅为 1/72 英寸和 0.035 厘米，字体大小通常用磅数量度。 1.2) 直接增加一个图对象到图对象集Charts
Charts.A dd
2）图的类型可以更改 Chart对象的属性 ChartType来实现
2.1）图表对象变量的使用
mychart.Chart.ChartType = xlXYScatterLines ' 2.2）未设置对象变量的图
它的类型更改需要在增加它后，连续操作让它处于激活状态（ ActiveChart），这样可通过当前活动 图ActiveChart来使用。如：ActiveChart.ChartType = xlPie ‘饼图
散点图折线类型
3）图表有两大类，一是嵌入工作表上的图，另一类是作为新工作表图，其设置如下：
3.1）嵌入工作表上的图
ActiveChart.Location Where:=xlLocationAsObject, Name:= \或如1.1生成新图时就定义为 生成嵌入图ChartObjects.Add
3.2）新工作表图
ActiveChart.Location Where:=xlLocationAsNewSheet 或用图表对象变量属性更改 mychart.location where:= xlLocationAsNewSheet 二．设置图表的数据
一般是使用 Excel表格上数据，所以可以通过设置 Chart图表对象的数据来源属性来获得作图需要的 数据。如：ActiveChart.SetSource Date Source:=Sheets(\这里的 PlotBy:= xlColumns表示按列绘制数据；也可以按行绘制，其参数为PlotBy:= xlRows。
另外一种数据设置是对图的横、纵坐标数据分别赋值。如： mychart.chart.SeriesCollection.NewSeries ‘ mychart.chart.SeriesCollection(1).XValues = Array(45, 100) ‘ mychart.chart.SeriesCollection(1).Values = Array(50, 180) ‘ 三．图表格式设置
对于图的格式设置，一般是录制一个宏，再删除不需要的语句，这样是开发者最省事的方法。在本节 的示例中有详细的格式设置，可以更改坐标轴的名礀，大小范围，刻度大小等。对不清楚的图的类型名礀， 格式参数，我们都可以通过录制宏来了解学习。时刻记住，录制宏来分析代码，是最好的学习方法。
增加一个系列数据 横坐标数据组或单元对象 纵坐标数据组或单元对象
四．散点图增加一个系列和增加文字标签
1）用图表的系列集合对象的方法 NewSeries，就可以增加图的系列，然后再对新系列进行设置，如下：
mychart.chart.SeriesCollection.NewSeries ‘ 增加一个系列数据 mychart.chart.SeriesCollection(1).XValues = Array(45, 100) ‘横坐标数据组或单元对象 mychart.chart.SeriesCollection(1).Values = Array(50, 180) ‘ 纵坐标数据组或单元对象
2）对于散点图，我们可以增加文字标签于图上，方法如下：增加一个新的系列，不过数据就一点，不显 示数据点，而仅显示它的数据标签即可。如下示例。 With
mychart.chart.SeriesCollection(2) .MarkerStyle = xlNone ' 不显示点标记 .Points(1).HasDataLabel = True ' 数据标记及显示文字标
签 .Points(1).DataLabel.Text =”标签文字” ' 标签文字 .DataLabels.Position = xlLabelPositionCenter ' 位置风格，居中
End With
五．实例
1） 生成一个散点嵌入图于工作表窗口中心，绘制一条直线（45,50）— (100,180), 在第一点显示文字标签
“Test”，此外还加一个点（ 80， 100）。 代码和详细注释如下： Sub DrawChart()
'*******************************图表对象的定义和生成*********************************** '定义对象变量，以便设置它为图表（ chart）对象及图位置大小变量 Dim mychart As Object, mysheet As Object
Dim ChrLeft As Long, ChrTop As Long, ChrWidth As Long, ChrHeight As Long
On Error Resume Next
Application.ScreenUpdating = False
ChrWidth = 250: ChrHeight = 250
ChrLeft = Abs(Windows(ThisWorkbook.Name).Width - ChrWidth) / 2 ChrTop = Abs(Windows(ThisWorkbook.Name).Height - ChrHeight) / 2 '
With mychart.Chart
.ChartType = xlXYScatterLines ' .SeriesCollection.NewSeries ' .SeriesCollection(1).XValues = Array(45, 100) .SeriesCollection(1).Values = Array(50, 180)
.SeriesCollection(1).Points(1).HasDataLabel = True ' .SeriesCollection(1).Points(1).DataLabel.Text = \ .SeriesCollection.NewSeries ' .SeriesCollection(2).XValues = 80 .SeriesCollection(2).Values = 100
End With '*******************************图表风格定义*********************************** With mychart.Chart .ChartArea.Font.Size = 10 ' .HasLegend = False '
.Axes(xlCategory, xlPrimary).HasTitle = True 'X .Axes(xlCategory, xlPr imary).AxisTitle.Characters.Text = \ .Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrim ary).AxisTitle.Characters.Text = \轴坐标名\ .PlotArea.Interior.ColorIndex = xlNone ' End With
With mychart.Chart.Axes(xlCategory) .MinimumScale = 0 ' .MaximumScale = 200 ' .MinorUnit = 10 ' .MajorUnit = 50 ' .CrossesAt = 0 'X .MajorTickMark = xlInside ' .MinorTickMark = xlInside ' .HasMajorGridlines = False ' .HasMinorGridlines = False ' End With
With mychart.Chart.Axes(xlValue)
定义X坐标轴最小值 定义X坐标轴最大值 定义次刻度线单位 定义主刻度线单位 轴交汇点设为0 主刻度线方向朝内 次刻度线方向朝内 是否显示主网格线 是否显示次网格线 定义投图区为透明 图表字符的大小 图是否显示图例 轴是否有坐标名 点1是否显示数据标签 点1的标签文字
增加一次投点,就投个点（ 80，100） 散点折线图类型 增加一次投点,画条直线 计算图表在窗口中心坐标
Set mychart = Sheets(1).ChartObjects. Add(ChrLeft, ChrTop, ChrWidth, ChrHeight)
Rs2.Close
Set Rs2 = Nothing End Sub
'****[添加]按钮程序 **** Private Sub CommandButton9_Click() Rs1.AddNew '添加一条记录，注意Fields(0)字段为主键且 Access自动编号，这可以保证添加内容可以重复，否则出 错 totalRecs = totalRecs + 1 Rs1.Fields(1) = TextBox1.Text Rs1.Fields(2) = TextBox2.Text Rs1.Fields(3) = TextBox3.Text Rs1.Fields(4) = TextBox4.Text Rs1.Fields(5) = TextBox5.Text Rs1.Fields(6) = TextBox6.Text Rs1.Fields(7) = TextBox7.Text Rs1.Fields(8) = TextBox8.Text Rs1.Update curRecNo = totalRecs Call dis_form End Sub
'****在窗体上显示当前记录***** Private Sub dis_form() TextBox1.Text = Rs1.Fields(1) TextBox2.Text = Rs1.Fields(2) TextBox3.Text = Rs1.Fields(3) TextBox4.Text = Rs1.Fields(4) TextBox5.Text = Rs1.Fields(5) TextBox6.Text = Rs1.Fields(6) TextBox7.Text = Rs1.Fields(7) TextBox8.Text =
Rs1.Fields(8) CommandButton1.Enabled = curRecNo > 1 CommandButton2.Enabled = curRecNo > 1
CommandButton3.Enabled = curRecNo < totalRecs CommandButton4.Enabled = curRecNo < totalRecs TextBox9 = curRecNo End Sub (6).数据库使用 SQL查询语言
数据库一般都提供了关连式数据库的查询语言 SQL (Structured Query Language)， 它是一种非常口语 化、既易学又易懂的语法。此语言几乎是每个数据库系统都必须提供的，用以表示关连式的操作，包含了 资料的定义 (DDL)以及资料的处理 (DML)。
对于 SQL语言的使用，请参考别的专业教程，本文就简约介绍一下，示例中也仅用到一点SQL语言。 （6.1）资料定义 DDL（Data Definition Language）
资料定义语言是指对资料的格式和形态下定义的语言，他是每个数据库要建立时候时首先要面对的， 举凡资料分哪些表格关系、表格内的有什么字段元主键、表格和表格之间互相参考的关系等等，都是在开 始的时候所必须规划好的。 如建表格：Create Table table_name (column1 DATATYPE [NOT NULL] [NOT NULL PRIMARY KEY], column2 DATATYPE [NOT NULL],...) （6.2）资料操作 DML（Data Manipulation Language)
资料定义好之后接下来的就是资料的操作。资料的操作不外乎增加资料（ insert)、 查询资料（ query）、 更改资料（ update） 、删除资料（ delete）四种模式，以下分别介绍他们的语法： 增加资料： INSERT INTO table_name (column1,column2,...) VALUES ( value1,value2, ...) 查询资料： SELECT * FROM table_name WHERE conditions 更改资料：UPDATE table_name SET column1=''xxx'' WHERE conditoins 删除资料： DELETE FROM table_name WHERE conditions
4) 文件其它操作 4.1) 判断文件存在
使用 Dir 函数判断 , 格式: Dir [(pathname [, attributes] ) ] Dir 会返回匹配 pathname 的第一个文件名。示例如下 . strfile = Dir(ThisWorkbook.Path & \检查文件是否存在 If strfile <> \存在就打开
Workbooks.Open ThisWorkbook.Path & \文件不存在就警告 MsgBox \文件不存在 \警告\4.2) 搜查文件
使用 Application.FileSearch方法 示例如下 : pp = \With Application.FileSearch .NewSearch .LookIn = pp .Filename = \查找文件 prn*.tmp *为指代符 If .Execute() > 0 Then ff = .FoundFiles.Count End With
MsgBox pp & \找到 \个档案 !\
4.3) 删除文件 使用 kill 方法 示例如下 : kill(“c:\\mytest.txt”) 4.4) 取得文件日期属性
使用 FileSystem object对象实现 , 示例函数如下 Function FileDate(filespec, datetype) Dim fs, f, s
Set fs = CreateObject(\
Set f = fs.GetFile(filespec) Select Case datetype Case 1: FileDate = f.DateCreated '
Case 2: FileDate = f.DateLastAccessed '
档案建立日期 存取日期 Case 3:
FileDate = f.DateLastModified '修改日期 End Select End Function 4.5) FileSystemObject文件系统对象的使用
FileSystemObject (FSO，下面简礀为 FSO) 对象模型，具有大量的属性、方法和事件，使用面向对象 的“ object.method”语法，来处理文件夹和文件，可以在Office 2000 以后版本使用。 FileSystemObject 并 不是 VBA 的一部分，它是以一个 COM 组件的形式提供，可以在VB、 VBA、 VBScript 中使用。
FSO对象模型可以创建、改变、移动和删除文件夹，或探测特定的文件夹是否存在，若存在，还可以 找出有关文件夹的信息，如名礀、被创建或最后一次修改的日期，等等。 FSO 对象模型还使文件处理变得 很容易。可以创建文件，插入和改变数据，以及输出（读取）数据。 FSO 对象模型，支持通过 TextStream 对象来创建和操作文本文件，但不支持二进制文件的创建或操作，这可以用 VBA语句完成。
使用 FileSystemObject 对象模型进行文件操作的步骤是： 1. 使用 CreateObject 方法来创建 FileSystemObject 对象； 2. 在新创建的对象上使用适当的方法； 3. 访问对象的属性。
下面代码显示如何创建 FileSystemObject 实例： Dim fso
Set fso = CreateObject(\在这个示例中， Scripting 是类型库的名字，而 FileSystemObject 则是想要创建的对象的名字。
使用 FSO 处理文件夹的任务和方法 创建文件夹 FileSystemObject.CreateFolder 删除文件夹 Folder.Delete 或 FileSystemObject.DeleteFolder 移动文件夹 Folder.Move 或 FileSystemObject.MoveFolder 复制文件夹 Folder.Copy 或
FileSystemObject.CopyFolder 检索文件夹 Folder.Name 如果文件夹在驱动器上存在，则找出它 FileSystemObject.FolderExists 获得现有Folder 对象的实例 FileSystemObject.GetFolder 找出文件夹的父文件夹名
FileSystemObject.GetParentFolderName 找出系统文件夹的路径 FileSystemObject.GetSpecialFolder FSO 中写数据到文本文件的方法
向打开的文本文件写数据，不用后续一个新行字符 Write 向打开的文本文件写数据，后续一个新行字符 WriteLine 向打开的文本文件写一个或多个空白行 WriteBlankLines FSO 中读取文本文件的方法
从文件读取指定数量的字符 Read
读取一整行（一直到但不包括新行字符） ReadLine 读取文本文件的整个内容 ReadAll
FSO 中移动、复制和删除文件的方法 移动文件 File.Move 或 FileSystemObject.MoveFile 复制文件 File.Copy 或 FileSystemObject.CopyFile 删除文件 File.Delete 或 FileSystemObject.DeleteFile
使用 FSO 处理文件、文件夹比使用 VBA 语句的方法具有更易操作的特点， FSO 除了不能处理二进制文 件，其文件和文件夹处理的方法也更完备，更直观和易于使用。
第二节 工作表操作
在文件操作一节已经讲了 Excel工作簿文件的打开、新建、保存和关闭了，这里再讲文件下的表格操作。 1) 新建与删除 新建工作表、图表或宏表。新建的工作表将成为活动工作表。 Sheets.Add (Before, After, Count, Type) 说明：
Before Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之前。 After Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之后。 Count Variant 类型，可选。要新建的工作表的数目。默认值为 1。
Type Variant 类型，可选。指定工作表类型。可为以下 XlSheetType 常量之一： xlWorksheet、 xlChart、 xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。默认值为 xlWorksheet。 如果 Before 和 After 两者均省略，则新建的工作表将插入到活动工作表之前。 示例： Sheets.Add after:=Sheets(Sheets.Count) 该语句可以在最后一个工作表后增加一个新表 删除工作表
Sheets(“工作表名 ”).Delete 示例：在工作表末新建一个和删除倒数第二个表。 Sub MySht()
Application.DisplayAlerts = False '关闭删除确认对话框 Sheets.Add after:=Sheets(Sheets.Count) Sheets(Sheets.Count - 1).Delete
Application.DisplayAlerts = True '开启确认对话框 End Sub
2) 隐藏与显示
使用工作表的 visible属性来设置工作表是否隐藏或显示 隐藏 Sheets (\ 显示 Sheets (\
3)保护与撤销
保护工作表使其不至被修改。
Sheets(“工作表名 ”).Protect (Password) 撤销工作表保护使其被修改。
Sheets(“工作表名 ”).Unprotect (Password)
Password Variant 类型，可选。为一个字符串，该字符串为工作表或工作簿指定区分大小写的密码。如 果省略本参数，不用密码就可以取消对该工作表或工作簿的保护。否则，必须指定密码，通过密码来取消 对该工作表或工作簿的保护。
示例： Sheets(“sheet1”).Protect “123456” Sheets(“sheet1”).Unprotect “123456” 如果要对工作进行详细保护设置，可参考Excel VBA参考，这里仅讲简单的参数设置。
第三节 单元格和区域操作
Excel数据的计算归根到底还是对表的单元进行的，所以单元格和区域操作非常重要的，这一节就详 细介绍这方面的内容。 一、如何引用单元格和区域
1）用 Range属性引用单元格和单元格区域 使用 Range 属性来引用 A1 引用样式中的单元格或单元格区域及进行属性更改和赋值。如例句： Sheets(\Sheets(\
Range 对象既可表单个单元格，也可表单元格区域。下面说明 Range 对象最常用方法。
引用 Range(\
含义 单元格 A1
Range(\从单元格 A1 到单元格 B5 的区域 Range(\多块选定区域 Range(\Range(\Range(\
列 第一行
从第一行到第五行的区域
Range(\第 1、 3 和 8 行 Range(\
从 A 列到 C 列的区域
Range(\、 C 和 F 列 Range(\单元格区域名礀 \命名的单元格区域 2）用 Cells属性引用单元格
可用 Cells 属性通过行列编号来引用单个单元格。下例中 Cells(6,1) 返回 Sheet1 上的单元格 A6，然后将 Value 属性设置为 10。如：Worksheets(\因为可用变量替代行列编号，所以 Cells 属性非常适合单元格区域中循环且速度很快。如下例所示： Counter End Sub
3）用 Rows或Columns属性引用行列
Sub CC ()
Dim Counter As Integer For Counter = 1 To 20 Worksheets(\
可用 Rows 属性或 Columns 属性来处理整行或整列。下例中，用 Rows(1) 返回 Sheet1 上的第一行，然
后将单元格区域的 Font 对象的 Bold 属性设置为 True。如：Worksheets(\
下表举例说明了使用 Rows 和 Columns 属性的一些行和列的引用。 引用
Rows
含义 Rows(1) 工作表上所有的行
第一行
Columns(1) 第一列 Columns(\第一列 Columns
工作表上所有的列
4）用 Union方法合并区域后引用
若要同时处理若干行或列及区域，请创建一个对象变量并使用 Union 方法，将对多个区域组合起来。下 例将活动工作簿中第一张工作表上的第一行、第三行和第五行的字体设置为加粗。 Sub SeveralRows()
Worksheets(\myUnion.Font.Bold = True End Sub 5）用括号 [ ]引用单元格和区域
可用方括号将 A1 引用样式或命名区域括起来，作为 Range 属性的快捷方式。这样就不必键入单词 “ Range”或使用引号，如下例所示：Worksheets(\6) 用 Offset相对其他单元格来引用单元格
处理相对于另一个单元格的某一单元格的常用方法是使用
Offset 属性。下例中，将位于活动工作表上活 动单元
格下一行和右边三列的单元格的内容设置为双下划线格式。 如：ActiveCell.Offset(1, 3).Font.Underline = xlDouble 7) 用 Selection 属性引用活动区域
Select 方法激活工作表和工作表上的对象；而 Selection 属性返回代表活动工作簿中活动工作表上的当前 选定区域的对象。在成功使用 Selection 属性之前，必须先激活工作簿，并激活或选定工作表，然后用 Select 方法选定单元格区域（或其他对象）。
宏录制器经常创建使用 Select 方法和 Selection 属性的宏。下輀 Sub 过程是用宏录制器创建的，该过程 演示了 Select 方法和 Selection 属性在一起使用的方法。 Sub Macro1()
Sheets(\ Range(\
ActiveCell.FormulaR1C1 = \ Range(\
ActiveCell.FormulaR1C1 = \ Range(\ Selection.Font.Bold = True
End Sub
8）区域中循环引用单元格方法
使用 VBA时，经常需要对某一单元格区域内的每个单元格运行同一段语句。为达到这一目的，可组 合循环语句和一个或多个方法来标识每个单元格，一次针对一个单元格，并执行该操作。 8.1) For...Next 循环语句与 Cells 属性配合使用
使用 Cells 属性时，可用循环计数器（或其他变量或表达式）来替代单元格索引编号。下例中变量 counter 代替行号。此过程在单元格区域 C1:C20 中循环，将绝对值小于 0.01的单元都置为 0。
Sub RoundToZero1() For Counter = 1 To 20
If Abs(Cells(counter,3).value) < 0.01 Then Cells(counter,3) = 0 Next End Sub
8.2) For Each...Next 循环语句和 Range 属性配合使用 示例如下： Sub RoundToZero2() For Each c In Worksheet
s(\c.Value = 0 Next End Sub
二、如何处理单元格和区域 1 处理三维区域 如果要处理若干工作表上相同位置的单元格区域，可用 Array 函数选定两张或多张工作表。下例设置三 维单元格区域的边框格式。 Sub FormatSheets() Sheets
(Array(\xlDouble End Sub 2 处理活动单元格
ActiveCell 属性返回代表活动单元格的 Range 对象。可对活动单元格应用 Range 对象的任何属性和方 法，如下例所示。 Sub SetValue()
Worksheets(\
ActiveCell.Value = 35 End Sub 注意 只有活动单元格所在的工作表处于活动状态时，才能处理该活动单元格。
3 选择活动单元格周围的单元格
CurrentRegion 属性返回由空白行和空白列所包围的单元格区域。下例中，选定区域扩充到与活动单元格
相邻的包含数据的单元格中，然后用“货币”样式设置该区域的格式。
Sub
Region() Worksheets(\Selection.Style = \4 单元格和区域赋值
用赋值号 ＝ 赋值，如给 A1赋值为 10：Range(A1).Value=10 (由于 Value是默认属性，所以可以直接省略 ) 区域赋值，如 Range(A1:D5)=10 5 单元格和区域赋予公式进行计算
把公式字符串赋予给单元格或区域的 Formula属性，如下例 : 注意一点是公式字符串中要有开头的等号＝。 Sub EnterFormula() Worksheets(\三、单元格和区域的定位
1) 使用单元格的 End属性来定位边界 如： 数据区域的最下行的确定： Sheets(1).cells( 65536,1).End(xlup).Row 数据区域的最右列的确定：
Sheets(1).cells(1,1).End(xltoright).Column 选定包含单元格“ B4”的区域在 B 列中顶端的单元格： Range(\选定包含单元格“ B4”的区域在第 4 行中最右端的单元格:
Range(\将选定区域从单元格“ B4”延伸至第四行最后一个包含数据的单元格 : Range(\
2) 善用已用区域UsedRange对象来获得区域范围 如：需要获得先前表格已用区域的最右下角单元格位置 Sub Loc ()
temp = [a1] ：[a1] = 1 ‘ 使用 A1单元格，保证已用区域从 A1开始 irow = ActiveSheet.UsedRange.Rows.Count ‘右下单元格行 icol = ActiveSheet.UsedRange.Columns.Count ‘右下单元格列 [a1] = temp ‘ 还原 A1的值 Cells(irow, icol).Select ‘ 选中右下角单元格 End sub
四、单元格和区域的保护与锁定
1）工作表选择改变事件过程中保护，如下：不许可用户选择及改动保护单元格区域，示例中保护 B1:B10 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range Set rng = Range(\Intersect(Target, rng) Is Nothing Then Exit Sub ‘ 选择单元不在保护区内就退出 MsgBox \不可以选取单元格！\选择单元在保护区内就改变选择 ActiveSheet.Range(\
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库Excel_VBA_之经典教程在线全文阅读。
相关推荐：