【分享成果，随喜正能量】人的一生就像是一次长途跋涉，沿途风光各式各样，有山水、有花开。让自己的身心留一片美好和清静，心无挂碍，快意人生，永远保持轻装上阵的状态。。

我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是： VBA命令及语法列表之错误处理代码和文件处理基本代码

第二章 EXCEL VBA命令和语法列表7 错误处理Errors

Errors

Description

描述

VBA Code

On Error – Stop code and display error

发生错误 – 停止代码并显示错误

On Error Goto 0

On Error – Skip error and continue running

发生错误– 跳过错误并继续运行

On Error Resume Next

On Error – Go to a line of code [Label]

发生错误 – 转到代码行 [标签]

On Error Goto [Label]

Clears (Resets) Error

清除（重置）错误

On Error GoTo 1

Show Error number

显示错误号

MsgBox Err.Number

Show Description of error

显示错误描述

MsgBox Err.Description

Function to generate own error

生成自己的错误的函数

Err.Raise

8 文件Files

Files

Description

描述

VBA Code

Copy File

拷贝文件

FileCopy “C:\test\test_old.xlsx”, “C:\test\test_new.xlsx”

Delete File

删除文件

Kill “C:\test\example.xlsx”

Make Folder

新建文件夹

MkDir “C:\test\”

Delete All Files From Folder

删除文件夹中的所有文件

Kill “C:\test\” & “*.*”

Delete Folder

删除文件夹

Kill “C:\test\” & “*.*”

RmDir “C:\test\”

Current Directory

当前目录

strPath = CurDir()

ThisWorkbook Path

此工作簿路径

strPath = ThisWorkbook.Path

Loop Through All Files in Folder

循环遍历文件夹中的所有文件

strFile = Dir(“C:\test” & “\*”)

Do While Len(strFile) > 0

Debug.Print strFile

strFile = Dir

Loop

【分享成果，随喜正能量】我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】万般皆苦，唯有自渡。没人扶你的时候，要自己站直，没人帮你的时候，要自己努力。相信自己，只要你足够勇敢，没有熬不过的艰难。。