那些神奇的Set A = CreateObject(" ")的用法

鑫尼达

最先接触的可能是字典,在很多场景下配合数组使用可以提高代码运行效率和解决一些疑难问题.

1. Set d = CreateObject("Scripting.Dictionary")

复制代码

然后是ADO,在Excel中用sql处理数据 ,一下子让我从此入门了数据库的殿堂

1. Set conn = CreateObject("ADODB.Connection")

复制代码

然后是fso,Excel可以和硬盘里的文件文件夹连接互动起来,做的程序可以更自动化了.

1. Set fso = CreateObject("Scripting.FileSystemObject")

复制代码

这些神奇的Set A = CreateObject(" ")的用法,时不时的出现在各位大佬的代码里面,
帮助我提高了工作效率,解决了一个个疑难杂症,当然也让我在"写代码"的邪路(相对自己的主业来说)上越陷越深.


然而大多数时候,我只是在复制粘贴大佬们的代码,然后稍微改改拿来用.
括号里面的那一串英文字符从来也不知道咋读也没记住咋拼写,也没有去研究过到底是什么意思有什么作用.


直到最近又看到几个大神的代码,
如何用程序批量给图片加LOGO
怎么批量将文件夹内的图片切除图片下方的一部分（35%）？

1. Set img = CreateObject("WIA.ImageFile")
   
2. Set IP = CreateObject("WIA.ImageProcess")

复制代码

竟然可用Excel裁剪和拼接图片.

这简直太神奇了!!!!

然后我突然意识到,这些方法可能有某些共性特点,
就我粗浅的理解,这些用法好像都是创建一种特定类型的对象,这个对象有它自己的属性,和操作方法.
利用这些对象的属性方法,可以解决一个个原本Excel不能解决的问题.
而且好像这些对象,都是可以通过VBE里面的工具-引用菜单里面勾选一些选项来实现.
而工具-引用里面貌似有无数的选项可以勾选.

那么,到底还有哪些CreateObject的对象的用法?
这些用对象都可以解决什么类型的问题?
该怎么系统的学习这些用法?


求大神们不吝分享,慷慨相授,给大家留下你们宝贵的经验心得.


一句话,一个关键词指个路,后学们将感激不尽,如果能提供附件或者帖子链接举例说明则善莫大焉!

新手来习

帮顶，期待大神出来指导

Yanxi2021

我也有同问，也在四处查找相关的内容。据我所知，可以使用对象浏览器来查看。但是貌似不太直观，不好用。是否有一个大全类的学习资料以便在使用时查找。望高手们不吝赐教。

lss001

https://club.excelhome.net/forum.php?mod=viewthread&tid=1320374&extra=page%3D1

鑫尼达

lss001 发表于 2022-12-22 22:11
https://club.excelhome.net/forum.php?mod=viewthread&tid=1320374&extra=page%3D1

搞得太高深了

lss001

Sub 枚举系统中所有COM对象()
    Const HKEY_CLASSES_ROOT = &H80000000
    Dim arrProgID, strProgID, objReg
    Set objReg = GetObject("winmgmts:\\.\root\default:StdRegProv")
    objReg.EnumKey HKEY_CLASSES_ROOT, "", arrProgID

    For Each strProgID In arrProgID
        If Left(strProgID, 1) <> "." Then
            i = i + 1
            Cells(i, 2) = strProgID
        End If
    Next
    Cells(1, 2) = "系统COM对象"
End Sub

lss001

********************************
注意：系统部分对象VBA不可用

夏天的风shh4695

顶一个。。。。

morpheus126

lss001 发表于 2022-12-22 22:11
https://club.excelhome.net/forum.php?mod=viewthread&tid=1320374&extra=page%3D1

64位的EXCEL，运行不下去~~要改数据类型不太懂