VBA中创建“MSScriptControl.ScriptControl”失败

陈国柱

onERR 发表于 2019-5-11 18:28
在x64 OFFICE中使用ScriptControl控件的方法
https://blog.csdn.net/dengnihuilaiwpl/article/details/726 ...

Do
        For Each oShellWnd In CreateObject("Shell.Application").Windows
            Set CreateWindow = oShellWnd.GetProperty(sSignature)
            If Err.Number = 0 Then Exit Function
            Err.Clear
        Next
    Loop
为啥我在这里陷入了死循环

我问问啊FG进化

陈国柱 发表于 2022-4-16 11:55
Do
        For Each oShellWnd In CreateObject("Shell.Application").Windows
            Set Crea ...

我的也是

你地铁图

陈国柱 发表于 2022-4-16 11:55
Do
        For Each oShellWnd In CreateObject("Shell.Application").Windows
            Set Crea ...

权限拒绝.........

perfect131

用 htmlfile 32/64通用

1. Set HTML = CreateObject("htmlfile")
   
2. Set oWindow = HTML.parentwindow

复制代码

tangcong

onERR 发表于 2019-5-11 18:28
在x64 OFFICE中使用ScriptControl控件的方法
https://blog.csdn.net/dengnihuilaiwpl/article/details/726 ...

感谢分享，非常有用！

但有疑惑：Function CreateObjectx86 中，#If ……#Else …… #End If

tangcong

感谢分享，非常有用！ 但有疑惑：Function CreateObjectx86 中，#If ……#Else …… #End If，这几个前面加#表示什么？

PurpleIdea

好东西，留名学习！

cyhwy

陷入死循环

damahou1

我也是进入死循环，应该程序新打开的窗口没有打开，循环程序一直搜索不到，所以就一直搜索。