Erase arr(清空VBA数组)  

在循环中,如果需要清空VBA数组,可以用Erase方法来实现.
该示例使用 Erase 语句重新初始化固定大小的数组中的元素，以及释放动态数组存储空间。
Dim NumArray(10) As Integer ' Integer 数组。
Dim StrVarArray(10) As String '变长的 String 数组。
Dim StrFixArray(10) As String * 10 '定长的 String 数组。
Dim VarArray(10) As Variant 'Variant 数组。
Dim DynamicArray() As Integer '动态数组。
ReDim DynamicArray(10) '分配存储空间。
Erase NumArray '将每个元素设为 0。
Erase StrVarArray '将每个元素设为 '零长度字符串 ("")。
Erase StrFixArray '将每个元素设为 0。
Erase VarArray '将每个元素设为 Empty。
Erase DynamicArray '释放数组所用内存。
VBA动态数组  

VBA动态数组 
偶尔用到VBA，发现在help中就有VB的简单的帮助，第一次用需要安装，程序会自动安装好。
关于动态数组在网上搜索得出的结论如下：
1. 用法
Dim sAry() As Variant 

ReDim sAry(2) '定义成三个 

ReDim Preserve sAry(4) '定义成五个 

ReDim Preserve sAry(3) '定义成四个 

Erase sAry '回收数组 

2. 可能在有效区域内有效，跳出后就释放了，如果不放心，那么同上面使用Erase
vba,vb,动态数组,帮助,excel

Excel宏编程可以快速完成批量表格操作：复制粘贴、数据过滤等，宏代码基于VB语言实现，有基础的编程经验就能快速阅读。下面是我的学习笔记。

 

1. Excel VBA编辑界面

（进入路径： sheet名称 --> 鼠标右键菜单 --> 查看代码）

 

2. 输入代码方法：

在VBE编辑器的代码模块中输入VBA代码，通常有以下几种方法： 

■ 手工键盘输入； 

■ 使用宏录制器，即选择菜单“工具——宏——录制新宏”命令，将所进行的操作自动录制成宏代码； 

■ 复制/粘贴代码，即将现有的代码复制后，粘贴到相应的代码模块中； 

■ 导入代码模块：文件-->导入文件 **不用的模块可以：文件-->移出模块

 

3. VB代码阅读扫盲

(1) 模块声明：

Sub sName() ... End Sub
Sub xxxxx()
XXXXXXXXX
End Sub

(2) 变量声明：

Dim sPara As sType
Dim para1, para2, para3
Dim para4 As workbook, para5 As String
Dim G As Long

(3) 选择结构： 

With ... End With
If condition Then ... End If

# 举个例子：遍历每个Sheet把表粘贴成一个大表的语句，使用For Next With End With语句

With Workbooks(1).ActiveSheet
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy       .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With

(4) 循环结构

Do While condition ... Loop
For i = 0 to 100 ... Next

(5) 输出Log：

MsgBox sString

案例解析：解析拷贝路径下所有Excel到一个工作表下的示例：

************************************************************************************************************************************

