本系列内容转载于http://www.cnblogs.com/wuzhiblog/p/vba_zero.html ，对我的学习有很大帮助，感谢博主

Sub sub_name() ''中间这里是我们要实现各种操作的VBA代码'
End Sub

Sub Hello_World()Debug.Print "Hello, World!"MsgBox "Hello, World!"
End Sub

Dim 变量名 As 数据类型

Dim i as Integer
i = 3

Public | Private Enum 变量名成员1 [= 常数表达式1]成员2 [= 常数表达式2]……
End Enum

Public Enum WorkDays星期日星期一星期二星期三星期四星期五星期六
End Enum

Dim 数组名(a to b) As 数据类型

Dim MyArray1(10) As String
Dim MyArray2(10 to 20) As String

Dim Myarr3() As String

Dim arr(5) As String

For i = 1 to 5
'赋值
arr(i) = i
Next

'取值
Debug.Print arr(1)

此外，也可以直接把Excel单元格中的数据赋值给数组。如上面定义的长度为5的一维数组，可以以以下方式把单元格中A1到A5的数据分别载入到数组arr中：

arr = Range("A1:A5")

1.4 多维数组

VBA中也支持多维数组。
如，定义一个四行五列的二维数组如下：

Dim Myarr(4, 5) as String

或者：

Dim Myarr(1 to 4, 5 to 8) As String

定义一个三维数组：

Dim Myarr(3, 4, 5) As String

或者：

Dim Myarr(1 to 3, 4 to 6, 7 to 9) As String

1.5 其它

网上有说到很多对数组的操作，例如求数组的上下界，对数组求和等，我觉得这些都不算是数组的特有操作，因为它对其它数据类型也是可以使用的，所以就不打算再介绍了。有需要用到的，可以再查询

2 字典

字典其实就是一些“键－值”对。在很多场合，它都能起到很大的作用，使用起来非常方便，有类似于微型数据库的作用，可用于临时保存一些数据信息。

2.1 创建字典

VBA中创建字典有两种方法：

1. 引用声明

在VBE菜单中，选择“工具－引用”，在弹出的对话框中选择中边的“浏览”，此时会打开Windows系统的驱动目录(C:\Windows\System32)，然后找到scrrun.dll，确定确定返回就行了。
添加引用后，就可以像定义其它变量一样声明使用字典了。

Dim d As New Dictionary

1. 直接创建

我目前基本上都使用的这种方法。可如下定义：

Dim d As Object
Set d = CreateObject("Scripting.Dictionary")

2.2 字典的方法

字典有6个方法，分别是Add、Exists、Keys、Items、Remove、RemoveAll。使用方法如下：

2.2.1 Add

用于添加内容到字典中。

d.Add key, item

第一个参数为键，第二个参数为键对应的值

2.2.2 Exists

用于判断指定的关键词是否存在于字典（的键）中。

d.Exists(key)

如果存在，返回True，否则返回False。通常会在向字典中添加条目的时候使用，即先判断字典中是否已存在这个记录，如果不存在则新增，否则进行其它的操作。

2.2.3 Keys

获取字典所有的键，返回类型是数组。

d.Keys()

2.2.4 Items

获取字典所有的值，返回类型是数组。

d.Items()

2.2.5 Remove

从字典中移除一个条目，是通过键来指定的。

d.Remove(key)

如果指定的键不存在，会发生错误。

2.2.6 RemoveAll

清空字典。

2.3 字典的属性

字典有4个属性：Count、Key、Item、ConpareMode

2.3.1 Count

用于统计字典中键－值对的数量。也可以简单理解为统计字典中键的个数。

d.Count

2.3.2 Key

用于更改字典中已有的键。如：

d.Key("apple") = "Orange" 

如果指定的键不存在，则会产生错误。

2.3.3 Item

用于写入或读取字典中指定键的值，如果指定的键不存在，则会新增。如：

'读取
Debug.Print d.Item("apple")

'写入
d.Item(“apple”) = 10

2.3.4 CompareMode

CompareMode用于设置或者读取字典对象中比较字符串时的比较模式。
这个到目前为止我还没有用过。所以不讨论了。

If 逻辑表达式 Then' 如果逻辑表达式为真，则执行这里的语句
End if

If 8 > 5 ThenDebug.Print "Yes"
End If

If 逻辑表达式 Then' 如果逻辑表达式为真，则执行这里的语句
Else' 否则（即逻辑表达式为假），则执行这里的语句
End If

