欺骗法判断某个过程或自定义函数是否存在

大灰狼1976

奇怪，找不到提问人的帖子了，那就新发一贴。

简单说明：判断某个过程或自定义函数是否存在，又不想运行它，那就人为设置障碍不让它运行好了，还是可以用run，欺骗它一下。

1. 
   
2. <div>Sub test()
   
3. Debug.Print ExistsOrNot("Sheet1.test")
   
4. Debug.Print ExistsOrNot("Sheet1.test_aaa")
   
5. Debug.Print ExistsOrNot("Sheet1.ExistsOrNot")
   
6. End Sub
   
7. 
   
8. Function ExistsOrNot(processfullname)
   
9. On Error Resume Next
   
10. Run processfullname, Application, Modules, Workbooks, Sheets, Array(1, 2)  '设置罕见参数防止运行
    
11. If Err.Number = 450 Then      '必定会返回错误，不存在过程/函数名和参数错误返回的信息是不同的
    
12.   ExistsOrNot = "存在"
    
13. ElseIf Err.Number = "1004" Then
    
14.   ExistsOrNot = "不存在"
    
15. End If
    
16. End Function</div>

复制代码

大灰狼1976

run欺骗法已知不足之处如下：
1、不能run用户窗体模块内的过程或函数（即使公有也不行）；
2、不能run类模块内的过程或函数。
部分解决方法：
用callbyname代替run，可以判断除了类模块之外所有模块中的过程或函数，类模块不能实现。

cidanji

支持楼主   

joforn

万一，我是说万一啊。万一我把Run也欺骗了呢？所以这是一个无解的死扣，不要说接管不了，目前我测试过可以接管VBA内大部分内置函数

zhumin1025

这样做的目的是什么？

perfect131

循环
https://club.excelhome.net/forum.php?mod=viewthread&tid=1684764&_dsign=ee4642c1

大灰狼1976

joforn 发表于 2024-3-11 19:42
万一，我是说万一啊。万一我把Run也欺骗了呢？所以这是一个无解的死扣，不要说接管不了，目前我测试过可以 ...

其实本意只是简单判断而不是和代码斗智斗勇，但我对你这个假设很感兴趣，说不定能接触一些有趣的知识，请老师示下

大灰狼1976

大灰狼1976 发表于 2024-3-7 13:57
run欺骗法已知不足之处如下：
1、不能run用户窗体模块内的过程或函数（即使公有也不行）；
2、不能run类 ...

这里我错了，callbyname可以运行类模块里的过程，反而不能运行标准模块的过程；这样理论上和run结合就可以判断所有模块里的过程了，但仍需要测试。
run可以运行：工作表，工作簿，标准模块内的过程或函数；
callbyname可以运行：用户窗体，类模块内的过程或函数。

大灰狼1976

目前测试完美，所有模块中的过程和函数都没问题。

1. Sub test()
   
2. Debug.Print ExistsOrNot("Sheet1.test")
   
3. Debug.Print ExistsOrNot("test_aaa")
   
4. Debug.Print ExistsOrNot("ExistsOrNot")
   
5. Debug.Print ExistsOrNot("classfun", New Class1) '或者New userform1，New不能省略
   
6. End Sub
   
7. 
   
8. Function ExistsOrNot(processFullname, Optional Others)
   
9. On Error Resume Next
   
10. If IsMissing(Others) Then
    
11.   Run processFullname, Application, Modules, Workbooks, Sheets, Array(1, 2)
    
12.   If Err.Number = 450 Then
    
13.     ExistsOrNot = "Yes"
    
14.   ElseIf Err.Number = "1004" Then
    
15.     ExistsOrNot = "No"
    
16.   End If
    
17. Else
    
18.   Dim obj As Object
    
19.   Set obj = Others
    
20.   CallByName obj, processFullname, VbMethod, Application, Modules, Workbooks, Sheets, Array(1, 2)
    
21.   If Err.Number = 450 Then
    
22.     ExistsOrNot = "Yes"
    
23.   ElseIf Err.Number = "438" Then
    
24.     ExistsOrNot = "No"
    
25.   End If
    
26. End If
    
27. End Function

复制代码

大灰狼1976

有个最大的好处就是不需要设置信任中心对象和模块的访问权限，因为大部分使用者都没有开启此设置。