admin 管理员组

文章数量: 1184232

扩展名也可以是其它的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

本文标签： 获取文件 编程 一键解决

版权声明：本文标题：一键解决Excel的烦恼！通过VBA代码自动识别及管理xls格式的工作簿 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1772426068a3555798.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。