If 8 < 5 ThenDebug.Print "Yes"
ElseDebug.Print "No"
End If

If 逻辑表达式1 Then' 逻辑表达式1为真，则执行这里的语句
ElseIf 逻辑表达式2 Then' 逻辑表达式2为真，则执行这里的语句
Else' 逻辑表达式1和2都返回了假，则执行这里的语句
End If

If 20 > 30 ThenDebug.Print "Not Right"
ElseIf 20 < 30 ThenDebug.Print "Right"
End If

Select Case 测试表达式Case 表达式1' 如果测试表达式等于表达式1，则执行这里的语句Case 表达式2' 如果测试表达式等于表达式2，则执行这里的语句Case 表达式3' 如果测试表达式等于表达式3，则执行这里的语句' 后面可以有更多的Case
End Select

Sub test()Dim score As Integerscore = 94Select Case scoreCase Is >= 90Debug.Print "优"Case Is >= 80Debug.Print "良"Case Is >= 60Debug.Print "中"Case Is < 60Debug.Print "差"End Select
End Sub

Sub test2()Dim score As Integerscore = 53Select Case scoreCase Is >= 90Debug.Print "优"Case Is >= 80Debug.Print "良"Case Is >= 60Debug.Print "中"Case ElseDebug.Print "差"End Select
End Sub

Sub test2()Dim score As Integerscore = 53Select Case scoreCase Is >= 90Debug.Print "优"Case Is >= 80Debug.Print "良"Case Is >= 60, Is <= 70Debug.Print "中"Case ElseDebug.Print "差"End Select
End Sub

for 计数变量=开始值 to 结束值' 用于循环执行的语句
next

For i = 1 To 10Debug.Print i
Next

For i = 1 To 10 Setp 2Debug.Print i
Next

For Each 循环变量 In 循环对象' 循环执行的语句
Next 循环变量

For Each a In myArrDebug.Print a
Next a

Do [While | Until] 循环条件' 用于循环执行的语句
Loop

Sub test()Dim i As Integeri = 5

<span class="hljs-keyword">Do</span> <span class="hljs-keyword">While</span> i &gt; <span class="hljs-number">0</span>Debug.Print ii = i - <span class="hljs-number">1</span>
<span class="hljs-keyword">Loop</span>

End Sub

上例的输出结果是：5 4 3 2 1

Do Until ... Loop

Sub test()Dim i As Integeri = 5

<span class="hljs-keyword">Do</span> <span class="hljs-keyword">Until</span> i &lt; <span class="hljs-number">0</span>Debug.Print ii = i - <span class="hljs-number">1</span>
<span class="hljs-keyword">Loop</span>

End Sub

上例的输出结果是：5 4 3 2 1 0

逻辑还是很简单的，大家可以稍微分析下为什么用While时输出到1就停止了，而用Until时后面会多出个0，而如果需要不让它输出0程序应该怎么改写。搞清楚原因，这个While和Until的区别也就知道了，Loop循环应该也就掌握了。

② 先执行再判断

先执行再判断，即将条件判断语句放到Loop的后面，先Do一次，然后再Loop While或者Loop Until。

格式如下：

Do' 用于循环执行的语句
Loop [While | Until] 循环条件

示例如下：

Do ... Loop While

Sub test()Dim i As Integeri = 5

<span class="hljs-keyword">Do</span>Debug.Print ii = i - <span class="hljs-number">1</span>
<span class="hljs-keyword">Loop</span> <span class="hljs-keyword">While</span> i &gt; <span class="hljs-number">0</span>

End Sub

输出结果为：5 4 3 2 1

Do ... Loop Until

Sub test()Dim i As Integeri = 5

<span class="hljs-keyword">Do</span>Debug.Print ii = i - <span class="hljs-number">1</span>
<span class="hljs-keyword">Loop</span> <span class="hljs-keyword">Until</span> i &lt; <span class="hljs-number">0</span>

End Sub

输出结果为：5 4 3 2 1 0

Loop循环总结：可以看到，无论是采用哪种形式的Loop循环，都可以得到相同的结果，实现同样的功能，而具体使用哪一种，纯粹是个人习惯（个人喜欢）。但无论使用哪一种，都一定一定要记得，必须要有能使循环结束的语句出现在循环中（例如前面例子中的i=i-1），否则程序会永远不停地执行下去。这时候除了在任务管理器中结束Excel外，就没有什么更好的办法了。

