补充:Excel VBA 选择输入/在工作表中使用TreeView控件

本文于2023年4月15日首发于本人同名公众号：Excel活学活用，更多文章敬请关注！

昨天我们分享了一例通过TreeView控件，实现会计科目的选择输入的方法，（Excel VBA 选择输入/TreeView控件）：

然而，当今天我打开它准备发送给索要示例文件的小伙伴的时候，咦，这是什么鬼？

再进入设计模式：

TreeView1这个控件，它在啊

在代码窗口查看：

名称怎么变成了TreeView41？难道是我手贱给改了？那我就把它改回来吧，于是右击TreeView1，属性，奇怪的是，怎么也进不了TreeView1的属性窗口。

后来，我试着把代码中的名称改了，可以运行，但关掉文件再打开又不行了；

试着把treeview1删除再添加，也可以运行，但同样的，关掉文件再打开又不行了。

最后，只能使出终极大杀器了，用动态添加控件的方法吧，在文件打开的时候，用代码添加一个treeview控件：

Private Sub Workbook_Open()
 Dim tv As Object
    Set tv = Sheets("明细账").OLEObjects.Add(ClassType:="MSComctlLib.TreeCtrl.2", Link:=False _
        , DisplayAsIcon:=False, Left:=20, Top:=20, Width:=204, Height:=81.6)
        tv.Visible = False
End Sub

上面的代码主干还是通过录制宏得来的，稍作修改。当然，这个过程是曲折的，试错了若干代码，这里就不详述了。

于是，把TreeView1控件删掉，保存，再打开，可以了！

关闭，再打开，又出错了！

于是分析，发现有一个TreeView1，应该是我们上次添加的，但程序不能识别，还有个TreeView2，应该是本次添加的，但代码里的控件是TreeView1啊，咋办呢？

其实在用代码动态添加的时候就想到了，在关闭文件的时候，删除添加的TreeView控件，只是为了叙述方便，现在说比较恰当。当然，曲折的过程就不说了，看结果：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim tv As OLEObject
    For Each tv In Sheets("明细账").OLEObjects
        If InStr(tv.Name, "TreeView") Then
            tv.Delete
        End If
    Next
    Application.DisplayAlerts = False '禁用警告对话框
    ActiveWorkbook.Save '保存工作簿
    Application.DisplayAlerts = True '启用警告对话框
End Sub

另外，当TreeView可见时，点保存按钮，它会唰唰唰地把所有记录全给列出来，相当碍眼，于是添加了一段代码，主要作用是，当保存时，把Treeview1设置为隐藏，眼不见心不烦：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Dim tv As OLEObject
    For Each tv In Sheets("明细账").OLEObjects
        If InStr(tv.Name, "TreeView") Then
            tv.Visible = False
        End If
    Next
End Sub

这里采用遍历对象的方法，似乎有点低效，是不是可以指定名称删除？

在某种程度上来说是可以的，但在关闭文件时，我们会删除TreeView，然后保存，那么这时候再设置它的Visible属性就会报错，因为对象已被删除了。也许可以用个 On Error Resume Next？应该可以，但我超级不喜欢这条语句，非到万不得已不轻易使用，也就没有尝试，有兴趣的小伙伴可以自己探索一下。

最后顺便提一下，我们这里分享的是工作表中的控件，在用户窗体中，也有Treeview控件，显然跟这里不是一样的东西，我在UserForm中使用TreeView控件就没有碰到这样的问题。当然，两者的用法还是差不多的，以后如果有必要我们再分享用户窗体中的控件的使用。

好，今天我们就分享到这里，我们下期再会。

本文于2023年4月15日首发于本人同名公众号：Excel活学活用，更多文章敬请关注！