打开嵌入式Excel文件会使Excel崩溃

Question

我在工作簿中嵌入了一个文件，因为我需要所有用户对其进行访问，如果它在网络上，则可能不会发生。我有这段代码可以将其从Excel提取到用户的临时驱动器中。

当我单步执行代码时，它运行正常，但在执行时崩溃。

Private Function DownloadOutlookFile()
    Dim oEmbFile As Object
    Dim x As String: x = ThisWorkbook.Name
    Application.DisplayAlerts = False
    Set oEmbFile = ThisWorkbook.Sheets(SO_File.Name).OLEObjects(1)
    oEmbFile.Verb Verb:=xlPrimary
    Workbooks("Worksheet in " & x).SaveAs FileName:="C:\Temp\Supression.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Workbooks("Worksheet in " & x).Close
End Function

编辑：删除了睡眠代码，因为它没有用，只是进行测试。