Excel宏關閉所有打開的工作簿

Question

我有一個像這樣的宏代碼

 Do Until MyFileName = ""
    Workbooks.Open Filename:=MyPath & MyFileName
    ActiveWorkbook.SaveAs Filename:=Left(MyFileName, InStr(1, MyFileName, ".xls") - 1), FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbooks.CloseSaveChanges:=TRUE
    MyFileName = Dir
Loop

它的工作正常，但在轉換為csv時文件正在打開。 我想關閉文件並保存更改是正確的。 請幫我。

Answer 1

將新名稱保存在變量中，然后使用Workbook("name").close(true)

Dim wbName As String

Do Until MyFileName = ""
    Workbooks.Open Filename:=MyPath & MyFileName
    wbName = Left(MyFileName, InStr(1, MyFileName, ".xls") - 1)

    ActiveWorkbook.SaveAs Filename:=wbName, FileFormat:=xlCSV, CreateBackup:=False
    Workbooks(wbName).Close (True)
    ActiveWorkbooks.Close SaveChanges:=True
    MyFileName = Dir
Loop
End Sub