vba - 保存、关闭并重新打开 "ThisWorkbook"

Question

我需要保存、关闭并重新打开“ThisWorkbook”。
代码应该是这样的:

Sub reopen()

Dim wb As Excel.Workbook
Set wb = ThisWorkbook

wb.Save
wb.Close
wb.Open

End Sub

不幸的是，没有这样的命令“wb.Open”，一旦我“wb.Close”，代码就会停止:)

附言它应该是更大的一部分，如果工作簿未保存关闭并重新打开，则会给出错误“91”...

Answer 1

Sub reopen()

Dim wb As Excel.Workbook
Set wb = ThisWorkbook

Dim pth As String
pth = wb.FullName

Application.OnTime Now + TimeValue("00:00:01"), Application.Workbooks.Open(pth)
wb.Close (True)

End Sub