能否用代码实现工具-引用-Microsoft scripting runtime的勾选？

huangyongli

工具-引用-Microsoft scripting runtime勾选后能很方便地调用属性、方法
例如 Dim dic As New Dictionary
但是，这类代码给其它用户使用，用户在不引用Microsoft scripting runtime的情况下会提示“ 编绎错误： 用户定义类型未定义 ”
可否打开工作表事件中用代码实现 工具-引用-Microsoft scripting runtime？

远方的孤独

用后期引用即可解决此问题，比如 set dic=CreateObject("scripting.dictionary") '创建字典引用

huangyongli

远方的孤独 发表于 2015-1-29 10:19
用后期引用即可解决此问题，比如 set dic=CreateObject("scripting.dictionary") '创建字典引用

本人英语极差，后期引用调用属性、方法需全部手打单词
例如DIC.exists,需牢记单词exists，前期引用则只需DIC.e ，然后列表下拉占选就可以了

远方的孤独

Option Explicit
Sub 开启()
ThisWorkbook.VBProject.References.AddFromFile (ThisWorkbook.Path & "\scrrun.dll")
End Sub

你可以将此代码放在工作簿打开事件中，不过有个不好的地方就是你必须将此dll一并复制到此工作簿同一个文件夹内

远方的孤独

taller版主曾写过这段代码ThisWorkbook.VBProject.References.AddFromFile libFullname   你可以试试看

远方的孤独

推荐你看罗刚君的书，带你玩转VBA，会让你编程的时间大大缩短，思路理解了就做成模板，要用时直接套用修改。不然每次都重新手写，浪费大量时间。

huangyongli

远方的孤独 发表于 2015-1-29 10:43
Option Explicit
Sub 开启()
ThisWorkbook.VBProject.References.AddFromFile (ThisWorkbook.Path & "\sc ...

怎么不行，麻烦帮忙看看

1. Sub DDD()
   
2. 
   
3. ThisWorkbook.VBProject.References.AddFromFile (ThisWorkbook.Path & "\scrrun.dll")
   
4. 'ThisWorkbook.VBProject.References.AddFromFile ("C:\WINDOWS\system32\scrrun.dll")
   
5. Dim D As Object
   
6. Set dic = CreateObject("scripting.dictionary")
   
7. 'Dim D As New dictionary
   
8. End Sub
   

复制代码

百度不到去谷歌

首先打开excel选项里 勾选 信任对VBA工程对象模型的访问

ThisWorkbook.VBProject.References.AddFromFile “C:\Windows\SysWOW64\scrrun.dll”
这是我win7 64位系统32位系统应该是“C:\Windows\System32\scrrun.dll”

huangyongli

1. Sub D1()
   
2.     On Error Resume Next
   
3.     ThisWorkbook.VBProject.References.AddFromFile (ThisWorkbook.Path & "\scrrun.dll")
   
4.     Call d2
   
5. End Sub
   
6. Sub d2()
   
7.     Dim D As New Dictionary
   
8. End Sub

复制代码

没有勾选的情况下执行过程 D1 即可间接引用
谢谢大家

乐乐2006201505

        我win7 32位系统完全可以实现“工具-引用-Microsoft scripting runtime的勾选”，你试试（将代码复制到模块中，运行后即可）。
Sub 加载引用()
      ThisWorkbook.VBProject.References.AddFromFile ("C:\WINDOWS\system32\scrrun.dll")
End Sub