Sub 合并当前目录下所有工作簿的全部工作表()  #模块名称
Dim MyPath, MyName, AWbName	  		#变量声明
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False			#停止屏幕刷新
MyPath = ActiveWorkbook.Path				#获取当前工作文件路径
MyName = Dir(MyPath & "\" & "*.xls")		#获取当前文件名（截取字符串）
AWbName = ActiveWorkbook.Name			#获取当前BookName
Num = 0								#准备进入循环处理
Do While MyName <> ""					#第一个循环体：遍历所有文件 终止条件是 文件名为空
If MyName <> AWbName Then				#条件：文件名当前激活文件不同
Set Wb = Workbooks.Open(MyPath & "\" & MyName)		# 设置工作表的名称（当前Sheet Name）
Num = Num + 1						#计数用于输出
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
#赋值语句：激活Sheet的A列最后一个单元格赋值为MyName去掉‘.xls’的部分
#Left 截取字符串 去掉了'.xls'
#workbooks(n) 为取工作簿 的写法
#A65535(一个极大数)单元格向上，最后一个非空的单元格的行号
For G = 1 To Sheets.Count					#嵌套循环体：遍历文件的所有Sheets
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)	
  	#赋值所有内容到以结束内容空一行开始的表格中
Next									#且套循环体结束							
WbN = WbN & Chr(13) & Wb.Name			# & 为合并字符串的符号		
Wb.Close False							#对于文件操作结束，关闭Excel文件
End With								#退出第二个判断
End If								#退出第一个判断
MyName = Dir		 					#怎么拿到第二个bookName
Loop									#循环体结束
Range("B1").Select						#选中B1
Application.ScreenUpdating = True			#允许Excel屏幕刷新
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

 

************************************************************************************************************************************

常用模块：

1. 把一个workBook的一块表格拷贝到另一个WorkBook中的一般化方法：

上面的代码中是一种简单的实现：拷贝所有内容到空行区域

需要将拷贝的内容和粘贴的位置控制更加精准控制：

 

拷贝指定位置到指定位置：

Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")

2. 找到粘贴位置：

b=sheet2.[BI].end(xlToLeft).row+1 获取最后一次编辑的各自的列号！

.Range("B65536").End(xlUp).Row + 2 最后一次编辑的格子的行号

A1 直接编辑

.Cells(nRowNo, nColNo)

...

 

 

实战案例分析：一个将多个相同格式表格合并生成横表的例子：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Dim HasTitil As Boolean
Dim LastRange As String
Dim CurRowNo As Long

Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
HasTitil = False

With Workbooks(1).ActiveSheet
.Cells(1, 2) = "Cor.Name"
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
.Cells(1, Num + 2) = Left(MyName, Len(MyName) - 4)

If HasTitil <> True Then

Wb.Sheets(1).Range("A4:B43").Copy .Cells(2, 1)
Wb.Sheets(1).Range("E4:F43").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Wb.Sheets(2).Range("A5:B73").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Wb.Sheets(2).Range("E5:F73").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Wb.Sheets(3).Range("A4:B32").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Wb.Sheets(3).Range("E4:F32").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Wb.Sheets(4).Range("A5:B100").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)

HasTitil = True
End If

CurRowNo = 2
Wb.Sheets(1).Range("D4:D43").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 40
Wb.Sheets(1).Range("H4:H43").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 40
Wb.Sheets(2).Range("D5:D73").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 69
Wb.Sheets(2).Range("H5:H73").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 69
Wb.Sheets(3).Range("D4:D32").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 29
Wb.Sheets(3).Range("H4:H32").Copy .Cells(CurRowNo, Num + 2)
CurRowNo = CurRowNo + 29
Wb.Sheets(4).Range("D5:D100").Copy .Cells(CurRowNo, Num + 2)

Wb.Close False
End If
MyName = Dir
Loop

End With

Range("B1").Select
Application.ScreenUpdating = True
End Sub

 

VBA

一，概述 
二, 宏 
三，使用控件设计用户界面 
四，使用VB编辑器 
五，VBA语法基础 
六，VBA对象模型 
七，模块 
八，测试与错误处理 
九，VBA的安全性和保护工具 
十，VBA程序的部署 
十一，VBA高级应用 
参见 
一，概述
VBA(Visual Basic For Applications)是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。VBA是Visual Basic的一个子集,VBA不同于VB，原因是VBA要求有一个宿主应用程序才能远行，而且不能用于创建独立应用程序。而VB可用于创建独立的应用程序。VBA可使常用的过程或者进程自动化，可以创建自定义的解决方案，最适用于来定制已有的桌面应用程序。 
 
通常意义上的VBA就是在Office中包含着的一种加强Office功能的Basic语言。经过发展，在Office中，Word、Excel、Access、PowerPoint?四个软件都有了自己的程序设计语言，分别称为WordBasic?、ExcelBasic?、AccessBasic?、PowerPointBasic?(在Outlook中的开发语言为Visual Basic Scripting Edition)。通常统一称为VBA（VB for Application）。 
 

二, 宏
 
宏是能够自动完成某个任务的一组指令，这些指令放在一起就如同一个命令一样。宏与Dos中的批处理文件一样。批处理文件用于自动化用户完成的一组任务。VBA把需要重复进行的任务创建宏，并编写其它涉及决策的任务的代码以完成任务自动化，最后可以把这个过程保存成文件并发布。 
 
录制宏比从头开始编写代码要快得多。在实际开发中，为节省时间可以先录制尽可能多的宏，用它来建立应用程序的基础,然后再对录制下来的代码进行修改。 
 
1，录制宏：在VBA中，可以采用宏录制器或编程的方式自动处理任务。不必了解宏录制器使用的编程语言，便可以在VBE编辑宏。通过记录完成任务的步骤，或者在VBA中编程，都可以创建宏。Office应用程序，例如word、Excel、PowerPoint?、Access和Outlook都支持宏。Office应用程序提供的创建宏的工具是Macro Recorder(宏录制器)和VB编辑器。宏录制器用于自动化重复的任务，而VB编辑器自动化那些涉及决策的任务。可以给宏指定符号(工具栏上的图标)、键(键盘上的键)或名字，用于表示一列命令、活动或击键。 
 
录制宏有两种方式，一是双击状态栏中的"录制"命令,或者鼠标单击工具/宏/录制新宏命令,WORD等将记录下您的操作并转换为VBA语言。 
 

 
2，修改宏： 
 
A, 指定快捷键: 
 
B, 指定宏的保存位置:Excel可保存宏到个人宏工作簿中 
 
C, Excel可将宏指定给按钮(视图|工具栏|窗体|点选按钮到页面|指定宏)/图片(插入|图片|右击图片|指定宏)/工具栏按钮(工具|自定义|命令|宏|自定义...|拖动自定义按钮到工具栏|右击按钮可编辑图标和指定宏|关闭自定义...) 
 

三，使用控件设计用户界面
 
首先要进行需求分析：应用程序的客户是谁，使用的数据的来源，数据保存在哪，对数据怎么操作，输出结果是什么?然后根据用户需求来添加控件(标签,按钮,复选框,选项按钮，列表框,组合框,滚动条控件,微调控件。)使用工作表还是用户窗体完全取决于个人的爱好和应用程序的用户。熟练Excel用户适合以工作表的形式工作。初级用户适合使用用户窗体。 
 
1, 向工作表添加控件: 视图|工具栏|窗体|点选控件到工作表|右击工作表上的控件选设置控件格式。通过使用控件、设置格式和公式，可以执行一些简单的自动化任务（至少对你的用户来说是这样）。 
 
2, 向用户窗体添加控件: 
 
(1)添加用户窗体: 打开一个新的工作簿|工具|宏|VBE|VBE的工具栏上的“插入用户窗体”按钮(或者选择“插入|用户窗体”，显示出新添加的用户窗体) 
 
(2)设置用户窗体的Name(一般前缀推荐取frm),Caption等属性 
 
(3)添加控件到用户窗体上:只要从工具箱中选择想要使用的控件，然后使用鼠标把控件拖到窗体上就可以了。 
 
(4)设置控件的Name,Caption和其它相关属性:控件Name命名前缀规范：复选框chk,组合框cbo,命令按钮cmd或者btn,分组框grp或者fra,图像img,标签lbl,列表框lst,多页（MultiPage?）mul,选项按钮opt,引用编辑（RefEdit?）ref,滚动条hsb或者vsb(取决于是水平的还是垂直的),微调项spn,选项卡条（TabStrip?）tab,文本框txt,切换按钮tog 
 
