在VBA中打开Excel文件而不加载加载项？

我有一些代码可以打开一个文件，将一些单元格复制/粘贴到一个合并的工作表中，关闭文件；然后循环查找文件夹中的所有文件。大概是这样的：

Set SourceFile = Workbooks.Open(FilePath & FileName)
Set Ltab = SourceFile.Worksheets("Sheet1")

Ltab.Cells.Copy
NewTab.Cells.PasteSpecial xlPasteValuess

SourceFile.Close

我是否可以添加一行，在每次打开文件时阻止Excel加载加载项？有很多文件，加载加载项每次都会增加5-10秒的时间

没有真正回答我的问题，因为我需要一种在VBA中实现的方法

---

谢谢

因此，如果您不想禁用所有加载项而不命名它们，并且

Installed=false

是正确的，请尝试对每个

Sub runWithoutAddins()

Dim var As AddIn

    For Each var In AddIns
        var.Installed = False

    Next var

End Sub

---

我不需要知道它们的名称，但这将循环AddIn集合中的每个对象，并将它们安装的atribute设置为false。（如果我理解得很好，就会禁用它们）

因此，如果您不想禁用所有加载项而不命名它们，并且

Installed=false

是正确的，请尝试对每个加载项使用

进行迭代

Sub runWithoutAddins()

Dim var As AddIn

    For Each var In AddIns
        var.Installed = False

    Next var

End Sub

我不需要知道它们的名称，但这将循环AddIn集合中的每个对象，并将它们安装的atribute设置为false。（如果我理解得很好，就会禁用它们）
胡乱猜测：
Application.EnableEvents=False
有帮助吗？还是线程？@BruceWayne我看到了第一个线程，但除了逐个命名外，我不知道如何处理Excel的所有加载项。我希望这个解决方案是动态的，所以我不必知道有哪些插件以及有多少插件。如果没有Index参数，AddIns.Installed无法工作。粗略猜测：
Application.EnableEvents=False
是否有帮助？还是线程？@BruceWayne我看到了第一个线程，但除了逐个命名外，我不知道如何处理Excel的所有加载项。我希望这个解决方案是动态的，所以我不必知道有哪些插件以及有多少插件。如果没有Index参数，AddIns.Installed将无法工作。谢谢，循环是解决不知道名称/编号问题的好方法。但我想我还有另一个问题，那就是我想首先阻止加载项，而像这样的代码只会在文件打开后禁用它们。我的问题是加载加载项会给打开每个文件的过程增加额外的时间，这可能会增加100多个文件。@partiallyfulltime hhh我找到了这个：D，因此您可以尝试Probaby的MS-only选项如何禁用加载项：DThanks，循环对于解决不知道名称/编号的问题是一个好主意。但我想我还有另一个问题，那就是我想首先阻止加载项，而像这样的代码只会在文件打开后禁用它们。我的问题是加载加载项会增加打开每个文件的过程的额外时间，这可能会增加100多个文件。@partiallyfulltime hhh我找到了这个：D，因此您可以尝试Probaby的MS-only选项如何禁用加载项：D