VBA学习(60)：增补：Excel VBA 选择输入/TreeView控件/在工作表中如何顺遂
上一篇文章我们分享了一例通过TreeView控件，实现会计科目标选择输入的方法，（Excel VBA 选择输入/TreeView控件）：https://img-blog.csdnimg.cn/img_convert/7e5dac782e8eeb536c1b9c10f9f6748b.gif
然而，当今天我打开它准备发送给索要示例文件的小同伴的时候，咦，这是什么鬼？
https://img-blog.csdnimg.cn/img_convert/003ce0581ce9a7af0afba4c78d1ba2a6.png
再进入计划模式：
https://img-blog.csdnimg.cn/img_convert/7d702ec96c45c11de85eb96e0b3da351.png
TreeView1这个控件，它在啊
在代码窗口查看：
https://img-blog.csdnimg.cn/img_convert/9c60ea88bd15a7dfc5211624658c228e.png
名称怎么变成了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"+邮箱吧，我们下期再会。
技能交换，软件开发，接待微信沟通：
https://img-blog.csdnimg.cn/direct/8ba65ab1164b42298088402bf37c99cc.jpeg
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。
页:
[1]