vba - 在后台运行宏

Question

我在使用 VBA 宏时遇到了一些问题。

1. FILE1.xls打开具有宏的 Excel 文件 ( 这一步没有问题。

2. 当我打开不可见的文件时，我试图打开一个FILE2.xls没有宏的新 Excel 文件 ( )（例如我通过邮件收到的文件）。我认为这是来自我的宏的问题。

所以我想在后台运行这个宏并能够打开 6 个不同的 Excel 文件（例如）。

我一直在寻找解决这个问题的方法。

Answer 1

您可以在其属性窗口中将 UserFormsShowModal属性设置为False以防止其阻塞。

Answer 2

我使用以下功能在后台打开了几个工作簿。

示例调用：

Set newWorkbook = GetWorkbook(scoreCardLink)

功能：

Public Function GetWorkbook(fullFileName As String) As Workbook
Application.ScreenUpdating = False
Dim result As Workbook
Dim sFileName As String
On Error Resume Next

strFilePath = fullFileName
vParts = Split(strFilePath, "/")
sFileName = vParts(UBound(vParts))

Set result = Workbooks(sFileName)
If (result Is Nothing) Then
    Application.enableEvents = False
    Set result = Workbooks.Open(fullFileName, ReadOnly = True, IgnoreReadOnlyRecommend = False)
End If
Set GetWorkbook = result
End Function