如何导出VBE本地窗口内的信息到工作表

aman1516

缘起：
如何取到图片中间或右下角所在单元格的位置
https://club.excelhome.net/thread-1650675-1-1.html

在此单独新开一贴：能否将 本地窗口 里面的列表内容全部导出到工作表，
包括 “+” 隐藏部分展开到第三级：

• VBE本地窗口：
• 显示当前运行过程中所包含变量的值
• 但代码执行结束会自动清除显示
• 所以本地窗口像查看的话，需要加断点
  

现在，非常感谢在 perfect131 老师的帮助下，能提取到以下总信息：


请教下，能否得到明细，各属性、变量对应本地窗口里面的值呢？

aman1516

'测试：
'Sheet1中插入一图形，代码中用 Stop 作断点
'在VBE的本地窗口中查看shp信息
Sub test()
Set shp = Sheet1.Shapes(1)
Stop
End Sub

ivccav

值是运行时才有的。再说导出这些信息，有什么意义？不说没有人能关注到所有信息，那些信息绝大部分都是没用的，自己关注的值print到立即窗口验证就行了。

aman1516

ivccav 发表于 2023-1-11 12:36
值是运行时才有的。再说导出这些信息，有什么意义？不说没有人能关注到所有信息，那些信息绝大部分都是没用 ...

本地窗口的信息很多的确无用，但过稆状态中有用的信息和值也在里面，
还是简单的拿个插入工作表指定位置的图形说事吧，
设置图形各种格式，并旋转一定角度后，
如果这个操作已完成 ，反过来要获得图形此时各种属性的相关值和信息，
只有一个一个属性在立即窗口 Debug.Print ？
或者是否有别的方法，如属性集合之类的，一次性列出来？
这样就无需调出本地窗口信息来处理了
等等........

一些过程值与信息，对一般的VBA应有用可能无意义，但如果这样的功能能实现，对测试、调试、编程处理会有用吧，至少我觉得很有用

清风客98

我没测试过，但我记着VBE有window属性，好像还有grid属性，，，立即窗口的信息，不知道能否通过调用窗口传递？
不详，只提供个思路

游乐缘

感谢分享，留名学习

morpheus126

留名学习。。。那个外国论坛我尝试看了下，有点头脑发胀，里面还有个视频，很好奇那个楼主在说什么。。。

aman1516

详见附件，请老师们多多指教：

VBE本地窗口信息导出.rar (38.55 KB, 下载次数: 16)

2023-1-11 20:07 上传

点击文件名下载附件

aman1516

morpheus126 发表于 2023-1-11 18:27
留名学习。。。那个外国论坛我尝试看了下，有点头脑发胀，里面还有个视频，很好奇那个楼主在说什么。。。

书到用时方恨少，对于英语不及格的人，看英文就如天书，听外语就如鸭听雷......
那外文网页，翻译也翻不过来，是连蒙带猜的把代码弄到附件里，还好加上老师指导，算是执行出来了

aman1516

清风客98 发表于 2023-1-11 17:37
我没测试过，但我记着VBE有window属性，好像还有grid属性，，，立即窗口的信息，不知道能否通过调用窗口传 ...

如果确是这样，是很好的一个思路，下面这些，应该都涉及到对VBE的操作吧：


一键设置炫彩Excel VBA界面 代码编辑器美化教程 VBE颜色修改器使用说明
https://club.excelhome.net/thread-1521329-1-1.html


VBA千古难题 终于解决 VBA代码行号 赏心悦目!
https://club.excelhome.net/thread-1623792-1-1.html