欢迎来到天天文库
浏览记录
ID:50841826
大小:32.45 KB
页数:1页
时间:2020-03-15
《查看excel中的多余对象及删除.doc》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、Subcountshapes()DimnAsDoubleDimwsAsWorksheetDimcontentAsStringForEachwsInWorksheetsn=ws.Shapes.Countcontent=content&"工作表"&ws.Name&"有"&n&"个对象"&vbCrLfNextMsgBoxcontentEndSub
此文档下载收益归作者所有