使用对象UIAutomationElement获取Excel全部函数名

lss001 · 发表于 2024-7-6 17:57

本帖最后由 lss001 于 2024-7-6 17:59 编辑

伶俐的毛豆发表于 2024-7-6 17:37
增加了延時，還是報錯

可能延时不够
在Dim PCcrr As .........上面再加一个延时

伶俐的毛豆 · 发表于 2024-7-6 19:09

本帖最后由伶俐的毛豆于 2024-7-6 19:15 编辑

lss001 发表于 2024-7-6 17:57
可能延时不够
在Dim PCcrr As .........上面再加一个延时

代码走到这里已经不对劲了，空对象，往下走下去，全部都是空对象

lss001 · 发表于 2024-7-6 20:15

伶俐的毛豆发表于 2024-7-6 19:09
代码走到这里已经不对劲了，空对象，往下走下去，全部都是空对象

设置断点，先手动一步一步调试一下，看看那一步为空，为空再加上延时即可。

perfect131 · 发表于 2024-7-7 11:21

lss001 发表于 2024-7-6 20:15
设置断点，先手动一步一步调试一下，看看那一步为空，为空再加上延时即可。

大佬我想获取 3 这个窗格内容

ComboBox 选择

lss001 · 发表于 2024-7-7 11:39

perfect131 发表于 2024-7-7 11:21
大佬我想获取 3 这个窗格内容

获取对象浏览器中的类列表内容？

把1楼附件中的代码
Set AE6 = AEbrr.GetElement(2) '<全局>'的成员
改为
Set AE = AEbrr.GetElement(1) '类

perfect131 · 发表于 2024-7-7 11:41

lss001 发表于 2024-7-7 11:39
获取对象浏览器中的类列表内容？

把1楼附件中的代码

不是是ComboBox中选择 ThisWorkbook.VBProject.Name
再获取 3 这个窗格内容

lss001 · 发表于 2024-7-7 12:26

perfect131 发表于 2024-7-7 11:41
不是是ComboBox中选择 ThisWorkbook.VBProject.Name
再获取 3 这个窗格内容

查一下ComboBox有没有焦点事件
如果有就设置焦点SetFocus展开
如果没有那就使用Expand展开
展开后再选择，再获取类中的数据即可
或者上传附件，根据你的说明实测一下？

perfect131 · 发表于 2024-7-7 14:49

lss001 发表于 2024-7-7 12:26
查一下ComboBox有没有焦点事件
如果有就设置焦点SetFocus展开
如果没有那就使用Expand展开

是获取对象浏览器 --> ComboBox中选择 ThisWorkbook.VBProject.Name --> 获取上图 3对应窗格的所有内容

lss001 · 发表于 2024-7-7 17:57

本帖最后由 lss001 于 2024-7-7 17:59 编辑

perfect131 发表于 2024-7-7 14:49
是获取对象浏览器 --> ComboBox中选择 ThisWorkbook.VBProject.Name --> 获取上图 3对应窗格的所有内容 ...

请参考修改附件

lss001 · 发表于 2024-7-7 18:15

本帖最后由 lss001 于 2024-7-7 18:26 编辑

lss001 发表于 2024-7-7 17:57
请参考修改附件

Dim PC10 As ......
至
Set AE8 = ......
以上代码是调式时使用的
可以删除
还有就是双击也可以改为单击

		自动登录	找回密码
密码			免费注册