3. While循环

While循环有点类似于Loop循环，先判断条件是否成立，再开始（或结束）循环。而我看过的教程里面，有些是没有讲到While循环的。可能是作者觉得没有必要讲了。

While循环的格式如下：

While 条件判断语句' 用于循环执行的语句
Wend

示例如下：

Sub test()Dim i As Integeri = 5

<span class="hljs-keyword">While</span> i &gt; <span class="hljs-number">0</span>Debug.Print ii = i - <span class="hljs-number">1</span>
<span class="hljs-keyword">Wend</span>

End Sub

输出结果为：5 4 3 2 1

同样要记住的是，必须要有使循环能够结束的条件，否则程序会进入死循环中。

由以上示例可以看出，这3种循环语句，是有着某些共同之处的，特别是Loop和While循环。而事实上很多循环事件，用3者都能实现。具体使用哪一种，则或根据实际情况和使用习惯来选择。但相信对于大多数人来说，都会优先考虑使用For循环，因为它的条理更加清晰，流程控制更简易，适用的场景更广，语句也更简练（至少它不需要显式添加使循环结束的语句）

Sub test()Dim sht_slea As WorksheetDim sht_result As WorksheetDim sht_para As Worksheet

<span class="hljs-keyword">Set</span> sht_slea = Worksheets(<span class="hljs-string">"SLEA"</span>)
<span class="hljs-keyword">Set</span> sht_result = Worksheets(<span class="hljs-string">"Check_Result"</span>)
<span class="hljs-keyword">Set</span> sht_para = Worksheets(<span class="hljs-string">"Parameter"</span>)

End Sub

如上，用Dim 变量名 As Worksheet的格式来定义一个工作表对象。用Set 变量名 ＝ Worksheets("表名")的格式来把工作表对象赋值给指定的变量。然后就可以用这个变量来引用或操作对应工作表中的对象和数据了。

1.2 按表顺序引用

顺序引用，即按工作表出现在工作薄中的顺序从左到右，依次用1、2、3.……来引用。格式和以表名引用一样：

Sub test()Dim sht_slea As WorksheetDim sht_result As WorksheetDim sht_para As Worksheet

<span class="hljs-keyword">Set</span> sht_slea = Worksheets(<span class="hljs-number">2</span>)
<span class="hljs-keyword">Set</span> sht_result = Worksheets(<span class="hljs-number">1</span>)
<span class="hljs-keyword">Set</span> sht_para = Worksheets(<span class="hljs-number">3</span>)

End Sub

这里要提出的是，在VBE工程窗口中看到的自上而下的表顺序并不是在VBA中引用的顺序。这个顺序是以工作表在工作薄中从左到右的顺序为准。因此上例代码是基于如下顺序的：

这也意味着，如果被人为地有意或无意地拖动这些表而改变了它们的顺序，那么以这种方式引用工作表将得不到预想中的结果

2. 操作单元格区域

单元格区域，即Range对象。应该是在Excel VBA中用得最多的对象。Range对象是Worksheet对象的一个子集。所以通常通过worksheet_object.Range()的方式来引用。

单元格区域，可以是单个单元格，也可以是多个连续的单元格和多个不连续的单元格。在使用单元格区域对象前，应该先进行变量定义。把变量定义为Range对象即可：

Dim rng As Range

本节使用下图数据为例进行代码演示：

2.1 单个单元格区域的引用

在Excel中，每个单元格都是有其相应的地址的，或者叫做“名字”也可以。最常用到的，就是平时说的A1、B4、D10等。在VBA中，可以通过单元格的地址来引用单个单元格。

Sub test()Dim sht_slea As WorksheetDim rng As Range

<span class="hljs-keyword">Set</span> sht_slea = Worksheets(<span class="hljs-string">"SLEA"</span>)
<span class="hljs-keyword">Set</span> rng = sht_slea.Range(<span class="hljs-string">"D2"</span>)Debug.Print rng

End Sub

输出：92257598
即D2单元格中的数据。这里可能会引起误会，特说明一下。仅在Range对象引用的是单个单元格时，才可以用Debug.Print或者MsgBox来输出Range对象中的内容。如果将接下来介绍的引用了多个单元格的Range对象使用Debug.Print或者MsgBox来输出，将会报错。

2.2 多个连续单元格区域的引用

