VBA送你的字典请查收

系统：Windows 7
软件：Excel 2010

问题

当前工作簿是否存在表：示例

工作簿的工作表

代码

Sub test()    
   Set d = CreateObject('Scripting.Dictionary')    
   
   For Each sh In ThisWorkbook.Worksheets        d(sh.Name) = ''    Next    tbl = '示例'    If d.Exists(tbl) Then        MsgBox '当前工作簿存在工作表：' & tbl    
   End If

End Sub

代码截图

部分代码解读

1. Set d = CreateObject('Scripting.Dictionary')

2. 上面代码有没有让你想写fso

• Set fso = CreateObject(“Scripting.FileSystemObject”)

3. 可以这么理解，字典也是VBA的第一个工具包，需要先装载才能使用

4. 字典是由一系列键-值对构成，要求键不能重复，有没有想起真实的字典，键类似于目录

5. 字典包含多种属性及方法，本文中d.Exists(tbl)检索字典的键中是否含有 “示例”，返回布尔值

思考：为了实现本文中的目的，有很多方法，字典是其中之一，那么字典还有什么好玩的东西呢？且听下回分解

---

以上为本次的学习内容，下回见

如发现有错误，欢迎留言指出

---