excel读取指定文件夹下的全部xls文件数据

Posted 2023-04-28

一个文件夹内有众多excel文件，每个文件的sheet1格式一致。
我想建立一个汇总的excel文件，让它能读取那个文件夹内的所有excel表格，省的我一个一个文件打开、复制、粘贴。
以上有可用的办法吗？
不是只打开文件，还要自动读取里面的数据，汇总到新的excel文件之中。

测试通过的。试试
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("a3:k" & 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 参考技术A 用VBA很简单，例如：
sub 汇总()
dim PH$, FN$
ph = thisworkbook.path &"\" '也可以是你指定的路径
fn = dir(ph & "*.xls")
do until fn = ""
if fn <> thisworkbook.name then
workbooks.open filename = ph & fn
'这里处理你的数据
activewindow.close
end if
fn = dir
loop
end sub
上http://Club.ExcelHome.net/,一切都变得很简单 参考技术B 对，用超级链接，可以实现你的要求。我就现在就用的超级链接做的合同管理的表格。
在你需要打开的单元格上点右键超级链接——本文档中的位置（这里可以是任何位置）可以是文件，可以是地址，可以是硬盘上的一个位置。
链接做好后，只要一点就可以把你需要的文件打开了。

你给我原文件，我给你做连接。把数据都给你连接上。打开指定的文件数据。

我的QQ：184134120 参考技术C 用超级链接！
右键超级链接——本文档中的位置——指定跳转的单元格——指定跳转的sheet
你试试，挺好玩的！

按键精灵如何把复制的数据写入到excel指定单元格中

按键精灵如何把复制的数据写入到excel指定单元格中

参考技术A 读取excel文件要先用plugin
office.openxls()打开excel文件，读完后还要用plugin
office.closexls()关闭。比如下面是读取
d:\测试.xls
这个文件的
sheet1
工作表的第3行b列中的数据（b3）保存到变量p中并弹出对话框显示p的值的写法：
plugin
office.openxls("d:\测试.xls")plugin
p=office.readxls(1,3,2)plugin
office.closexls()messagebox
p
参数是支持变量的
但for语句不可像vb
、vbs那样用,按键的for作用只是循环几次for
4
表示循环4次。你可用a=a+1
这样的写法来达到vb中for的作用比如下面的是读取b列的1到3行的数值并弹出显示
plugin
office.openxls("d:\测试.xls")for
3
i=i+1
plugin
p=office.readxls(1,i,2)
messagebox
pendfor
plugin
office.closexls()
其它的相信你也知道怎么改了