VBA- 遍历当前打开的excel文件，如果扩展名是xls，就保存修改并关闭

扩展名也可以是其它的xlsx之类的，自己修改扩展名就行了

Sub SaveAllAndCloseXls()
    Dim FileName As String
    Dim extensionName As String
    For Each wbk In Workbooks
        FileName = wbk.Name	'获取文件的名字，带扩展名的那种，长这样：report.xls
        extensionName = FileExt(FileName)	'调用FileExt方法，获取文件扩展名，FileName 就是文件的名字啦
        If extensionName = "xls" Then
            wbk.Close Savechanges:=True		'保存修改并关闭该工作簿
        End If
    Next
End Sub

Rem 判断已打开的工作簿文件后缀名
Function FileExt(FileName As String) As String
    On Error Resume Next
    If InStrRev(FileName, ".") > 0 Then
        FileExt = Right(FileName, Len(FileName) - InStrRev(FileName, "."))
    End If
    If Err <> 0 Then
        MsgBox Err.Description, vbCritical, "Kutools for Excel"
    End If
End Function