Question

我正在创建一个宏来打开大量文件，刷新它们，然后保存并关闭。所有文件都运行顺利但是当它们被打开时会弹出一条消息，其中显示“文件在包含列表上运行 - 标题可能会丢失”。这会暂停宏直到按下“确定”。我之前使用过“Application.DisplayAlerts = False”但它似乎没有在这里工作。我的代码如下：

Public Sub Refresh_All()

Dim filepathstr As String
Dim filename As String
Dim wbk As Workbook

filepathstr = Sheet1.Range("filepath").Value

For Each cell In Sheet1.Range("workbooks")

If Not cell.Value = "" Then

    filename = cell.Value
    Application.DisplayAlerts = False
    Set wbk = Workbooks.Open(filepathstr & filename, False)


    ''''**REFRESH**''''''
    SAPBexrefresh (True)

    Application.DisplayAlerts = False
    wbk.Save
    wbk.Close False
    Application.DisplayAlerts = True

End If

Next cell

MsgBox "The Macro has finished; BW Reports are refreshed."


End Sub

非常感谢任何帮助！

Answer 1

添加

this.http.get('some/url').map(res => res.json());

在打开wb之前

然后重新设置为

或者，使用：

Application.EnableEvents=False

请记住回到用户所拥有的任何内容......

使用VBA如何防止在打开文件时出现消息？

1 个答案: