vba编程代码大全_VBA编程常用过程代码实例31-35

分享成果，随喜真能量。大家好，今天继续和大家分享VBA编程中常用的过程代码,过程代码在这里讲解的语句非常简单单一，组合起来就是一个大的过程，不积跬步无以至千里。

看板：

下面是我根据我自己20多年的VBA实际利用经验，编写的几部经验教程，全是满满的"干货"，欢迎有需要的朋友联络(WeChat:NZ9668)，分享。

1 《VBA代码解决方案》是VBA中各个知识点的讲解，覆盖了绝大多数的知识点。

2 《VBA数据库解决方案》是数据处理的利器；

3 《VBA数组与字典解决方案》中讲解VBA的精华----字典。

4 面向初学及中级以下学员的视频《VBA代码解决方案》正在录制。看视频，"每天20分钟，半年精进VBA"活动正在火热进行中，越早报名，回馈越多。现在第一册48讲内容已经录制完成，第一阶段的优惠活动即将结束。

VBA过程代码31：代码过程在执行过程中将遇错跳转

Sub MyNZ()

on error goto err_handle

………….

………….

err_handle:

………….

………….

END SUB

代码的解析说明：上述代码过程在执行过程中，如果遇到错误会转跳到标签处往下执行。

VBA过程代码32：代码过程在执行过程中将删除一个文件

Sub MyNZ()

kill "c:/1.txt"

END SUB

代码的解析说明：上述代码过程在执行过程中，将删除一个文件。注意，kill命令删除文件是直接删除，而不是放到回收站中，所以要慎用此命令。

VBA过程代码33：代码过程在执行过程中将定制自己的状态栏

Sub MyNZ()

Application.StatusBar = "现在时刻: " & Time

END SUB

代码的解析说明：上述代码过程在执行过程中，将定制自己的状态栏，状态栏上将显示现在的时刻，如下：

VBA过程代码34：代码过程在执行过程中将恢复默认的状态栏

Sub MyNZ()

Application.StatusBar = false

END SUB

代码的解析说明：上述代码过程在执行过程中，将定制的状态栏，恢复状态栏的默认状态。

VBA过程代码35：代码过程在执行过程中将用代码执行一个宏

Sub MyNZ()

Application.Run macro:=" MyNZ1"

END SUB

代码的解析说明：上述代码过程在执行过程中，将执行一个宏" MyNZ1"