A, 命令按钮Default属性：一个窗体上只有一个命令按钮的Default属性可以设置为True。把Save（保存）/Cancel?（取消）按钮的Default属性设置为True。在窗体上当按下回车键时，窗体将执行保存/取消操作。 
 
B,控件的尺寸调整为一致并对齐:同时选中两个控件|点工具栏上“宽度相同”按钮旁边的向下箭头|选'两者都相同'|点“对齐”工具栏按钮旁边的向下箭头|选'左对齐'， 
 
C,禁用控件:把Enabled（启用）属性设置为False就可以禁用控件。 
 
D,为控件分配Tab键切换顺序:设置TabIndex?属性值，可以从第一个控件起设置其TabIndex?为0,1,2..，也可以从最后一个控件起逆序设置每个TabIndex?为0(原理：当把某个控件的TabIndex?属性值设置为0时，其他所有控件的TabIndex?属性值都会加1) 
 
E,为控件分配加速键(键盘访问键）:在控件的标题字母中找出一个作为该控件的加速键，把该字母赋值给控件的Accelerator属性，当设置完成以后，控件标题中该字母下会有下划线 
 
(5)运行用户窗体: 按F5键 
 

四，使用VB编辑器
 
VBE（Microsoft Visual Basic Editor,Visual Basic 编辑器,VB编辑器）就是我们设计/调试VBA代码的编辑器,它是捆绑在Application(如WORD)应用程序中的一个程序。进入VBE的方式:ALT+F11；工具/宏/Visual? Basic 编辑器命令；工具/宏/宏对话框,创建或者编辑命令,也可以进入Visual Basic 编辑器 
 

 
1, 使用工具栏 
 
2, 浏览代码功能:编辑|查找或替换；书签标注需要查错，添加代码，更新或升级的代码区域。 
 
3, 使用在线帮助：帮助|Microsoft Visual Basic帮助 
 
4, 使用对象浏览器：单击标准工具栏上的“对象浏览器”按钮。/选视图|对象浏览器/按F2键。 
 
5, 设置编辑器选项:工具|选项|编辑器选项卡|自动显示快速信息,自动语法检测等 
 

五，VBA语法基础
VBA语法基础 
 

六，VBA对象模型
VBA对象模型 
 

七，模块
 
作为一个单元保存在一起的定义、过程、函数和事件处理程序的集合称为模块。每个应用程序都是模块的集合。模块充当了项目的基本构件。它们是存储代码的容器。如果统筹安排模块内的代码,将有利于维护、调试和重复使用代码。如下共有三种类型的模块： 
 
1,用户窗体: 是用于为应用程序提供用户界面,采用．frm扩展名存储的用户窗体。窗体模块包含窗体中的所有控件及其属性。也可以为窗体和控件指定常量和变量声明、过程以及事件过程。窗体模块中的所有声明都默认是Private(私有)，不能在窗体外访问。 
 
2,标准模块: 是用于存储通用过程，以便其他模块中的过程可以调用，采用．bas扩展名存储的代码模块。它们包含常量、类型、变量、过程和函数的声明。标准模块中所有声明都默认是Public(公共的)，可以在模块外全局访问。当录制宏时，如果不存在该模块，Excel会自动为你创建。如果愿意，也可以添加附加的模块。Excel和VBA并不关心过程位于哪个模块中，只要过程位于打开的工作簿中即可。 
 
3,类模块: 类模块的使用方式与窗体模块相似。两者之间惟一差别是类模块中不包含可见组件。使用类模块可以创建自己的对象。类是对某个对象的定义。它包含有关对象动作方式的信息，包括它的名称、方法、属性和事件。要为每个类编写代码，必须使用类模块。窗体是类模块的示例。窗体是指包含属性(如字体、名称和标题)、方法(如单击)、预定义行为的对象。当创建窗体时，它会成为代码的独立模块。同样，所有控件，例如命令按钮和文本框，都是它们各自类的对象。 
 
变量命名前缀规范： 
 
数据类型
            
短前缀
            
长前缀
        
A r r a y
            
a
            
a r y
        
B o o l e a n
            
f
            
b i n
        
B y t e
            
b
            
b i t
        
C u r r e n c y
            
c
            
c u r
        
D a t e / Ti m e
            
d t
            
dtm/d a t
        
D o u b l e
            
d
            
d b l
        
I n t e g e r
            
I
            
i n t
        
L o n g
            
l
            
l n g
        
O b j e c t
            
o
            
o b j
        
S i n g l e
            
?
            
s n g
        
S t r i n g
            
s
            
s t r
        
Va r i a n t
            
v
            
v a r
        
 
 

八，测试与错误处理
 
1,测试: 
 
(1)测试代码，检查它是否正确。为确保代码能够正常作用，必须在指定时间周期内采用不同的样本数据运行它。 
 
(2)如果代码没有按照预想方式正常作用，就需要调试它。可以用VBA提供的调试工具调试代码。 
 
(3)尽力模拟代码运行的不同环境，并检查其正确性。重点是检查代码的可移植性。 
 
(4)在成功地测试了代码之后，可以对观察到的现象进行存档，例如代码末正常运行的环境。 
 
2,错误类型：Error(错误，可捕获并用代码处理)并非Bug(程序错误，无法捕获) 
 
A, 语法错误(如输入时关键字或标点符号拼写错误) 
 
B, 编译错误(如使用对象的方法时，该对象并不支持这个方法) 
 
C, 运行期间错误(如除0、打开或关闭并不存在的文档、关闭未打开的文档) 
 
D, 逻辑错误(逻辑锗误是最难查找的错误类型，它们是由程序中使用的逻辑引起的。它们并不显示任何错误消息，所以不能提供错误线索及发生的位置。然而，有时，它们会产生运行期间错误，以便确定已经产生锗误的语句。如果编写了模块代码，而且该代码包含很多函数，而且一个函数调用另一个函数，那么不得不调查所有过程，以识别错误位置。) 
 
3,调试工具：要确保代码中的变量和表达式按照预想的方式运行，可以使用VBA中的各种调试工具跟踪它们。VBE有如下不同的调试工具。 
 
(1) 中断模式: 
 
A, 进入中断模式方法：在过程的开始位置按下F8键。/使用断点(F9键或者单击当前空白指示器栏)。/使用Stop语句。/当过程运行时，按下Ctrl+Break键。/使用运行期间错误MsgBox?对话框 。 
 
B, 退出中断模式方法：从Run(运行)菜单中选择"Run Sub|Userform"〔运行子过程/用户窗体)；或者按下F5键，或者单击Debug工具栏上的"Run Sub|Userform"按钮。/从Run菜单中选择Reset(重新设置)选项，或者单击Debug工具栏上的Reset按钮 
 
