VBA送你的字典请查收

微信公众号原文

系统：Windows 7
软件：Excel 2010

问题

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

工作簿的工作表

1.png

代码

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

代码截图

2.png

部分代码解读

1. Set d = CreateObject("Scripting.Dictionary")
2. 上面代码有没有让你想写fso

• Set fso = CreateObject("Scripting.FileSystemObject")

3. 可以这么理解，字典也是VBA的第一个工具包，需要先装载才能使用
4. 字典是由一系列键-值对构成，要求键不能重复，有没有想起真实的字典，键类似于目录
5. 字典包含多种属性及方法，本文中d.Exists(tbl)检索字典的键中是否含有 "示例"，返回布尔值

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

---

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

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

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号

公众号底部二维码.jpg