excel - 打开嵌入的 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

编辑：删除睡眠代码，因为它没有帮助，只是测试。

标签： excelvba