从VBA中引用WSH对象类型

397 · 发表于 2007-11-1 15:51:21

嗨
我做一些VBScript和VBA。在VBA中，我注意到我可以设置对MS脚本运行时类型库的类型引用，这给了我FSO对象和方法，但是有人知道我是否也可以在VBA中获得对WSH对象的引用吗？
谢谢
Mark

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

蛇群 · 发表于 2007-11-1 15:52:41

我刚刚给你发了一封电子邮件，但是是的，在工具引用
中设置对Wsh的引用

七十年代生人 · 发表于 2007-11-1 15:54:42

非常好！！！！！！！！
谢谢你,先生！
现在，没有什么能阻止我们!!!!! 哈哈哈哈

天后联盟 · 发表于 2007-11-1 16:36:40

嘿CM
如果我有时间，我稍后会为你调查
我想知道是否存在这样做的方法？
马克

东健影视 · 发表于 2007-11-1 16:47:06

问得好。我会从这里开始。

少年 · 发表于 2007-11-1 17:28:24

优秀的网站！谢谢议员，我一定会用的马克

小城天使 · 发表于 2007-11-1 17:30:06

想想我在MSDN花了这么多时间，我完全忘记了TechNet

生活驿站 · 发表于 2007-11-1 17:42:07

你们的欢迎大家。我和我的一本书“Advanced VBScript”，Jones，Hicks...其中大部分是可行的/可转换为LISP ...

copy

(defun _GetPrinterClientInfo ( / olePrn result )
    (vl-catch-all-apply
       '(lambda ( )
            (setq
                olePrn (vlax-create-object "OlePrn.PrinterURL")
                result (vlax-get-property olePrn 'ClientInfo)
            )
        )
    )
    (vl-catch-all-apply
       '(lambda ( )
            (vlax-release-object olePrn)
        )
    )
    (if result result 0)
)
(defun _DecodePrinterUnicodeName ( prnName / oleCvr result )
    (vl-catch-all-apply
       '(lambda ( )
            (setq
                oleCvt (vlax-create-object "OlePrn.OleCvt")
                result (vlax-get-property oleCvt 'DecodeUnicodeName prnName)
            )
        )
    )
    (vl-catch-all-apply
       '(lambda ( )
            (vlax-release-object oleCvt)
        )
    )
    (if result result "")
)
(defun _ConnectToPrinter ( server printerUnicodeName / oleInstall share platform result )
    (vl-catch-all-apply
       '(lambda ( )
            (setq
                oleInstall (vlax-create-object "OlePrn.OleInstall.1")
                share      (_DecodePrinterUnicodeName printerUnicodeName)
                platform   (itoa (_GetPrinterClientInfo))
            )
            (vlax-invoke-method
                oleInstall
               'InstallPrinter
                (strcat "\\\" server "\" share)
                (strcat
                    "http://"
                    server
                    "/printers/"
                    printerUnicodeName
                    "/.printer?createexe&"
                    platform
                )
            )
            (setq result t)
        )
    )
    (vl-catch-all-apply
       '(lambda ( )
            (vlax-release-object oleInstall)
        )
    )
    result
)    
...

玩得开心。

天才 · 发表于 2007-11-1 17:55:53

哦，那是非常酷的MP
所以，你使用VBScript和LISP？
我不太擅长LISP，但是我的老板非常擅长。
他已经干了15或20年了。他对VBA也很好，但口齿不清。
我是一个VBA人，这仅仅是因为我首先发现了VBA，并且很早就意识到我可以用它连接其他支持VB的程序，例如Excel。然后，我发现了VBScript，并意识到我可以做很多系统类型的事情，并简单地在一个ascii文件中编写一些东西，双击它并启动它；这在易用性和与其他计算机用户共享方面非常突出。
然后，我意识到我可以将VBScript与VBA一起使用，这让我更加惊讶。LOL
有趣的是我们如何发现新事物并学会将它们融合在一起。
话虽如此，我认为我过去低估了LISP，甚至可能看不起它，认为它过时了，只是ACAD特有的；当我开始在这里工作时，我看到我的老板是如何使用它的。在ACAD，你可以用LISP做很多事情。
选择集、创建变量等。
因此，我不认为我真的会深入研究LISP，但是我当然希望能更精通它，至少对于动态工具来说是这样。如果我们有一个关于如何使用LISP的帖子或专栏，那就太棒了。如你所知，整个VB用户指南都是免费的。
老实说，我并没有试图理解VBScript的所有细节。
我真的想知道

从VBA中引用WSH对象类型

发表回复

精选推荐