这种引用则类似于用鼠标在工作表中选中特定区域（然后我们可以给这个区域加上边框，或者加上底色等操作），或者是在Excel函数中引用某个区域。如选中A1到D4，或者对D2到D4中的数值进行求和－SUM(D2:D4)。在VBA中也可以这样来引用。

Sub test()Dim sht_slea As WorksheetDim rng As Range

<span class="hljs-keyword">Set</span> sht_slea = Worksheets(<span class="hljs-string">"SLEA"</span>)
<span class="hljs-keyword">Set</span> rng = sht_slea.Range(<span class="hljs-string">"A1:D4"</span>)rng.Interior.ColorIndex = <span class="hljs-number">16</span>

End Sub

如上代码中，先引用SLEA表，然后把这个表中A1到D4区赋值给rng对象。最后一行把这个区域标上灰底色。结果如下：

对于这样多行多列的单元格区域，通常只是用于设置其格式，很少会直接对其中每个单元格的数据进行操作的。更多的是对单行或单列中的数据进行操作。比如把上例中D1到D5的数据依次输出：

Sub test()Dim sht_slea As WorksheetDim rng As Range

<span class="hljs-keyword">Set</span> sht_slea = Worksheets(<span class="hljs-string">"SLEA"</span>)
<span class="hljs-keyword">Set</span> rng = sht_slea.Range(<span class="hljs-string">"D2:D5"</span>)<span class="hljs-keyword">For</span> <span class="hljs-keyword">Each</span> Item <span class="hljs-keyword">In</span> rngDebug.Print Item
<span class="hljs-keyword">Next</span> Item

End Sub

执行结果如下：

2.3 多个不连续单元格区域的引用

这种引用方式应该应用场景不多，我本人目前为止还没有在工作中使用过。

它的引用只需要在Range()函数中的参数里，在双引号中输入多个区域地址中间用逗号隔开即可。如以下代码可将B2到B5，D2到D5区域标上红色。

Sub test()Dim sht_slea As WorksheetDim rng As Range

<span class="hljs-keyword">Set</span> sht_slea = Worksheets(<span class="hljs-string">"SLEA"</span>)
<span class="hljs-keyword">Set</span> rng = sht_slea.Range(<span class="hljs-string">"D2:D5, B2:B5"</span>)rng.Interior.ColorIndex = <span class="hljs-number">3</span>

End Sub

结果如下：

3. 操作单元格对象

单元格，即Cell。不过在VBA里面，这个Cell得加上个s，即Cells，然后在连带着的括号里面输入用数字表示的行号和列号，即可引用到单个单元格对象。Cells对象也是Worksheet对象的一个子集。通常通过worksheet_object.Cells()的方式来引用。

Sub test2()Dim sht_slea As Worksheet

<span class="hljs-keyword">Set</span> sht_slea = Worksheets(<span class="hljs-string">"SLEA"</span>)
Debug.Print sht_slea.Cells(<span class="hljs-number">1</span>, <span class="hljs-number">2</span>)

End Sub

输出B1单元格（第1行，第2列）的内容：Subsector

所以Cells()的第1个参数是行号，第2个参数是列号。都用数字表示。在上例中，使用Cells和使用Range好像没什么区别，但是在进行数据处理时，我们经常需要动态地把数据读或写入一个单元格中，这时候，用数字表示位置的Cells对象，再结合For循环，操作起来就很方便了。

如以下代码可以把A1到D5中所有单元格的内容分别输出：

Sub test2()Dim sht_slea As Worksheet

<span class="hljs-keyword">Set</span> sht_slea = Worksheets(<span class="hljs-string">"SLEA"</span>)<span class="hljs-keyword">For</span> r = <span class="hljs-number">1</span> <span class="hljs-keyword">To</span> <span class="hljs-number">5</span><span class="hljs-keyword">For</span> c = <span class="hljs-number">1</span> <span class="hljs-keyword">To</span> <span class="hljs-number">4</span>Debug.Print sht_slea.Cells(r, c)<span class="hljs-keyword">Next</span>
<span class="hljs-keyword">Next</span>

End Sub

简单来说，Range对象便于把单元格区域作为一个整体来引用或操作，而Cells对象则方便于对每一个单元格分别进行操作。

番外篇

1. 理解Range("B2:B4, D2:D4")和Range("B2:B4", "D2:D4")的区别

先看清楚，上面两种格式

• 一个是把两个区域放在一个双引号里面，用逗号隔开
• 另一个是把两个区域分别放在双引号里面，用逗号隔开