(2) 单步执行过程: 
 
A, 单步执行过程:从Debug菜申中选择StepInto?(逐语句)选项/单击Debug工具栏上的StepInto?按钮按下F8键 
 
B, 跳过过程(跳过已测试无误的过程节省时间):从Debug菜单中选择Step 0ver选项/按下Shint+F8键/单击Debug工具栏上的Step Over按钮 
 
C, 跳出过程(跳过程剩余部份):从Debug菜单中选择stepOut选项/按下Ctrl十shift十F8键/单击Debug工具栏上的StepOut?按钮 
 
D, 运行到光标处(跳过一组语句):从Debug菜单中选择RugToCursor?选项/按下Ctrl+F8键 
 
E, 设置下一条语句为光标所指语句(要警惕会忽略不执行中间的语句):从Debug菜单中选择Set Next Statement/或者按下Ctrl十F9键。 
 
F, Sbow Next Statement选项指明下一个将要执行的语句是什么。当需要在Code窗口中监视很多过程、却丢失了跟踪时，这个特征就显得非常有用。 
 
(3) 监视过程。 
 
A, Locals(本地)窗口(显示当前过程中使用所有变量及其值，还会显示当前加载窗体和控件的属性。):从V1ew (视图)菜单中选LocalsWindow?选项/单击Debug工具栏上的localswindow按钮 
 
