如何利用VBA列举窗体名？

作者：绿色风分类：时间：2022-08-17 浏览：132

楼主
kevinchengcw

Q: 如何利用VBA列举窗体名？
A: VBA来列举窗体名，也许你会想到API，但是office真的很强大，我们可以利用word的程序集功能来调出运行中的窗体名，代码如下：

Sub test()
Dim strTitle, objWord
Dim Str As String
Set objWord = CreateObject("Word.Application") '创建word程序
For Each strTitle In objWord.Tasks '列举word程序管理中的各项
Str = Str & vbNewLine & strTitle '串接找到的窗体
Next
objWord.Quit '退出word程序
MsgBox "当前正在运行的窗体有：" & Str, vbOKOnly, "" '显示找到的窗体列表
End Sub

是不是看到了很多，是的，有很多是隐藏的窗体也被找出来了，office的功能够强大吧。当然列举出来后我们就可以进行相关操作了。

附上述代码的示例文件。

列举当前运行中任务窗体名.rar

2楼
wnianzhong

学习学习,谢谢!

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表