VBA常用技巧代码解析

yukaiwz

敬佩！佩服！！！！！！

weilinxiao

多谢LZ的整理，非常不错啊

yuanzhuping

技巧168         取得应用程序的安装路径
       使用自定义函数取得应用程序的安装路径，如下面的代码所示。

1. #001  Function GetSetupPath(AppName As String)
   
2. #002      Dim WSH As Object
   
3. #003      Set WSH = CreateObject("Wscript.Shell")
   
4. #004      GetSetupPath = WSH.RegRead("HKEY_LOCAL_MACHINE\Software" _
   
5. #005          & "\Microsoft\Windows\CurrentVersion\App Paths" _
   
6. #006          & AppName & "\Path")
   
7. #007      Set WSH = Nothing
   
8. #008  End Function
   
9. #009  Sub WinRARPath()
   
10. #010      MsgBox GetSetupPath("WinRAR.exe")
    
11. #011  End Sub

复制代码

代码解析：
       自定义GetSetupPath函数取得应用程序的安装路径，其中参数AppName代表指定的应用程序的名称。
       第3行代码使用CreateObject函数将Wscript.Shell对象的引用赋给变量WSH。
       CreateObject函数创建并返回一个对ActiveX 对象的引用，语法如下：
       CreateObject(class,[servername])
       参数class是必需的，Variant (String)，要创建的应用程序名称和类。
       参数servername是可选的，Variant (String)，要在其上创建对象的网络服务器名称。如果servername是一个空字符串("")，即使用本地机器。
       第4行代码取得AppName参数指定的应用程序在注册表中的路径。
       WinRARPath过程使用消息框显示由自定义的GetSetupPath函数取得的应用程序“WinRAR”的安装路径。
       运行WinRARPath过程结果如图所示。
      

huibo-3138

非常感谢！！！！

newidea

300多页，够学好久的了！

zxb096

楼主，佩服，佩服，凭这种精神这种辛苦，该获五一奖章，哈哈哈。多谢整理，非常不错

jiayongyou0104

版主辛苦啦，非常感谢，太好啦

fengcui

版主辛苦啦！

caohui10mail

太好了，正在学习相关内容

vbamay

实在太感谢了!!!
要好好学习!!!!!!