前者是分别引用B2:B4和D2:D4这两个区域，而后者则表示引用的是从B2:B4开始到D2:D4结束为止的这一整个连续的区域。所以后者其实是等价于Range("B2:D4")。

所以虽然使用后者的方式来使用Range也不会报错，但其实通常并不会这么使用

2. 结合Cells对象的Range

因为Cells对象接受数字来表示行和列，而在Excel中，如果有两个行列对，就可以表示一个单元格区域了。例如Range("B2:D4")也可以用Range(Cells(2, 2), Cells(4, 4))来表示。这种方式有时候很有用，如需要根据条件来判断区域的开始和结束位置时，它就派上用场了。

3. 父对象的省略

其实前面提到过的Worksheet对象，它是有父对象的。其父对象为Workbook对象，而Workbook对象的父对象是顶级对象Application。Range的父对象是Worksheet对象，Cells对象的父对象也是Worksheet对象。所以在给这些对象赋值时，标准的写法应当要把父对象给写上，如：

Sub test3()Dim sht_slea As WorksheetDim titl_rng As RangeDim data_rng As Range

<span class="hljs-keyword">Set</span> sht_slea = Application.ThisWorkbook.Worksheets(<span class="hljs-string">"SLEA"</span>)
<span class="hljs-keyword">Set</span> title_rng = sht_slea.Range(<span class="hljs-string">"A1:D1"</span>)
<span class="hljs-keyword">Set</span> data_rng = sht_slea.Range(sht_slea.Cells(<span class="hljs-number">2</span>, <span class="hljs-number">1</span>), sht_slea.Cells(<span class="hljs-number">4</span>, <span class="hljs-number">4</span>))

End Sub

但是如果VBA中的代码涉及到的对象都位于一个工作表中，而这个工作表当前是激活状态，则这些父对象是可以省略的。默认就是当前（激活的）工作表。所以当SLEA工作表激活时，上述代码和下面的是等价的：

Sub test4()Dim sht_slea As WorksheetDim titl_rng As RangeDim data_rng As Range

<span class="hljs-keyword">Set</span> sht_slea = Worksheets(<span class="hljs-string">"SLEA"</span>)
<span class="hljs-keyword">Set</span> title_rng = sht_slea.Range(<span class="hljs-string">"A1:D1"</span>)
<span class="hljs-keyword">Set</span> data_rng = sht_slea.Range(Cells(<span class="hljs-number">2</span>, <span class="hljs-number">1</span>), Cells(<span class="hljs-number">4</span>, <span class="hljs-number">4</span>))

End Sub

我个人建议（或者说是我个人习惯）在引用Range对象时，Worksheet对象不要省略

在单独引用Cells对象时，Worksheet对象也不要省略

具体哪里省略哪里不省略，就得看个人习惯和应用场景了。并没有什么固定的规律可循。

Sub 过程名()' 需要在过程中执行的代码
End Sub

Sub test()Debug.Print "Hello"
End Sub

Function 函数名(参数1, 参数2, ...) As 数据类型' 需要在函数中执行的代码函数名 = 函数执行后的结果
End Function

Function my_sum(n1 as Integer, n2 as Integer) As IntegerDim s As Integers = n1 + n2my_sum = s
End Function

Call 过程名

Call 过程名(参数1, 参数2, ...)

Sub test()Dim s As Integers = my_sum(5, 5)Debug.Print s
End Sub

Function my_sum(n1 As Integer, n2 As Integer) As IntegerDim s As Integers = n1 + n2my_sum = s
End Function

参数名 As 参数类型

Sub sub_test(s As String)Debug.Print s
End Sub

Sub test()Call sub_test("hello")
End Sub

Optional 参数名 As 参数类型

Sub sub_test(Optional s As String)Debug.Print s
End Sub

Sub sub_test(Optional s As String = "Hello, World")Debug.Print s
End Sub

Sub test()Call sub_test("I am a boy")
End Sub

Sub test()Call sub_test
End Sub

Sub sub_test(var As Integer, Optional s As String = "Hello, World")Debug.Print varDebug.Print s
End Sub

Sub test()Call sub_test(50)
End Sub

Sub test()Call sub_test(50, "Hi, Meinv")
End Sub

Sub te4()On Error GoTo conDebug.Print "a" + 3Debug.Print 8 - 5
con:Debug.Print "error occur"
End Sub

