重新打开最近关闭的 Excel 实例

如果我使用下面的代码关闭当前打开的所有 Excel 实例，我需要使用什么来重新打开刚刚关闭的所有 Excel 实例？我知道我必须更改以下内容才能将文件路径保存在某处，但只是不确定实际的代码应该是什么。

Public Sub CloseAllExcel()
On Error GoTo handler

   Dim xl As Excel.Application
   Dim wb As Excel.Workbook

   Do While xl Is Nothing
      Set xl = GetObject(, "Excel.Application")
      For Each wb In xl.Workbooks
         wb.Save
         wb.Close
      Next
      xl.Quit
      Set xl = Nothing
   Loop
   Exit Sub

handler:
   If Err <> 429 Then 'ActiveX component can't create object
      MsgBox Err.Description, vbInformation
   End If

End Sub

这会将工作簿的文件路径存储到文本文件中。如果你运行这个宏False作为输入，这将打开所有最近关闭的文件。 （未测试）

Public Sub CloseAllExcel(Closing As Boolean)
On Error GoTo handler

   Dim xl As Excel.Application
   Dim wb As Excel.Workbook

   Dim strPath As String
   strPath = "C:\path.txt"


   If Close Then

   Dim fso as Object
   Set fso = CreateObject("Scripting.FileSystemObject")

   Dim oFile as Object
   Set oFile = FSO.CreateTextFile(strPath)



   Do While xl Is Nothing
      Set xl = GetObject(, "Excel.Application")
      For Each wb In xl.Workbooks

       oFile.WriteLine Application.ActiveWorkbook.FullName 
         wb.Save
         wb.Close
      Next
       oFile.Close
       Set fso = Nothing
       Set oFile = Nothing
      xl.Quit
      Set xl = Nothing
   Loop

   Exit Sub

   Else
   Dim FileNum As Integer
   Dim DataLine As String

   FileNum = FreeFile()
   Open strPath For Input As #FileNum

     While Not EOF(FileNum)
        Line Input #FileNum, DataLine 
        Workbooks.Open DataLine
     Wend
   Exit Sub
   End If

handler:
   If Err <> 429 Then 'ActiveX component can't create object
      MsgBox Err.Description, vbInformation
   End If

End Sub