自动前期绑定

sj15627581616

xiaocake 发表于 2020-5-19 09:17
听你说的猜测你是想要自动添加引用，在Excel里面写VBA代码，默认与Excel相关的引用已经自动添加了。
难 ...

以字典为例，我希望我的电脑上，每个EXCEL表格不管新建还是下载的，打开时就要是默认已经进行过前期绑定的，明白我意思吗？

xiaocake

sj15627581616 发表于 2020-5-19 09:27
以字典为例，我希望我的电脑上，每个EXCEL表格不管新建还是下载的，打开时就要是默认已经进行过前期绑定 ...

概念都搞错了，怪不得。。。
你自己搜“VBA自动添加引用”

sj15627581616

xiaocake 发表于 2020-5-19 09:34
概念都搞错了，怪不得。。。
你自己搜“VBA自动添加引用”

你在指手动进行前期绑定？你甚至没明白我发这个帖到底想要什么，我要的就是我在我的电脑上所有的工作簿都是默认进行过前期绑定的，你在一个工作簿中进行过前期绑定，你换一个还是默认前期绑定的？每个都得进行一次手动前期绑定好吧

sj15627581616

xiaocake 发表于 2020-5-19 09:34
概念都搞错了，怪不得。。。
你自己搜“VBA自动添加引用”

你所说的这个 百度都是说的前期绑定跟后期绑定这两者，我所说的是 针对电脑上每一个工作簿都默认为前期绑定状态

xiaocake

sj15627581616 发表于 2020-5-19 09:45
你所说的这个 百度都是说的前期绑定跟后期绑定这两者，我所说的是 针对电脑上每一个工作簿都默认为前期绑 ...

不就是在写代码的时候不想手动去勾选那个引用嘛。
VBA自动添加引用的代码，难道你都看过了？看了没有一点点想法？为嘛这么快就下结论？

下面的方法不香嘛？
准备一个 “有绑定”的工作薄作为模板，需要写代码的时候，对着这个模板文件 右键  新建
或者直接复制一个出来。

sj15627581616

xiaocake 发表于 2020-5-19 11:49
不就是在写代码的时候不想手动去勾选那个引用嘛。
VBA自动添加引用的代码，难道你都看过了？看了没有一 ...

你说的这个对本机以外的报表不通用，二楼的说法已经最接近了，唯一的缺点就是不能像工作簿OPEN事件一样，随着每个工作簿启动而启动

大灰狼1976

楼主的表述没有问题，但实际操作就是自动添加引用，所以回答者的说法也没有问题，这个是能实现的。

xiaocake

打开任意工作薄，自动添加引用，已经实现，是在个人宏工作薄中写代码实现。
步骤如下：
1.打开任意一个Excel文件，录制宏 ，跳出录制宏窗口，保存在  选 "个人宏工作薄"，
  然后在Excel里面做任意的操作，然后停止录制宏。
  此步骤是为了创建 "个人宏工作薄"。

2.打开VBA代码编辑器，在工程资源管理器中，会出现  PERSONAL.XLSB
  把刚才录制得到的模块删掉(可以不删的，不影响)

3.下面开始在这个PERSONAL.XLSB里面干活了
（1）插入标准模块，输入下面代码：
Public nty As NewWorkbookNotify
Sub Auto_Open()
    On Error Resume Next
    Set nty = New NewWorkbookNotify
    Set nty.xlApp = Application    MsgBox "个人宏工作薄已经打开!"
End Sub

（2）插入类模块，类模块的名字 改成 NewWorkbookNotify
类模块的内容如下：
Option Explicit
Public WithEvents xlApp As Application
Private Sub xlApp_NewWorkbook(ByVal wb As Workbook)
    MsgBox "新建了一个文件!"
    AddRefs wbEnd Sub
Private Sub xlApp_WorkbookOpen(ByVal wb As Workbook)
    MsgBox "打开了一个文件!"
    AddRefs wb
End Sub

Private Function AddRefs(ByVal wb As Workbook)
    On Error Resume Next
    Dim ref, tmptxt    tmptxt ="刚才打开的工作薄所有的引用对应的GUID如下："
    For Each ref In wb.VBProject.References
        tmptxt = tmptxt & vbNewLine & ref.GUID
    Next
    MsgBox tmptxt
    If InStr(tmptxt, "{420B2830-E718-11CF-893D-00A0C9054228}") > 0 Then
        MsgBox "Microsoft Scripting Runtime 先前已经加载！"
    Else
        wb.VBProject.References.AddFromGuid GUID:="{420B2830-E718-11CF-893D-00A0C9054228}", Major:=0, Minor:=0
        Select Case Err.Number
            Case 32813
                'MsgBox "Microsoft Scripting Runtime 先前已经加载！"
                '引用已经加载，无需做任何事情
            Case 0
                MsgBox "Microsoft Scripting Runtime 本次加载成功！"
            Case Else
                '加载出现错误
                MsgBox "加载出现错误！"
        End Select
    End If
End Function

点一下 保存

4.关闭所有excel文件。个人宏工作薄也会自动关闭

5.打开任意Excel文件，看效果。

sj15627581616

xiaocake 发表于 2020-5-19 14:49
打开任意工作薄，自动添加引用，已经实现，是在个人宏工作薄中写代码实现。
步骤如下：
1.打开任意一个Ex ...

运用了类模块，目前还没有学到这一块之间的运用