selecteditem怎么用（selecteditems）-凯发体育客户端

导读 大家好,小问来为大家解答以上问题。selecteditem怎么用，selecteditems这个很多人还不知道,现在让我们一起来看看吧！1、宏其实很简单的 你

大家好,小问来为大家解答以上问题。selecteditem怎么用，selecteditems这个很多人还不知道,现在让我们一起来看看吧！

1、宏其实很简单的 你按照下面的步骤来试试看吧试试这个代码新建一个excel文件 在sheet1上点右键 点查看代码把下面的代码复制进去（直接ctrl v）alt f8 运行宏-打开全部表格在sheet1上点右键 选定全部工作表执行页面设置（设置成你想要的打印格式）alt f8 运行宏-保存全部表格然后就会在你新建工作簿所在目录生成调整后的单独的文档祝你成功sub 打开全部表格()on error goto eeset actb = activeworkbookdim i as longwith application.filedialog(msofiledialogopen).allowmultiselect = true.title = "请选择您要打开的文件.".buttonname = "确定".initialview = msofiledialogviewthumbnail.showfor i = 1 to .selecteditems.countset aa = workbooks.open(.selecteditems(i))for each sh in aa.sheetsif application.worksheetfunction.counta(sh.cells) > 0 thensh.copy before:=actb.sheets(1)end ifnextaa.closenextend withexit subee:aa.closemsgbox aa.name & "打开失败"end subsub 保存全部表格()application.displayalerts = 0set actb = activeworkbookfor each sh in sheetsset newb = workbooks.addsh.copy before:=newb.sheets(1)newb.sheets(4).deletenewb.sheets(3).deletenewb.sheets(2).deletenewb.saveas filename:=actb.path & " 副本" & sh.name, fileformat:=actb.fileformatnewb.closenextapplication.displayalerts = 1end sub。

以上就是【selecteditem怎么用，selecteditems】相关内容。

标签：

凯发k8国际手机app下载的版权声明：转载此文是出于传递更多信息之目的。若有来源标注错误或侵犯了您的合法权益，请作者持权属证明与本网联系，我们将及时更正、删除，谢谢您的支持与理解。

本文tag：[怎么]