Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 2610|回复: 11
VBA代码一次性完成同一个目录下的很多个EXCEL文件名称管理器的清除
阅读权限10
在线时间 小时
excel2007中定义了大量名称如何批量删除在同一个目录下的很多个EXCEL文件，都要一次性操作完成所有工作薄中的所有表的公式下名称管理器的清除呢？麻烦哪位给我写一段VBA代码好吗？非常感谢！
阅读权限95
在线时间 小时
循环打开需要删除名称的工作簿，逐个工作簿删除名称，基本语句如下：
Dim na As Name
For Each na In ActiveWorkbook.Names
& & na.Delete
阅读权限95
在线时间 小时
本帖最后由 qy1219no2 于
14:49 编辑
zhaogang1960 发表于
循环打开需要删除名称的工作簿，逐个工作簿删除名称，基本语句如下：
Dim na As Name
For Each na In Act ...
………………
好像我说的也是这个意思&
阅读权限95
在线时间 小时
假设要删除名称的工作簿都是xlsx文件，完整代码如下：Sub VBA代码一次性删除同一个目录下的所有xlsx文件所有名称()
& & Dim MyPath$, MyName$, na As Name
& & Application.ScreenUpdating = False
& & MyPath = ThisWorkbook.Path & &&
& & MyName = Dir(MyPath & &*.xlsx&)
& & Do While MyName && &&
& && &&&If MyName && ThisWorkbook.Name Then
& && && && &With Workbooks.Open(MyPath & MyName)
& && && && && & For Each na In .Names '历遍打开的工作簿所有名称
& && && && && && &&&na.Delete '删除名称
& && && && && & Next
& && && && && & .Close True '保存关闭
& && && && &End With
& && &&&End If
& && &&&MyName = Dir
& & Loop
& & Application.ScreenUpdating = True
& & MsgBox &ok&
End Sub复制代码
阅读权限95
在线时间 小时
& & & & & & & &
本帖最后由 qy1219no2 于
15:00 编辑
没有测试，不知道行不行，自己试一下！Sub DelNames()
cPath = ThisWorkbook.Path & &&
myFile = Dir(cPath & &*.xls&)
Application.ScreenUpdating = False
Do While myFile && &&
& & Set wb = GetObject(cPath & myFile)
& & For Each na In wb.Names
& && &&&na.Delete
& & Next
& & wb.Save& & wb.Visible=False
& & wb.Close
& & Set wb = Nothing
& & myFile = Dir
Loop
Application.ScreenUpdating = True
End Sub复制代码
阅读权限95
在线时间 小时
qy1219no2 发表于
没有测试，不知道行不行，自己试一下！
由于删除名称后要保存工作簿，如果使用GetObject函数后台打开工作簿，保存关闭前需要让该工作簿可见，否则保存后工作簿是不可见的
阅读权限95
在线时间 小时
测试后的代码Sub DelNames()
& & cPath = ThisWorkbook.Path & &&
& & myFile = Dir(cPath & &*.xls&)
& & Application.ScreenUpdating = False
& & Do While myFile && &&
& && &&&If myFile && ThisWorkbook.Name Then
& && && && &Set wb = GetObject(cPath & myFile)
& && && && &For Each na In wb.Names
& && && && && & na.Delete
& && && && &Next
& && && && &wb.Save
& && && && &wb.Windows(1).Visible = True
& && && && &wb.Close
& && && && &Set wb = Nothing
& && &&&Else
& && && && &For Each na In ThisWorkbook.Names
& && && && && & na.Delete
& && && && &Next
& && &&&End If
& && &&&myFile = Dir
& & Loop
& & Application.ScreenUpdating = True
End Sub复制代码
阅读权限10
在线时间 小时
zhaogang1960 发表于
假设要删除名称的工作簿都是xlsx文件，完整代码如下：
感谢这位版主哈！不过还想请教一下您我需要在这个文件夹再重新创建一个excel文件，然后再粘贴以下代码呢?
阅读权限95
在线时间 小时
& & & & & & & &
Yoon@ 发表于
感谢这位版主哈！不过还想请教一下您我需要在这个文件夹再重新创建一个excel文件，然后再粘贴以下代码呢?
由于你使用的是Excel2007，需要在这个文件夹再重新创建一个启用宏的工作簿(后缀xlsm)，请参考下面附件：
(14.96 KB, 下载次数: 71)
15:28 上传
点击文件名下载附件
阅读权限10
在线时间 小时
已成功解决问题，谢谢各位高手的指教哈！O(∩_∩)O哈哈~
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师2013年 总版技术专家分年内排行榜第三
2012年 总版技术专家分年内排行榜第七
2013年 总版技术专家分年内排行榜第三
2012年 总版技术专家分年内排行榜第七
本帖子已过去太久远了，不再提供回复功能。查看: 4686|回复: 35
请问合并在不同分文件夹的同名同格式文件的程序怎么编写呢？
阅读权限20
在线时间 小时
有大量的同名文件在不同文件夹中，这一把名字相同的都分别合并在一个文件
花费时间就是半天
机械、重复，枯燥，脑子疼
不知道如何编写程序。
请求赐教！
阅读权限100
在线时间 小时
不同文件夹中,
最好付上文件夹的路径
阅读权限100
在线时间 小时
& & & & & & & &
上传档案 和例子
阅读权限20
在线时间 小时
& & & & & & & &
KCFONG 发表于
不同文件夹中,
最好付上文件夹的路径
每个子文件夹中包含20~70个excel。（每次合并的时候，数目都是一样的）
E盘根目录下“大的文件夹”里面有子文件夹A B C D E（代表5个地区或者来源）
A~E内的包含的文件名分别都是相同的，文件顺序、数据结构也都一样。比如A里面包含excel文件名：各大品牌，B~E也都包含这些品牌
如何将他们合并在一起汇总到一个文件夹内呢？
现在还在建一个EXCEL，在分别把5个来源的数据制粘贴进去。在建立下一个EXCEL
这种活。个几天就是干一次。一回就是小半天~
阅读权限100
在线时间 小时
上传少量档案 和例子
阅读权限100
在线时间 小时
相同的文件
合并还是汇总 到一个新的文件中
再把这些新的文件&&放在新的文件夹中
阅读权限20
在线时间 小时
KCFONG 发表于
相同的文件
合并还是汇总 到一个新的文件中
再把这些新的文件&&放在新的文件夹中
(32.63 KB, 下载次数: 44)
19:50 上传
点击文件名下载附件
(232.1 KB, 下载次数: 104)
19:50 上传
点击文件名下载附件
上面是两种情况：
第一个是，在同一个文件夹下把这些EXCEL汇总到一张新的表内。
第二个是，不同文件夹中分别有同样名称的EXCEL，需要把从这些不同文件夹把同名EXCEL分别汇总到一个新表。
附件我已经把数据结构包含了。实践当中，EXCEL文件不止这些。
抱歉晚上回来才传附件。因为这两天就弄这种汇总，复制粘贴……
希望您能指点我具体应用到实际当中。非常非常感谢！
阅读权限100
在线时间 小时
最重要的是汇总 还是合并
合并 就简单
但汇总 就要给我例子
阅读权限20
在线时间 小时
本帖最后由 sunnystar 于
22:21 编辑
KCFONG 发表于
最重要的是汇总 还是合并
合并 就简单
但汇总 就要给我例子
抱歉啊，刚刚我理解水平有限。
之前的操作就是将多个表的内容数据复制，再依次粘贴到新表里面。
第一种，就是把7个日期的数据全粘贴到一个表
第二种，是从5个文件夹的找到相同名称的数据，依次复制粘贴到新建的这个名称的表里面，放在新的总的文件夹下。
所以，应当就是把这些数据合并到一张表。
希望您能写一个宏代码。或者可以更改具体文件名的代码。因为实际操作，文件对象和数量会改变。
阅读权限100
在线时间 小时
汇总 就要知道 根据什麽 项目
不同的&&项目 就很大的分别
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1150|回复: 5
请帮助编写VBA，实现按A列关健字合并多同一文件夹下多工作表
初级一, 积分 17, 距离下一级还需 33 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 asame 于
15:13 编辑
芐雨老师，再次求助：一文件夹下多个工作簿，每个工作薄的sheet1都有关键字列“股票代码”、“股票名称”，但每张表的其它列的的名称是不一样的，现在我需要将这些表合并到一张工作表中，目的是在合并在一张表中后，通过各个“名称”的筛选，按我的想法找出股票。
附件是我的的需求显示，虽然附件只是合并两个工作簿，但我希望VBA程序能合并多工作簿，意思是这个VBA有开放性，在我以后有其它想法时，可以合并多工作薄进行分析。另外，各表“股票代码”、“股票名称”的顺序不一样，甚至数量也有差别（因为新股和退市）。
13:19 上传
点击文件名下载附件
555.76 KB, 下载次数: 4
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
利用Power Query自定义“过程”动态更新多工作表及数据透视表
(出处: Excel 技巧网)
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 17, 距离下一级还需 33 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
谢谢2楼，学习中
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 17, 距离下一级还需 33 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
二楼推荐的是新东西，应该是好方法。可是安装power query，需要IE升级到IE9RTM以上，无奈公司的一些系统不能使用高版本的IE，我只好回家再试试了。
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 17, 距离下一级还需 33 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
学习了，功能果然强大。不过，遇到一个问题：我合并两张工作表后成一张工作表后，打算”筛选“，不知道为什么，不能进行”&&或”&”的筛选，有人知道为什么吗？
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 17, 距离下一级还需 33 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
解决了，用“分列”将数值转为常规型.
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by}