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的得分主题
21
发表于 2007-7-26 14:05 | 只看该作者
试试 yIh5uEMy.rar (9.68 KB, 下载次数: 709)
TA的精华主题TA的得分主题
22
发表于 2007-7-26 14:08 | 只看该作者
QUOTE:
以下是引用cywx在2007-7-24 21:03:44的发言:
能不能再解释一下那段代码中每一个细节?如果我的多个工作簿不是在同一个文件夹内(假设在一个大文件夹中的很多个小文件夹中)代码应该如何改呢?谢谢!
1kFJrtuq.rar (9.68 KB, 下载次数: 654)
TA的精华主题TA的得分主题
23
发表于 2007-7-27 12:13 | 只看该作者
TA的精华主题TA的得分主题
24
发表于 2007-8-9 13:42 | 只看该作者
谢谢!果然很强.几百个文件中如果有些文件的内容连接了另外的文件,就会询问"是否更新"尤其是源不存在了的时候.有没有办法不询问更新?
TA的精华主题TA的得分主题
25
发表于 2007-8-10 09:49 | 只看该作者
TA的精华主题TA的得分主题
26
发表于 2007-8-10 11:42 | 只看该作者
TA的精华主题TA的得分主题
27
发表于 2007-8-14 11:45 | 只看该作者
以上的我都看了,但还是没法解决我的问题。我的情况是这样的,文件夹D:\材料\20070812下面有N个工作薄(N001.xls,N002.xls,......),每个工作薄都有4个sheets,分别为"设置","汇总","区公司材料","地方材料".现在需要把各个工作薄里面的"汇总"里的a5:m往下的内容(行数不定)汇总。问题其实和上面讲的是一样的,就是多了一个:指定工作表另帮我看一下我对代码的理解是否正确:Sub 按钮1_单击()   Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
   Application.ScreenUpdating = False        '冻结屏幕,以防屏幕抖动
   myPath = ThisWorkbook.Path & "\分表\"          '把文件路径定义给变量
  
   myFile = Dir(myPath & "*.xls")            '依次找寻指定路径中的*.xls文件
   Do While myFile <> ""                     '当指定路径中有文件时进行循环
      If myFile <> ThisWorkbook.Name Then
         Set AK = Workbooks.Open(myPath & myFile)          '打开符合要求的文件
          For i = 1 To AK.Sheets.Count             '需要统计的工作薄里有多少个表
         aRow = AK.Sheets(i).Range("a65536").End(xlUp).Row  '需要统计的表里有多少行 
         tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1  '汇总表里最后空行是在哪
            'AK.Sheets(i).Select
         AK.Sheets(i).Range("a3:k" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
         Next
         Workbooks(myFile).Close False               '关闭源工作簿,并不作修改
      End If
      myFile = Dir                                   '找寻下一个*.xls文件
   Loop
     
   Application.ScreenUpdating = True                 '冻结屏幕,此类语句一般成对使用
   MsgBox "汇总完成,请查看!", 64, "提示"

End Sub
qTCztfgA.rar (31.58 KB, 下载次数: 189)
[此贴子已经被作者于2007-8-14 11:46:42编辑过]
TA的精华主题TA的得分主题
28
发表于 2007-8-14 13:49 | 只看该作者
6I77qxyH.rar (35.14 KB, 下载次数: 405)
TA的精华主题TA的得分主题
29
发表于 2007-8-15 10:12 | 只看该作者
我需要的正是如何把那些工作薄的“材料(汇总)”单独提取出来。或是把其它sheet删除
TA的精华主题TA的得分主题
30
发表于 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
您需要登录后才可以回帖 登录 | 免费注册
本版积分规则
关闭

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

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