Excel 保存工作簿后将其关闭

我从另一个工作簿运行宏，当我生成每日报告时，我已经保存了它们，但我想在保存它们之后关闭它们，我尝试了ThisWorkbook。关闭和ThisActiveWorkbook。关闭它只会停止宏的循环，而不会关闭工作簿

这是我的密码：

Dim IntialName As String
Dim sFileSaveName As Variant
IntialName = "Sample"
sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, filefilter:="Workbook(*.xlsx), *.xlsx")

If sFileSaveName <> False Then
ActiveWorkbook.SaveAs sFileSaveName, FileFormat:=51
End If

End With
xFileName = Dir
Loop
End If

Dim初始名称作为字符串
Dim sFileSaveName作为变量
initialname=“样本”
sFileSaveName=Application.GetSaveAsFilename（InitialFileName:=InitialName，filefilter:=“工作簿（*.xlsx），*.xlsx”）
如果sFileSaveName为False，则
ActiveWorkbook.SaveAs sFileSaveName，文件格式：=51
如果结束
以
xFileName=Dir
环
如果结束

此工作簿

是包含代码的工作簿，而不是您要关闭的工作簿

ThisActiveWorkbook

什么都不是

使用：

---

ActiveWorkbook.Close SaveChanges:=False

ActiveWorkbook.Close SaveChanges:=False

。感谢@BigBen的快速响应