为什么设置了New Application的Visible属性为True,却没有看到新的Applicaiton?

作者：绿色风分类：时间：2022-08-18 浏览：83

楼主
水星钓鱼

Q：今天翻看自己的收藏夹，以前有过这样一个疑问
在任意一个模块中输入以下过程：

Sub xyf()
Dim obj As New Excel.Application
obj.Visible = True
End Sub

运行该过程后，没有看到新的Excel应用程序界面。
A：原因执行这个过程所需的时间太快，快到几乎没看到这个新的Excel应用程序界面，就End Sub了。而End Sub会清空所有变量。所以obj最后变成了Nothing。

可以这样修改代码让程序暂停执行几秒钟，就可以看到了。

Sub xyf()
Dim obj As New Excel.Application
obj.Visible = True
obj.Wait Now() + VBA.TimeValue("00:00:05")
End Sub

2楼
biaotiger1

哈哈，按F8单步执行也可以。
设置断点也可以。

免责声明

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

评论列表