【分享成果,随喜正能量】人的一生就像是一次长途跋涉,沿途风光各式各样,有山水、有花开。让自己的身心留一片美好和清静,心无挂碍,快意人生,永远保持轻装上阵的状态。。
我给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实践经验,全部浓缩在下面的各个教程中:

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