Sub te3()On Error Resume NextDebug.Print 5 + 3Debug.Print "a" + 3Debug.Print "error occur"
End Sub

Sub test()On Error GoTo conDebug.Print 3 + 3Debug.Print 5 * 5

con:
Debug.Print “error occur”
Debug.Print “Do you understand this all?”
End Sub

\2. 执行以下代码，观察执行结果，务必结合输出结果以错误提示理解代码的每一行及整个代码的逻辑。

Sub test1()

<span class="hljs-keyword">On</span> <span class="hljs-keyword">Error</span> <span class="hljs-keyword">GoTo</span> con
<span class="hljs-keyword">On</span> <span class="hljs-keyword">Error</span> <span class="hljs-keyword">GoTo</span> <span class="hljs-number">0</span>
Debug.Print <span class="hljs-number">3</span> + <span class="hljs-number">3</span>
Debug.Print <span class="hljs-string">"c"</span> - <span class="hljs-number">3</span>
Debug.Print <span class="hljs-number">5</span> + <span class="hljs-number">5</span>

con:
Debug.Print “error occur”
Debug.Print “Do you understand this all?”
End Sub

Sub cell_format()Dim sht As WorksheetDim rng As Range

<span class="hljs-keyword">Set</span> sht = Worksheets(<span class="hljs-string">"Parameter"</span>)
<span class="hljs-keyword">Set</span> rng = sht.Range(<span class="hljs-string">"B2:C20"</span>)<span class="hljs-comment">' 设置边框格式</span>
<span class="hljs-comment">' 这是常规的实线、细线，默认颜色为黑色</span>
rng.Borders.LineStyle = xlContinuous

End Sub

结果如下：

这里的xlContinuous代表着一种默认的Excel边框风格，总共有以下几种：

除了直接用各种风格的名字外，也可以使用它对应的值来代替。有兴趣的杺尝试下不同的边框风格，看看效果。

2. 边框颜色

rng.Borders.ColorIndex = 3

或者

rng.Borders.Color = RGB(0, 255, 0)

前面一种是直接使用VBA内置的几种颜色值，后一种则可以直接使用RGB颜色，可以实现更高的个性化。VBA内置的颜色及对应的值如下：

所以示例代码中，ColorIndex = 3，即表示使用的是红色。结果如下：

3. 边框宽度

（在做这一步之前，我把前面的边框给清掉了）

rng.Borders.Weight = xlThick

这里的xlThick也是一种内置的属性，共有以下几种：

同样的，也可以使用它们对应的值来代替。

结果如下

4. 单边框

单边框，也就是只要一个方向有边框。只要在前面例子中的Borders后面加上括号，在括号内指定边就行了，其它设置不变：

rng.Borders(xlEdgeBottom).LineStyle = xlContinuous

结果如下：

这里代码里面使用的xlEdgeBottom表示下边框的意思，但要提醒的是，这个“下边框”指的是整个单元格区域（B2:C20）的底部边框，而不是“这个区域内部所有单元格的底部边框”。如果为要内部所有单元格都加上底线，可以用：

rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous

其它形式的边框，可以自己去摸索

5. 使用with语句

前面1、2、3节，在设置边框的样式、颜色、宽度时，都使用的rng.Borders.xxx的形式，其实VBA中支持with语句，可以省去一些重复的代码，更简洁高效。如可用以下代码同时设置表格样式、颜色、宽度：

    With rng.Borders.LineStyle = xlContinuous.ColorIndex = 3.Weight = xlThickEnd With

记得在对对象操作完后，要加上End With

Sub workbook_operate()

<span class="hljs-comment">' 定义工作薄对象</span>
<span class="hljs-keyword">Dim</span> wbk <span class="hljs-keyword">As</span> Workbook
<span class="hljs-keyword">Dim</span> fname <span class="hljs-keyword">As</span> <span class="hljs-built_in">String</span>fname = <span class="hljs-string">"E:/temp/test.xlsx"</span>
<span class="hljs-comment">' 根据工作薄文件路径打开工作薄</span>
<span class="hljs-keyword">Set</span> wbk = Application.Workbooks.Open(Filename:=fname)
MsgBox fname &amp; <span class="hljs-string">"已打开"</span>
<span class="hljs-comment">' 关闭工作薄</span>
wbk.Close

End Sub

结果如下：

然后就可以根据这个workbook对象（示例中的wbk变量）来获取到其中的工作表：