B, CallStack?对话框(查看所有活动的过程调用):从View菜单中选CallStack?选项/按下Ctrl+L键/ 单击Debug工具栏上的CallStack?按钮 
 
C, Immediate(立即)窗口（可查询并设置变量值,创建或撤销对象,执行单行命令如Debug.print [outputlist]）:从View菜单中选择ImmediateWindow?选项/按下Ctrl+G键/单击Debug工具栏上的ImmediateWindow?按钮 
 
D, Watches窗口(是一个调试工具，在中断模式下可使用它更改变量和表达式的值,以查看不同的值如何影响代码):从View菜单中选择WatchWindow?选项/单击Debug工具栏上的WatchWindow?按钮参考： 
 
E, Auto Data Tips(自动显示数据提示)工具:Too1s(工具)菜单中选择Options(选项)Editor(编辑器)选项卡中的Auto Data Tips选项。就可以激活变量值自动显示(即在中断模式期间，只需把光标放在code窗口中的变量之上，该变量的值会自动以提示的方式显示出来。) 
 
4,预防错误 
 
A, 使用注释 
 
B, 缩进代码：Tab键或启用Too1s(工具)菜单选Options(选项)Editor(编辑器)选项卡中的Auto Indent(自动缩进) 
 
C, 使代码模块化 
 
D, 显式声明变量:使用Option Explicit语句，或启用Too1s(工具)菜单选Options(选项)Editor(编辑器)选项卡中的Require variable Declaration(需声明变量)复选框。 
 
E, 避免使用变体Variant(当某变量可能包含NULL值时就只能惟一指定Variant类型了) 
 
F，打开语法检查：启用Too1s(工具)菜单选Options(选项)Editor(编辑器)选项卡中Auto Syntax Check(自动语法检测) 
 
G，谨防Dim陷阱：Dim mystr1, mystr2 As String '并未声明mystr1变量 
 
5, 错误处理：调试只能够发现可以预测的错误，要处理不可预测的和不可避免的错误时，就必须使用错误处理。通过启用错误处理，捕获并提示错误处理，可以使程序更健壮。就可以使应用程序更稳定、更健壮。如果应用程序中包含了好几个过程，那么可以考虑采用集中式错误处理程序。 
 
(1) 捕获错误：On Error Goto line (On Error Goto 0会在当前过程禁用错误处理程序) 在这个语法中，line指定了发生运行期间错误时控制将跳转到的代码行 
 

 
(2) 编写错误处理程序：给用户显示错误信息；提示补救方法；允许继续或取消操作。使用Err对象： 
属性
            
说明
        
Number
            
存储最后一个错误的数字ID。这是默认属性
        
Description
            
存储说明错误的有关信息
        
Source
            
包含发生了错误的对象名或应用程序名
        
HelpFile?
            
包含帮助文件的名字
        
HelpContextID?
            
包含错误号对应的帮助上下文ID
        
LastDLLError?
            
包含最后一次调用DLL的系统错误代码
        
 
Raise方法可以让用户自定义错误处理信息，还可把错误处理信息传回调用过程: Err.Raise number[, source, description, helpFile, helpContext] 
 
Clear方法清除Err对象的所有属性值：Err.Clear (当调用On Error, Exit Sub, Exit Function, Exit Property, Resume 等语句时，会自动调用Err.Clear方法。) 
 
(3) 退出错误处理程序: 
 
A, 0n error Resume:当错误处理程序已经修复错误后，可以用它来返回控制给引起错误的语句。但注意如果错误还在的话，会引起无限循环。 
 
B, 0n error Resume Next:忽略错误语句，继续下一句 
 
