ExcelHome技术论坛

 找回密码
 免费注册
QQ登录 只需一步,快速开始
   
高效办公必会的Office99uu优优 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微99uu优优 免费下载Excel行业应用视频
300集Office 2010微99uu优优 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 201099uu优优学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
楼主: jiahaocn
打印 上一主题 下一主题

[求助] [求助]有许多excel工作薄,大概500个,格式都一样

  [复制链接]
TA的精华主题TA的得分主题
31
发表于 2007-8-14 13:49 | 只看该作者
6I77qxyH.rar (35.14 KB, 下载次数: 405)
TA的精华主题TA的得分主题
32
发表于 2007-8-15 10:12 | 只看该作者
我需要的正是如何把那些工作薄的“材料(汇总)”单独提取出来。或是把其它sheet删除
TA的精华主题TA的得分主题
33
发表于 2007-8-15 10:44 | 只看该作者
删除其它工作表已解决,昨天在引用别人的代码时,搞错了。Sub 按钮1_单击()
Dim app As Excel.Application
Dim xlapp As Variant
Dim xlworkbooks As Workbooks
Dim MyFile, MyPath, MyName
MyPath = "d:\20070812"
MyName = Dir(MyPath & "\" & "*.xls")
Do While MyName <> ""    ' 开始循环。
    Set xlapp = Workbooks.Open(MyPath & "\" & MyName)
    Set w_sheets = xlapp.Worksheets
    xlapp.Application.DisplayAlerts = false  '不显示警告
    'xlapp.Worksheets(2).Delete  我这里弄错了。应该用下面一行的。
    xlapp.Sheets(2).Delete
    Workbooks(MyName).Save
    xlapp.Application.DisplayAlerts = True
    xlapp.Application.Visible = True
    Workbooks(MyName).Close
    MyName = Dir    ' 查找下一个目录。
Loop
End Sub
TA的精华主题TA的得分主题
34
发表于 2007-9-7 18:11 | 只看该作者

eq800您好,看到您解决问题太专业了.请帮帮忙啊

eq800您好,我接触EXCEL时间不长,看到您解决问题太专业了.这个汇总的问题,一直都是手动在做,非常的费劲,希望给小弟帮帮忙,万分感激.
突然想起来,里面的人员表格,每一个还有密码问题,如果解决啊。
pRjnS6uK.rar (91.53 KB, 下载次数: 61)
TA的精华主题TA的得分主题
35
发表于 2007-9-7 18:14 | 只看该作者

eq800您好,看到您解决问题太专业了.帮帮小弟啊!

eq800您好,我接触EXCEL时间不长,看到您解决问题太专业了.这个汇总的问题,一直都是手动在做,非常的费劲,希望给小弟帮帮忙,万分感激.突然想起来,里面的人员表格,每一个还有密码问题,如何解决啊。 要把客户信息表里所有的信息汇总到总表内, cUhiiIOc.rar (91.53 KB, 下载次数: 57)
[此贴子已经被作者于2007-9-7 18:18:47编辑过]
TA的精华主题TA的得分主题
36
发表于 2007-9-8 00:40 | 只看该作者
QUOTE:
以下是引用xf0012在2007-9-7 18:14:21的发言:
eq800您好,我接触EXCEL时间不长,看到您解决问题太专业了.这个汇总的问题,一直都是手动在做,非常的费劲,希望给小弟帮帮忙,万分感激.突然想起来,里面的人员表格,每一个还有密码问题,如何解决啊。 要把客户信息表里所有的信息汇总到总表内,

怎么分表里的每张表都一样的?
TA的精华主题TA的得分主题
37
发表于 2007-9-8 08:57 | 只看该作者

就是打开总表,就可以看到客户信息表内所有的客户信息汇总。谢谢

对不起忘记删掉密码了,真是对不起啊..已改好,谢谢,帮忙啊... yrDRj7Fv.rar (90.28 KB, 下载次数: 86)
[此贴子已经被作者于2007-9-8 8:58:06编辑过]
TA的精华主题TA的得分主题
38
发表于 2007-9-12 21:13 | 只看该作者
QUOTE:
以下是引用xf0012在2007-9-8 8:57:43的发言:
对不起忘记删掉密码了,真是对不起啊..已改好,谢谢,帮忙啊... ewqvmSKO.rar (15.09 KB, 下载次数: 73) 请高手提意见.
TA的精华主题TA的得分主题
39
发表于 2008-1-8 21:08 | 只看该作者
谢谢诸位高手指教,尤其是谢谢eq800,可能我没有表达清楚,我的意思是这样:有21个相同格式的工作簿,每一个工作簿下有20张的工作表(这20张工作表的格式不一样),如何将这21个工作簿汇总到一个工作簿下对应的20张工作表中,再次请教了,先谢了!!!
TA的精华主题TA的得分主题
40
发表于 2008-1-8 21:14 | 只看该作者
用了一下,很好用,能不能加一个临时文件,里面保存已经汇总的文件,这样,再次汇总的时候,只汇总新拷贝进来的文件?
您需要登录后才可以回帖 登录 | 免费注册
本版积分规则
关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程
手机版|关于我们|联系我们|ExcelHome    GMT+8, 2018-1-22 10:09 , Processed in 0.076063 second(s), 10 queries , Gzip On, MemCache On.
Powered by Discuz! X3.3 © 2001-2017 Wooffice Inc.
    沪公网安备 31011702000001号 沪ICP备11019229号 本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师
快速回复 返回顶部 返回列表
99uu优优