excel - 保存后关闭工作簿

Question

我从另一个工作簿运行宏，当我生成每日报告时，我已经保存它们但我想在保存它们后关闭它们，我尝试使用 ThisWorkbook.Close 和 ThisActiveWorkbook.Close 它只是停止宏的循环并且它没有t 关闭工作簿。

这是我的代码：

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

标签： excelvba

Answer 1

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

ThisActiveWorkbook什么都不是。

采用：

ActiveWorkbook.Close SaveChanges:=False