C, Resume [LineLabel?]: 把控制传递给行标号(必须和Resume语句处在同一个过程中)所在点的语句 
 
D，也可使用Exit Sub或者Exit Function甚至End语句退出已产生错误的过程，但这些语句应放在错误处理程序之前，这样当未产生错误时就不会执行错误处理程序。 
 
(4), 创建集中式错误处理函数程序:只需创建一次，就可反复使用 
   


'添加一个模块创建一个函数，命名为HandleErrors
Function HandleErrors(iErrNum) As Integer
Select Case iAction
Case 5
'Invalid procedure call
MsgBox Error(iErrNum) & " Contact Help Desk."
iAction = 2
Case 7
'Out of memory
MsBox "Close all unnecessary applications. "
iAction = 1
Case 11
'Division by zero
MsgBox "Zero is not a valid value. "
iAction = 1
Case 48, 49,51
'Error in loading DLL
MsgBox iErrNum & "Contact Help Desk. "
iAction = 5
Case 57
'Device I/O error
MsgBox "Insert Disk in Drive A."
iAction = 1
Case Else
MsgBox "Unrecoverable Error. "
iAction = 5
End Select
ErrorHandler = iAction
End Function
'在另一模块的ErrorExample过程中使用HandleErrors函数
Private Sub ErrorExample ()
Dim sngValue As Single, sngDivideBy As Single, sngAnswer As Single
Dim iResponse As Integer
On Error GoTo ErrorZone
s n g Value = InputBox("Enter the number you wish to divide: ")
sngDivideBy = InputBox("Enter the number you wish to divide by: ")
sngAnswer = sngValue / sngDivideBy
MsgBox "The answer is " & sngAnswer
Exit Sub
E r r o r Z o n e :
'This Select statement uses the value returned
'from the HandleErrors function for its condition.
Select Case HandleErrors(Err) 
'对应于五种处理方法:Resume/Resume Next/Resume “行”/退出该过程/结束整个应用程序。
Case 1
Resume
Case 2
Resume Next
'This procedure doesn't need case 3 which is resuming to a line.
Case 4
Exit Sub
Case 5
End
End Select
End Sub
 


九，VBA的安全性和保护工具
 
1, 数字签名:保护在VBA中编写的宏、过程、窗件或代码。也可以把它应用于文档、模板和内插附件。把数字签名添加到宏项目中的步骤如下：打开VBE>Tools菜单上的Digital Signture(数字签名)命令>单击Choose(选择)指定数字证书。 
 

 
2, 指定安全级别：Tools工具>Macro宏>Security安全性。可以指定Security LeveI?(安全级别)和Trusted Source(信任源) 
 
3, 代码的密码保护:打开VBE>Tools>Project 属性，写人密码锁定代码查看 
 

 

十，VBA程序的部署
 
不管是加载宏程序还是一般的电子表格程序，其部署都很简单，我们可以直接拷贝这个文件到目标机，对于加载宏，需要在Excel 中将其加载，对于后者，可以直接双击使用Excel打开运行。而对于应用VSTO 开发的Office 应用，其程序的存储位置位于独立的文件和DLL。另外，如前文所述，我们也可以将一些算法、代码通过COM 对象封装在独立的DLL 内，在Excel 内通过VBA 调用。对于此类代码，需要在部署前安装和注册相应的（COM）对象。 
 
如果在VBA 代码里使用了其他文件中的资源，如数据、配置信息等，在发布和部署时需要一起发布，对于这些文件资源的位置，可以通过Application 对象获取当前文件或加载宏的所在目录，然后通过目录的相对路径来调用。 
 
例如，当前文件的路径为：Application.ActiveWorkbook?.Path；加载宏的路径则通过以下方法来获取：Application.AddIns?.Item([加载宏名称]).Path 
 
对于有多个文件的程序包，可以使用安装工具制作安装包，也可以通过直接Copy 的方式来部署。 
 

