Excel 2007 卷影副本？答案

【问题标题】：Excel 2007 shadow copy?Excel 2007 卷影副本？
【发布时间】：2012-07-23 22:13:11
【问题描述】：

我的问题是关于 Excel 插件和 VBA 代码的。

情况是这样的：

有2个Excel文件；一个只是普通的 Excel 工作表，一个是带有 VBA 代码的 .xla 加载项，它存储在网络驱动器上。

在普通 Excel 工作表中是对 .xla 文件的引用，因此工作表可以使用 .xla 文件中的宏。到目前为止，这工作正常，但有时似乎有一个错误：看起来工作表使用了 .xla 文件的某种“影子副本”。当我在 VBA 编辑器中更改代码或设置断点时会出现该错误，运行宏时两者都被忽略。感觉就像有一个.xla文件的旧副本，它是不可见的，并且以某种方式存储在普通的Excel文件中，因此运行的代码不是我在编辑器中看到的宏。

我认为这个问题是在我安装 MS Office 2007 后出现的。

我希望有人可以帮助我。

【问题讨论】：

标签： vba excel excel-2007 add-in

【解决方案1】：

如果 Excel 在本地存储您的加载项版本，我不会感到惊讶。在对您的 xla 进行更改时，我一定会重新添加您的加载项以确保安装最新版本。

编辑：

你可以尝试做这样的事情：

Private Sub Workbook_Open()

    Application.DisplayAlerts = False

    AddIns("Your Library Name").Installed = False 'To remove current link
    AddIns.Add Filename = "\\Your Server Path\Excel_Library3.xla"
    AddIns("Your Library Name").Installed = True

    Application.DisplayAlerts = True

End Sub

这将确保在他们打开 excel 表时从您的网络位置加载最新的插件。

【讨论】：

这是可能的。但是为什么 Excel 有时会这样做，有时却不会呢？我怎样才能防止它这样做？大约 50 人正在使用引用的 xla 文件。我不能让他们每次都手动重新添加加载项。他们中的一些人甚至不知道插件是什么:)

【解决方案2】：

我通过代码加载插件而不是引用文件。我的用途是将插件存储在我的 Dropbox 文件夹中，但网络也一样。

Sub LoadAddins()

Dim wbOpen As Workbook
Dim wbNew As Workbook
Dim strAddinsPath As String
Dim strExtension As String

On Error Resume Next

strAddinsPath = "\\Server\Excel\AddIns\" 'Your server path here

ChDir strAddinsPath

strExtension = Dir("*.xlam")

        Do While strExtension <> ""
            Set wbOpen = Workbooks.Open(strAddinsPath & strExtension)
            strExtension = Dir
        Loop

On Error GoTo 0

End Sub

您需要将其添加为受信任的位置，但我可以将我正在处理的任何插件放在文件夹中并让它们自动加载。

遍历我修改的文件夹中的文件的代码： http://www.ozgrid.com/VBA/2007-filesearch-alternative.htm

【讨论】：