Set parameter_sht = wbk.Worksheets("Parameter")

或者取得这个工作薄的一些属性：

wbk.Name

最后可以使用Close方法来关闭这个工作薄：

wbk.Close

2. 隐式打开

使用隐式打开的时候，这个工作薄在前端是看不到的，只有在VBE环境中（的工程窗口）可以看到它。示例代码及结果如下：

Sub workbook_operate()

<span class="hljs-comment">' 定义工作薄对象</span>
<span class="hljs-keyword">Dim</span> wbk <span class="hljs-keyword">As</span> Workbook
<span class="hljs-keyword">Dim</span> fname <span class="hljs-keyword">As</span> <span class="hljs-built_in">String</span>fname = <span class="hljs-string">"E:/temp/test.xlsx"</span>
<span class="hljs-comment">' 根据工作薄文件路径获取工作薄对象</span>
<span class="hljs-keyword">Set</span> wbk = GetObject(fname)
Debug.Print wbk.Name

End Sub

与显式打开不同的是，这是使用了GetObject方法。结果如下：

可以在VBE的工程窗口（上图左侧）中看到有一个新的工项目被加载了。但此时是并不能看到有一个Excel文件被打开的，这个已经被VBA隐式打开的文件，只能使用VBA进行操作，在使用上与显式打开后得到的workbook对象没什么区别，如获取其中的工作表对象、获取它的名字、关闭它等，都是一样的。这里就不举例了。

3. 关闭

无论是显式打开还是隐式打开，如果在新打开的工作薄中有更改，在使用workbook.Close方法时，会有个弹窗提示是否要保存更改，就跟我们平时使用时一样：

又或者被打开的工作薄里面有些公式，在打开这个工作薄时公式结果变了（其实也等于是有更新了），在关闭时都会出现这个提示。如果可以确定是否需要更改，可以在保存时加入相应的参数SaveChanges：

wbk.Close SaveChanges:=False

SaveChanges等于False时即为不保存，等于True时即为保存

4. ThisWorkbook与ActiveWorkbook

ThisWorkbook对象是VBA顶级对象Application下的一个特殊对象，代表当前（VBA代码所在的）工作薄对象。

ActiveWorkbook对象也是VBA顶级对象Application下的一个特殊对象，代表当前激活的工作薄对象。

就跟我们在使用QQ聊天时一样，我们不可能同时单独地发信息给两个不同的QQ好友，只能有一个聊天窗口是被激活的。Excel也一样，当前被激活的工作薄就是ActiveWorkbook对象（同样类似地，也有ActiveWorksheet对象）。

有些情况下，ThisWorkbook等同于ActiveWorkbook，但有些情况下并不是的。如以下代码：

Sub workbook_operate()

<span class="hljs-comment">' 定义工作薄对象</span>
<span class="hljs-keyword">Dim</span> wbk <span class="hljs-keyword">As</span> Workbook
<span class="hljs-keyword">Dim</span> fname <span class="hljs-keyword">As</span> <span class="hljs-built_in">String</span>fname = <span class="hljs-string">"E:/temp/ActiveMe.xlsx"</span>
<span class="hljs-comment">' 根据工作薄文件路径获取工作薄对象</span>
<span class="hljs-keyword">Set</span> wbk = Workbooks.Open(fname)Debug.Print ThisWorkbook.Name
Debug.Print ActiveWorkbook.Name

End Sub

运行结果：

因为新打开的工作薄会被处于激活状态（就跟手工打开另一个Excel文件一样），所以这时新打开的ActiveMe.xlsx才是ActiveWorkbook，而当前代码所在的工作薄（test.xlsm）则是ThisWorkbook。而如果只有一个工作薄被打开或者是当前代码所在工作薄处于激活状态时，则ThisWorkbook和ActiveWorkbook是同一个对象。

本系列教程其它文章

Excel VBA入门（一）数据类型

Excel VBA入门（二）数组和字典

Excel VBA入门（三） 流程控制1－条件选择

Excel VBA入门（四）流程控制2－循环控制

Excel VBA入门（五）Excel对象操作

Excel VBA入门（六）过程和函数

Excel VBA入门（七）注释、宏按钮及错误处理

Excel VBA入门（八）单元格边框

Excel VBA入门（九）操作工作薄

Excel VBA 学习过程记录相关推荐

