告别混乱！使用VBA自动整理打开的工作簿（.xls版）

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

SubSaveAllAndCloseXls()DimFileNameAsStringDim extensionName AsStringForEach wbk InWorkbooks
        FileName = wbk.Name	'获取文件的名字，带扩展名的那种，长这样：report.xls
        extensionName =FileExt(FileName)	'调用FileExt方法，获取文件扩展名，FileName 就是文件的名字啦
        If extensionName ="xls"Then
            wbk.Close Savechanges:=True		'保存修改并关闭该工作簿
        EndIfNextEndSub
Rem 判断已打开的工作簿文件后缀名
FunctionFileExt(FileNameAs String)AsStringOnErrorResumeNextIfInStrRev(FileName,".")>0Then
        FileExt =Right(FileName,Len(FileName)-InStrRev(FileName,"."))EndIfIf Err <>0ThenMsgBox Err.Description, vbCritical,"Kutools for Excel"EndIfEnd Function