上一篇文章我们分享了一例通过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
- 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"+邮箱吧，我们下期再会。
技能交换，软件开发，接待微信沟通：
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。 |
