VBA编程入门：从变量到文件操作，掌握Excel自动化核心

简介这份《Visual Basic编程基础教程》面向零基础编程初学者与需要快速上手VBA的办公自动化人群系统讲解从语言概念、集成开发环境使用到图形界面构建的入门知识帮助读者建立完整的VBA编程认知框架。压缩包内共1个PDF文件约2.17MB内容为完整的教程正文涵盖变量与数值类型、数值表达式与类型转换函数、MsgBox与InputBox的键盘输入和屏幕输出、If-Then条件执行、字符串处理函数、for与while循环结构、数组和矩阵应用以及文件读写操作等核心章节并配有实例与课后练习。目前已有112人学习下载。教程按知识点由浅入深编排目录结构清晰读者可跟随章节顺序完成一个简单编程实验在动手练习中巩固语法与逻辑适合作为自学入门读物或课堂辅助教材使用。1. 一份 2006 年的 VBA 讲义为什么今天还值得翻接手一份别人留下的 Excel 报表模板打开一看里面藏着几十行 VBA按钮点下去能自动汇总、能弹窗问参数、能把结果另存成文本。想改却不知道从哪下手——这是很多做数据、做报表、做办公自动化的人都会撞上的场景。手头这份《Visual Basic for Applications 编程入门修订版 2》就是冲着这个场景来的它不是讲 VB6 桌面开发而是把 VBA 当成一门完整的入门语言来教从集成开发环境、变量与数值类型一路讲到条件执行、字符串、循环、数组矩阵、文件读写和函数子程序。全书按章节配练习适合零基础跟着敲也适合有别的语言底子的人快速对齐 VBA 的语法边界。它解决的不是“炫技”而是让你能读懂、改得动、写得对那段藏在表格背后的代码。2. 先把语言骨架立住变量、类型与表达式求值2.1 为什么先啃变量和数值类型很多人学 VBA 的第一反应是直接录宏、改宏结果卡在Type mismatch上半天。这份讲义把第 3 章整章压在“变量和数值类型”上顺序是有讲究的先讲数值变量的声明与作用域再讲数值表达式的构成然后专门用一节讲表达式求值3.1.2最后才落到类型转换函数和内置函数。这个编排背后是一条硬规则——VBA 在运行时会按变量的声明类型做隐式转换转换失败就抛错而错误往往不在你写的那一行而在上游某个变量被赋了字符串。讲义里对运算符优先级和结合性3.1.5单独成节这点很关键。VBA 的算术运算符优先级是^* /\Mod -而\整除和Mod的优先级低于乘除、高于加减很多人写a b Mod c以为是(ab) Mod c实际是a (b Mod c)。这类坑在报表取整、分页计算里特别常见。2.2 声明与类型转换的可复现写法下面这段是我按讲义第 3 章的思路整理的最小验证脚本放在标准模块里就能跑。它把声明、隐式转换、显式转换三件事一次演示清楚Sub TypeBasics() 显式声明避免 Variant 带来的隐式转换开销 Dim qty As Integer Dim price As Double Dim total As Double Dim label As String qty 12 price 3.75 total qty * price 数值相乘结果 45 显式转换CInt 会做四舍五入Int 是向下取整 Debug.Print CInt(total / 7) 输出 6 Debug.Print Int(total / 7) 输出 6 Debug.Print total \ 7 整除输出 6 Debug.Print total Mod 7 取余输出 3 字符串转数值Val 遇到非数字就停不报错 label 45abc Debug.Print Val(label) 输出 45 而 CInt(45abc) 会直接抛类型不匹配 End Sub逻辑说明Dim ... As是显式声明讲义反复强调在模块顶部加Option Explicit强制所有变量先声明否则拼错变量名会静默生成一个新 Variant这是后期排查最费时的一类问题。参数上CInt对.5采用银行家舍入四舍六入五成双Int永远向负无穷取整负数场景下两者结果不同做金额分摊时要盯住这一点。Val是宽容解析适合处理从文本框读进来的脏数据CInt/CDbl是严格解析适合你已经确认格式干净的场景。2.3 表达式求值的两个边界讲义 3.1.2 节讲求值顺序时提到短路问题但 VBA 的And/Or并不短路——两边都会求值。这意味着If obj Is Nothing Or obj.Name Then这种写法在 VBA 里会直接崩因为右边照样执行。正确写法是嵌套If或先判空再进分支。另一个边界是整数溢出Integer上限 32767做行号累加或计数时很容易越界讲义建议计数类变量统一用Long这条在今天的 64 位 Office 里依然成立。3. 控制流与字符串把判断和文本处理写对3.1 条件执行的分支选型第 5 章把If-Then、关系表达式、逻辑表达式Or/And/Xor/Not和Select Case放在一起讲是有意让你建立“分支选型”的意识。两三个互斥条件用If-ElseIf就够一旦分支超过四个、且判断的是同一个表达式的不同取值Select Case的可读性和维护性明显更好。讲义 5.4 节还专门列了运算符优先级关系运算符、、、的优先级高于逻辑运算符所以a 1 And b 2会被解析成(a1) And (b2)这是符合直觉的但Not a 1要小心Not的优先级高于实际是(Not a) 1正确写法是Not (a 1)。Sub BranchDemo() Dim score As Long score 78 区间判断用 If-ElseIf边界写清楚 If score 90 Then Debug.Print A ElseIf score 75 Then Debug.Print B 命中这里 Else Debug.Print C End If 等值多分支用 Select Case注意 Case 从上到下匹配 Select Case score \ 10 Case 9: Debug.Print 优秀 Case 7, 8: Debug.Print 良好 78\107命中 Case Else: Debug.Print 待提升 End Select End Sub参数说明score \ 10是整除把百分制压到十位Case 7, 8用逗号并列多个取值比写Case 7 To 8更直观后者对整数区间也成立。Case Else必须放最后放中间会编译报错。这里的分支顺序不能乱Select Case是顺序匹配第一个命中的Case就跳出。3.2 字符串函数的组合用法第 6 章把Len、Left、Right、Mid、Instr逐个拆开讲这几个函数是 VBA 处理文本的全部家底。实际报表清洗里最常见的组合是“定位分隔符 截取”。比如一列2024-06-15|华东|1280的拼接串要拆出日期、区域、金额Sub ParseRecord() Dim raw As String, p1 As Long, p2 As Long raw 2024-06-15|华东|1280 p1 InStr(1, raw, |) 第一个分隔符位置 p2 InStr(p1 1, raw, |) 从 p1 之后找第二个 Debug.Print Left(raw, p1 - 1) 2024-06-15 Debug.Print Mid(raw, p1 1, p2 - p1 - 1) 华东 Debug.Print Mid(raw, p2 1) 1280 End Sub逻辑说明InStr(start, string, substring)的start参数是 1 基返回首次出现的位置找不到返回 0。Mid(str, start, length)的length省略时取到末尾。这里的关键是p1 1作为第二次查找的起点避免又匹配到同一个分隔符。参数上Left/Right的第二个参数是字符数不是索引中文在 VBA 里按字节还是按字符取决于LenB与Len的区别讲义 6.3 节明确Len返回字符数处理中文列名时用Len不会错位。3.3 循环结构的选择第 8 章把For-Next和Do-Loop分开讲选型逻辑很直接次数已知用For-Next条件驱动用Do-Loop。For-Next的循环变量在循环体里不要手动改改了会让步进逻辑失控Do-Loop有While/Until前置和后置四种组合前置先判断再执行后置至少执行一次。遍历工作表行时我一般用For i 2 To lastRowlastRow用Cells(Rows.Count, 1).End(xlUp).Row取而不是写死数字。4. 数组、文件与过程把数据搬进搬出4.1 数组与矩阵的声明边界第 9 章讲数组和矩阵重点是Dim arr(1 To 10)这种指定上下界的写法以及二维矩阵Dim m(1 To 3, 1 To 4)的行列顺序。VBA 默认Option Base 0数组下标从 0 开始但讲义里大量示例用1 To n因为业务数据天然是 1 基的。混用是翻车高发区ReDim重设大小时如果不加Preserve原有数据全丢加了Preserve只能改最后一维的大小改第一维直接运行时报错。这条限制在讲义 9.1 节有明确交代做动态汇总表时务必记住。Sub ArrayDemo() Dim m() As Double Dim i As Long, j As Long ReDim m(1 To 2, 1 To 3) 2 行 3 列 For i 1 To 2 For j 1 To 3 m(i, j) i * 10 j Next j Next i 只扩最后一维保留原数据 ReDim Preserve m(1 To 2, 1 To 5) Debug.Print m(2, 3) 仍是 23 End Sub参数说明ReDim只能作用于动态数组声明时括号留空静态数组不能ReDim。Preserve保留已有元素新增位置初始化为 0 或空串。二维数组在内存里按行优先存储遍历时外层走行、内层走列缓存友好大数据量下差别能感觉到。4.2 文件读写的固定套路第 10 章的文件操作是这份讲义里最“工程化”的部分打开、关闭、写、读四步每步都有对应的语句。VBA 的文件号FreeFile是 1 到 511 的整数必须用FreeFile动态取写死文件号在多过程并发时会冲突。下面是一个按行写、再按行读回的完整闭环Sub FileRoundTrip() Dim fnum As Integer, line As String Dim path As String path ThisWorkbook.Path \demo_out.txt 写Output 模式会清空原文件 fnum FreeFile Open path For Output As #fnum Print #fnum, row1,100 Print #fnum, row2,200 Close #fnum 读Input 模式逐行读到 EOF fnum FreeFile Open path For Input As #fnum Do Until EOF(fnum) Line Input #fnum, line Debug.Print line Loop Close #fnum End Sub逻辑说明Open ... For Output是覆盖写要追加得用For AppendPrint #写文本行Write #写带引号和逗号分隔的格式两者读回时的解析方式不同别混用。Line Input #读整行到换行符为止适合 CSV 类文本Input #按分隔符拆字段适合结构化数据。EOF(fnum)判断是否到文件尾循环里必须先读再判否则最后一行会漏。路径用ThisWorkbook.Path拼接避免硬编码盘符换机器不用改。4.3 函数与子程序的分工第 11 章把Function和Sub分开讲还专门讨论了参数传递11.3.1VBA 默认ByRef传的是引用函数内部改了形参调用方的实参跟着变。要防止副作用显式写ByVal。递归11.7那节用阶乘和斐波那契举例提醒递归要有终止条件且 VBA 的调用栈不深层级一多就溢出。实际写工具函数时我习惯把纯计算逻辑写成Function返回值把有副作用的操作改单元格、写文件写成Sub这样单元测试和复用都方便。5. 避坑清单五个真实会卡住你的问题5.1 现象宏跑一半报“类型不匹配”定位不到行原因变量没声明拼写错误静默生成 Variant或者从单元格读出的值带空格/全角字符CInt严格转换失败。解决模块顶部加Option Explicit所有变量显式声明读单元格后先Trim再转换转换前用IsNumeric判一下。5.2 现象ReDim Preserve报“下标越界”原因试图改第一维大小或者对静态数组用了ReDim。解决动态数组声明时括号留空需要扩第一维时先建一个更大的临时数组用循环搬数据再整体替换。5.3 现象文件写完是空的或者读出来乱码原因Open后没Close就结束过程缓冲区没刷盘或者用Print #写、用Input #读格式对不上。解决每个Open配一个Close放在过程末尾或错误处理里读写模式成对使用文本行用Line Input读回。5.4 现象If a 1 Or b 2在对象为空时崩溃原因VBA 的Or不短路右边照样求值。解决拆成嵌套If先判Is Nothing再访问成员或者用IIf时注意它同样两边都求值不能拿来防空。5.5 现象循环遍历工作表越跑越慢原因循环体里频繁读写Cells每次都是一次 COM 调用。解决把区域一次性读进数组内存里算完再一次性写回ScreenUpdating False包住整个过程结束时恢复。6. 把讲义变成自己的工具箱验证与进阶讲义每章末尾都有练习但光做练习不够得有一套自己的验证习惯。我的做法是给每个新学的语法点配一个最小可运行过程放在单独的测试模块里跑通再往正式代码里搬。比如学完第 6 章字符串函数就写一个TestStringFuncs把Len、Mid、Instr的边界值空串、单字符、找不到分隔符全跑一遍输出到立即窗口。这套习惯的价值在于VBA 没有单元测试框架的天然支持靠的就是这种“小过程 立即窗口”的手工回归。进阶方向上讲义第 12 章的复合数据类型Type自定义结构和第 13 章的基本控件Label、TextBox、OptionButton、CheckBox是两条自然的延伸线。前者让你把一组相关字段打包成一个记录处理表格行数据时比并行数组清晰得多后者让你从“改宏”走到“做小工具”把参数输入从改代码变成填表单。下面这个自定义类型加数组的组合是我处理批量记录时最常用的骨架 在模块顶部定义复合类型 Type Record dt As String region As String amount As Double End Type Sub UseRecord() Dim recs(1 To 100) As Record Dim n As Long, i As Long n 3 recs(1).dt 2024-06-15: recs(1).region 华东: recs(1).amount 1280 recs(2).dt 2024-06-16: recs(2).region 华南: recs(2).amount 960 recs(3).dt 2024-06-17: recs(3).region 华北: recs(3).amount 1540 Dim sum As Double For i 1 To n sum sum recs(i).amount Next i Debug.Print sum 3780 End Sub参数说明Type ... End Type必须放在标准模块的声明区不能放在类模块或窗体代码里数组元素是值类型赋值是逐字段拷贝不像对象那样共享引用。字段名用短名减少输入量但别短到看不懂。这套结构配合第 10 章的文件读写就能做出“读文本 → 解析成记录数组 → 汇总 → 写回文件”的完整小流水线。最后说个血泪经验VBA 的错误处理On Error很容易写成“吞异常”On Error Resume Next一加后面所有错误都静默跳过排查时像在黑匣子里摸。我现在的习惯是每个可能失败的过程都写On Error GoTo Handler在Handler里记录Err.Number和Err.Description再退出宁可多几行也不让错误无声消失。从那以后我每次改完一段 VBA都强制走一遍“空数据、边界值、异常输入”三组用例再交付。希望这份讲义的拆解能帮你在下一次打开那段陌生宏时少一点懵多一点底气。本文还有配套的精品资源点击获取