admin管理员组

文章数量:1516870

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

本文标签： 掌握编程获取文件

版权声明：本文标题：掌握VBA代码，自动化Excel文件处理——聚焦xls扩展名的工作簿 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.betaflare.com/biancheng/1772426036a3274258.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。