如何军团改个统一名字改工作薄中的名字

来源：蜘蛛抓取(WebSpider) 时间：2015-11-23 11:33 标签： wps工作表 改名字
查看: 2757|回复: 6
阅读权限1UID625065函数0 关最后登录经验11 点在线时间2 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分11精华0帖子日志注册时间
幼儿园小班, 积分 11, 距离下一级还需 89 积分
金币6 个积分11帖子
我有160个工作薄（比如book1、book2、book3，每个工作薄里面都有2个工作表（“单位人员信息”和“数据说明”2个工作表），我想写段VBA程序执行一次，就把这所有的工作薄中的“数据说明”工作表删除，请问怎么写？
补充：每个工作薄都是用中文命名的
阅读权限255UID284853函数0 关最后登录经验118038 点在线时间3693 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币38766 个积分118043精华2帖子日志注册时间
金币38766 个积分118043帖子
遍历工作簿，打开，删除工作表，保存，关闭。
阅读权限255UID284853函数0 关最后登录经验118038 点在线时间3693 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币38766 个积分118043精华2帖子日志注册时间
金币38766 个积分118043帖子
(10.06 KB, 下载次数: 100)
21:30 上传
点击文件名下载附件
把要指定工作表的工作簿集中到一个文件夹里，把删除指定工作簿也解压到同一个位置，打开，点击按钮即可。
阅读权限1UID625065函数0 关最后登录经验11 点在线时间2 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分11精华0帖子日志注册时间
幼儿园小班, 积分 11, 距离下一级还需 89 积分
金币6 个积分11帖子
你好，运行删除指定工作薄，显示如下信息：
无法运行“删除指定工作薄.xls!main&宏。坑内是因为该宏在在工作薄中不可用，或者所有的宏都被禁用。
阅读权限1UID625065函数0 关最后登录经验11 点在线时间2 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分11精华0帖子日志注册时间
幼儿园小班, 积分 11, 距离下一级还需 89 积分
金币6 个积分11帖子
你好，hwc2ycy。能直接把代码贴出来吗？
阅读权限255UID284853函数0 关最后登录经验118038 点在线时间3693 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币38766 个积分118043精华2帖子日志注册时间
金币38766 个积分118043帖子
Sub main()
& & Application.ScreenUpdating = False
& & Application.DisplayAlerts = False
& & Call ListDirs(ThisWorkbook.Path & Application.PathSeparator, &数据说明&)
& & Application.ScreenUpdating = True
& & Application.DisplayAlerts = True
& & MsgBox &删除完成&
Sub ListDirs(ByVal Path As String, shtname As String)
& & Dim filename$
& & On Error Resume Next
& & If Not Right(Path, 1) Like &[\/]& Then Path = Path & Application.PathSeparator
& & Debug.Print Path
& & filename = Dir(Path & &*.xls*&, vbDirectory + vbNormal)
& & Do While Len(filename)
& && &&&If filename && ThisWorkbook.Name Then
& && && && &Call DeleteWorksheet(Path & filename, shtname)
& && &&&End If
& && &&&filename = Dir
& & Loop
End Sub
Sub DeleteWorksheet(ByVal fullname As String, shtname As String)
& & Dim wb As Workbook
& & On Error Resume Next
& & Set wb = GetObject(fullname)
& & With wb
& && &&&.Worksheets(shtname).Delete
& && &&&.Save True
& && &&&.Close False
& & End With
End Sub
阅读权限1UID625065函数0 关最后登录经验11 点在线时间2 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币6 个积分11精华0帖子日志注册时间
幼儿园小班, 积分 11, 距离下一级还需 89 积分
金币6 个积分11帖子
你好，上述代码，运行后，出现附件中的警告，请问什么原因，如何修改？谢谢!
19:32 上传
最佳答案累计大于500
Powered by访问本页面，您的浏览器需要支持JavaScript在Excel中快速批量插入指定名称的工作表
您现在的位置：&&>>&&>>&&>>&正文
在Excel中快速批量插入指定名称的工作表
作者： 文章来源： 点击数： 更新时间： 12:12:16
&&& 在Excel中插入多张新工作表后，通常要修改这些工作表名称，如果工作表较多，逐一修改显得较为繁琐。实际上，利用数据透视表可以快速在工作簿中插入大量预先设定名称的新工作表，在需要插入的工作表数量较大的情况下，这种方法十分快捷。
&&& 假如要在Excel中插入一些以城市名称命名的新工作表，在Excel 2007和Excel 2003中操作方法如下：
&&& Excel 2007：
&&& 1.准备所需的工作表名称。
&&& 在某个工作表的A列中输入或复制所需插入的工作表名称。其中A1单元格为必需的列标题，本例为“城市”，从A2单元格开始输入或复制要插入的工作表名称。
&&& 2.建立数据透视表。
&&& 选择A列中包含数据的某个单元格，在功能区中选择“插入”选项卡，在“表”组中单击“数据透视表→数据透视表”。弹出“创建数据透视表”对话框，单击“确定”。Excel会在一个新工作表中建立数据透视表。
&&& 3.在工作表右侧的“数据透视表字段列表”中，将“城市”字段拖动到下方的“报表筛选”区域中。
&&& 这时的数据透视表如下图：
&&& 4.保持数据透视表的选择状态，在功能区中“数据透视表工具-选项”选项卡的“数据透视表”组中单击“选项→显示报表筛选页”。
&&& 弹出“显示报表筛选页”对话框，单击“确定”。
&&& 这时Excel会自动在工作簿中插入相应数量新工作表，工作表的名称为步骤1中A列所指定的名称。
&&& 5.删除数据透视表。
&&& 这时每个新工作表中都包含一个数据透视表，需将其全部删除。选择第一张工作表，然后按照Shift键，单击最后一个新插入的工作表，同时选择这些新插入的工作表，使其成为一个工作组。如果最后一个新插入的工作表不可以见，可以单击工作表标签左侧的箭头让其显示出来。
&&& 由于此时数据透视表仅包含在区域A1:B1区域中，选择A1:B1区域，在功能区中选择“开始”选项卡，在“编辑”组中单击“清除→全部清除”删除所有新插入工作表中的数据透视表。
&&& 至此完成批量工作表插入工作。如果以后在这些新工作表中建立的表格内容都相似，可以在其成为工作组时将所要处理的表格复制过来，这会将所复制的表格复制到同组的所有工作表中。需要注意的是，对工作组中的每个工作表进行操作时会影响到同组的其他所有工作表，如果要单独处理某个工作表，务必取消工作组。取消工作组的方法是单击工作簿中的其他不在工作组中的工作表。[1]&&
上一篇文章：
下一篇文章：
&其他网友还在看：
　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
::发表评论::
评论内容：
请遵守及中华人民共和国其他各项有关法律法规。
严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论 。
用户需对自己在使用本站服务过程中的行为承担法律责任（直接或间接导致的）。
评论需要审核通过后才可见，本站管理员有权保留或删除评论内容。
评论内容只代表网友个人观点，与本网站立场无关。
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
Excel技巧天地 E-mail:如何批量替换同一工作簿中工作表名称_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：89,324贴子：
如何批量替换同一工作簿中工作表名称收藏
我想把工作簿中从&2013年1月份&到&2013年12月份&的12个工作表都换成2014年开头的名称，怎么操作呢？我的excel是2003版的
真实的UI设计案例，来自百度最前线的高级设计师！
中午是大神出没的时间，不能错过
Sub re_name_wst()Dim ws_name As String, new_name As StringDim n As Integer, i As Integern = ThisWorkbook.Worksheets.CountFor i = 1 To n
ws_name = Worksheets(i).Name
new_name = Replace(ws_name, "2013", "2014")
Worksheets(i).Name = new_nameNextEnd Sub
Sub test()For Each i In Sheetsi.Name = Replace(i.Name, )NextEnd Sub
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或

我要回帖

更多关于 wps工作表 改名字 的文章

 

随机推荐