1. Excel.VBA 快速删除重复记录

   Excel.VBA 快速删除重复记录 日常工作中的工作表中经常会有重复记录,清除这些重复记录是一个繁琐的工作,即使在排序之后再进行手工筛选,也经常会出现遗漏,而使用VBA代码就可以快速准确地删除重复记 ...

2. 来吧！带你玩转 Excel VBA

   来吧!带你玩转 Excel VBA(含CD光盘1张)(双色)(附带近500个VBA思考练习题,Exceltip.net出品) 罗刚君  杨嘉恺编著 ISBN 978-7-121-20627-6 201 ...

3. 来吧 带你玩转 Excel VBA

   分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! 来吧!带 ...

4. 编写高效Excel VBA代码的最佳实践(一)

   很多Excel VBA文章和图书都介绍过如何优化VBA代码,使代码运行得更快.下面搜集了一些使Excel VBA代码运行更快的技术和技巧,基本上都是实践经验的总结.如果您还有其它优化Excel VBA ...

5. 如何避免在Excel VBA中使用选择

   本文翻译自:How to avoid using Select in Excel VBA I've heard much about the understandable abhorrence of ...

6. 利用Excel VBA SQL做特殊文件浏览器

   1.利用JamShellBrowser for ActiveX '转载请注明:本文来自:Excel吧 (www.excelba.com) 详细出处参考:http://www.excelba.com/A ...

7. excel vba 如何将日期周几转换成文字_Excel 从精通到入门

   Excel 从精通到入门 引子 Excel? 这么简单的东西有学的必要吗?公式加减乘除,诶等等这个日期怎么变成 #### 了,虽然文本数字搞不清楚,但也算熟练使用 Excel 啦. WOW, Awso ...

8. Excel VBA 多条件筛选及汇总统计

   Excel VBA 多条件筛选 AdvancedFilter 汇总统计 sumproduct Range与Array交换 在日常工作中,面对Excel表格数据,为了分类进行统计,通过对表格数据筛选获取 ...

9. 机器学习学习过程记录

   机器学习学习过程记录1 # np.meshgrid 生成网格点坐标矩阵. 把平面图变成一张'网图' 方便后面整体上色 # np.arange() 函数返回一个有终点和起点的固定步长的排列xx, yy ...

10. Excel VBA编程常用语句300句

    Excel VBA编程常用语句300句 ************** * VBA 语句集 * * (第 1 辑) * ************** **************** * 定制模块行为 ...

最新文章

1. 天水师范学院计算机科学与技术专业代码,计算机科学与技术-天水师范学院IPv6专题网站.doc...
2. 计算机网络：Socket网络通信底层数据传输
3. python 递归遍历二叉树
4. php中new运算符的作用,C++_C++编程中new运算符的使用学习教程，new运算符用作从自由存储为 typ - phpStudy...
5. springboot与thymeleaf 整合
6. 机房系统（一）——【修改密码 登录 】
7. 刚安装玩mysql如何登录不了_解决启用GTID binlog新安装完的MySQL提示无法登录
8. uniaccess安全助手卸载_“安装一分钟，卸载半小时”，盘点高速下载通道中的流氓操作...
9. 亲身经历：如何判断一个字符在a/z之前？
10. Altium Designer 20相关操作及使用技巧
11. UE4 UE5学习和资源网站整理
12. 微信图片dat转jpg工具（自动区分JPG、PNG、GIF）
13. windows下cfree5中%d输出浮点数的问题
14. 深入解读Redis之数据类型解析-SDS
15. OpenTK探索二：立体纹理贴图
16. 如何查询域名whois？域名whois查询能获得哪些信息
17. 服务器远程一直显示欢迎界面,windows server 2008R2 卡在欢迎界面
18. python验证码识别cnn_用CNN识别验证码的实用教程
19. 什么是敏捷BI？和传统BI有什么不同？
20. 软件测试必须具备的知识体系（个人总结）

热门文章

1. win10 shift+右键打开cmd
2. 08.音频系统:第006课_音频系统HAL分析:第001节_HAL之框架
3. 计算机英语专业摘要,推荐：计算机毕业论文英文摘要的写作方法
4. Mysql - 巧用join来优化sql
5. 上海，夜访大一女生宿舍，满足。
6. 一文带你全方位了解网卡
7. Allegro 常见问题
8. python办公自动化——批量向excel填充数据
9. 校验和checksum、哈希值是什么？
10. 在c语言中的变量分为三种类型,在C语言中的实型变量分为两种类型