在键盘按下ALT+F11，左侧【工程】窗口，右击插入【模块】
　　在右侧窗口复制如下代码：Sub 工作表另存为工作簿()     Dim sh As Worksheet, path$     path = ActiveWorkbook.path & ＂＂ ＂设置工作簿保存路径     Application.ScreenUpdating = False ＂关闭屏幕更新     For Each sh In ActiveWorkbook.Worksheets: ＂遍历当前宏所在的工作簿中的工作表         sh.Copy ＂复制工作表         ActiveWorkbook.SaveAs Filename:=path & sh.Name & ＂.xlsx＂ ＂保存活动工作簿         ActiveWorkbook.Close ＂关闭活动工作簿     Next     Application.ScreenUpdating = True ＂开启屏幕更新     MsgBox ＂工作表另存为工作簿已完成＂ End Sub
　　注意，上述代码使用了 ActiveWorkbook 对象，表示当前活动的工作簿。代码执行的时候要将需要执行的工作簿至于活动状态。

高质量共建一带一路陈文玲（中国国际经济交流中心总经济师）伊沃娜拉杰瓦茨（塞尔维亚国际政治经济研究所副所长一带一路地区研究中心主任）罗建波（中央党校（国家行政学院）国际战略研究院教授）扎法尔马赫默德（外媒称苹果愈加依赖中国，那还要重视减轻苹果依赖症么？iPhone14发布在即，网上关于苹果的热搜挺不少的，其中一个就是苹果更加依赖中国。这消息来源自美媒，主要报道了iPhone14对中国的依赖性，并说明苹果难以摆脱中国的束缚。外媒为当美女很主动时，你会这么办如果妹子很主动，那该有多爽。初次见面就做了情侣的事，而妹子竟说不用他负责任，并表示希望以后不再相见，但下身却觉得自己背叛了暗恋许久的老师，自己宝贵的东西不是应该给他吗？没想到回到家消息称用户仍可购买iPhone12mini翻新机IT之家9月7日消息，9月8日凌晨1点，苹果将举行超前瞻（FarOut）发布会，预计将发布iPhone14Pro等新品，其中包括iPhone14iPhone14PlusiPhone21年江苏男子夜钓，湖边荒树林突然传出怪声，报警调查发现不简单2021年6月19日凌晨，江苏无锡的王先生突然起了兴致，约朋友来到太湖夜钓。他们展开小凳子放在湖边，打开箱子拿出鱼饵挂在鱼钩上。王先生把鱼钩甩出去时，和朋友打趣道，今晚钓条大的，中液晶仪表大尺寸中控屏，多款动力新款保时捷Cayenne变化多多！日前，车图腾通过相关外媒获得了一组新款保时捷Cayenne的最新谍照。据悉，新车将在外观和内饰方面进一步优化升级，并且有望引入48伏轻混系统，该车最快将于年内亮相。新车基本延续了现86年刘伯承逝世，邓小平查看治丧委员会名单大怒怎么没有肖永银1986年，94岁的刘伯承因病去世，得知消息的邓小平赶往刘伯承家中。而在此前，他曾多次到刘伯承家中看望这位躺在病榻上的老友。经过商讨，中央决定在京西万寿路人民解放军总后勤部礼堂前厅立讯精密分析报告中国智能汽车Tier1领导厂商的崛起（报告出品方作者光大证券，刘凯，蔡微未）1行业趋势电动化智能化趋势正盛，整车代工将成风潮1。1电动化智能化趋势打开汽车电子市场成长空间新能源车渗透率快速提升，智能化趋势方兴未艾。根OPPO海外副总裁考虑明年部分手机取消附赠充电头IT之家9月1日消息，越来越多的智能手机制造商停止在新手机中配备充电头，而OPPO可能是下一个。据AndroidPolice报道，在欧洲OPPOReno8系列发布会上，OPPO海外蔚来汽车Q2净亏27。58亿元蔚来汽车9月7日公告，公司Q2营收102。9亿元，去年同期84。48亿元，同比增长21。8。第二季度车辆交付量达2。51万辆，包括3681辆ES89914辆ES64715辆EC6及去年北京市文化产品出口19亿美元，同比增长超过150在过去的一年中，京产电影走出去取得显著效果，首都动漫产业对外贸易成绩突出，云模式的广泛应用为文化产业发展找到新机遇。最新发布的首都文化贸易蓝皮书首都文化贸易发展报告（2022），全