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

soton · 发表于 2011-1-22 18:34

excel菜鸟弱问一个：EQ800的回复怎么看？我点了汇总那个按钮，但是啥也没有哇？

qinhuan66 · 发表于 2011-4-28 19:04

Sub 按钮1_单击()

Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%
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)       '打开符合要求的文件
      aRow = AK.Sheets(1).Range("a65536").End(xlUp).Row
      tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1
      AK.Sheets(1).Range("a7:z21" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
      Workbooks(myFile).Close False             '关闭源工作簿,并不作修改
   End If
   myFile = Dir                                  '找寻下一个*.xls文件
Loop

Application.ScreenUpdating = True                '冻结屏幕,此类语句一般成对使用
MsgBox "汇总完成，请查看！", 64, "提示"

End Sub

fas1314 · 发表于 2011-7-7 01:40

五体投地了

金云来 · 发表于 2011-7-16 16:29

不错的东西，我也正需要

呼思彤 · 发表于 2011-7-25 15:15

真是好东东，收藏了！

dgfkequkqxkj · 发表于 2011-9-24 10:06

本帖最后由 dgfkequkqxkj 于 2011-9-25 14:15 编辑

我正在找,多谢eq800楼主{:soso_e181:}{:soso_e128:}eq800：加我朋友，有事请教啊：dgfke@21cn.com

朝明 · 发表于 2011-9-27 20:14

eq800 发表于 2007-6-26 17:53

谢了，还不是很明白，但效果不错收藏了

tjh680715 · 发表于 2011-9-27 23:29

大家都说好，我就是看不懂呢，点击按钮就空白了

a18b88 · 发表于 2011-9-28 08:47

eq800的帖子太强大了，收藏了，谢谢

小辨子 · 发表于 2011-10-1 17:42

eq800 发表于 2007-6-26 17:53

这个不错，但还是列数太少的问题。

		自动登录	找回密码
密码			免费注册

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

这条公式如何取A7到Z21的值

好东西

太厉害了