十一，VBA高级应用
 
VBA高级应用 
 
* VBA病毒：VBA是众多臭名昭著的宏病毒和基于Outlook的邮件病毒的主要技术！宏病毒是一种寄存在文档或模板的宏中的计算机病毒。一旦打开这样的文档，其中的宏就会被执行，宏病毒就会被激活。从此以后，所有自动保存的文档都会“感染”上这种宏病毒，而且如果其他用户打开了感染病毒的文档，病毒又会转移到他的计算机上。 
 
 

参见
 
ACCESS中国 
 
以 Office 为开发平台时所需掌握的知识 
 
http://www.excelhome.net/ 
 
 
http://www.officefans.net/,http://www.officeren.cn/已废弃  

VBA编程是经常会用到字符串拆分函数SPLIT，用法也不复杂，但是大家对于这个函数的参数未必完全了解，下面结合示例讲解一下参数的用法。
SPLIT函数的语法格式如下：
Split(expression, [ delimiter, [ limit, [ compare ]]])





参数
含义




express
需要拆分的字符串


delimiter
参数为拆分的分隔符，如果省略则使用空格做为分隔符


limit
指定返回字符串的数量


compare
指定拆分子字符串时的比较类型


先来看一个示例，现在需要拆分Good good study day day up为单个单词。
Sub Demo1()
    Dim strString As String
    Dim varResult As Variant
    Dim arrResult() As String
    strString = "Good good study day day up"
    varResult = VBA.Split(strString)
    arrResult = VBA.Split(strString)
End Sub

VBA.Split(strString)省略delimiter参数，则使用空格做为分隔符，拆分为6个单词字符串，在【本地窗口】中可以查看数组的值，如下图所示。



请注意变量声明语句，用于保存结果的数组，可以使用如下两种方式：Variant变量或者字符串数组，但是不可以声明为Variant数组。
    Dim varResult As Variant
    Dim arrResult() As String

一般情况下，都无须指定LIMIT参数，下面看一个使用LIMIT参数的例子。对于一些国外地址如：888, Ocean Wind Rd, Markham, V4A，需要拆分为888，Ocean Wind Rd和Markham, V4A，而不是拆分为4段，此时就需要设置LIMIT参数为3。
Sub Demo2()
    Dim strString As String
    Dim arrResult() As String
    Dim i As Integer
    strString = "888, Ocean Wind Rd, Markham, V4A"
    arrResult = VBA.Split(strString, ",", 3)
    For i = LBound(arrResult) To UBound(arrResult)
        Debug.Print Trim(arrResult(i))
    Next i
End Sub

接下来看一下如何使用compare参数，下面示例代码中设置为vbTextCompare，即执行文本比较，也就是说忽略字符大小写区别（S和s都可以作为分界符）。如下代码结果为包含4个元素的字符串数组（AAA，BBB，CCC和DDD）。
Sub Demo3()
    Dim strString As String
    Dim arrResult() As String
    Dim i As Integer
    strString = "AAAsBBBSCCCsDDD"
    arrResult = VBA.Split(strString, delimiter:="s", compare:=vbTextCompare)
    For i = LBound(arrResult) To UBound(arrResult)
        Debug.Print Trim(arrResult(i))
    Next i
End Sub

如果将compare参数设置为vbBinaryCompare，那么结果就会不同了。
Sub Demo4()
    Dim strString As String
    Dim arrResult() As String
    Dim i As Integer
    strString = "AAAsBBBSCCCsDDD"
    arrResult = VBA.Split(strString, delimiter:="s", compare:=vbBinaryCompare)
    For i = LBound(arrResult) To UBound(arrResult)
        Debug.Print Trim(arrResult(i))
    Next i
End Sub

字符串被拆分为三段，BBB和CCC之间的S不再做为分界符。

AAA

BBBSCCC

DDD

通过这个讲解，希望大家完全明白了SPLIT函数的用法。