上一篇文章我们分享了一例通过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控件就没有碰到这样的问题。当然，两者的用法还是差不多的，以后如果有必要我们再分享用户窗体中的控件的使用。
好，今天我们就分享到这里，有需要示例文件的小伙伴请点赞+留言，私信关键字"TreeView"+邮箱吧，我们下期再会。
技术交流，软件开发，欢迎微信沟通：
标签：控件,VBA,Sub,TreeView1,tv,添加,TreeView From： https://blog.csdn.net/nianfen/article/details/141598372