如何用VBA语言将一个文件夹中多个excel表，导入到一个新的excel表的不同sheet里？

求高手赐教,不要复制粘贴那种方式

给你一个打开后复制数据的这种代码

Sub zldccmx()
Application.EnableEvents = False
Application.ScreenUpdating = False
Set xap = GetObject("N:\Fab\Marking\Cutting\Data.xls") '我要得到的文件的的路径是：N:\Fab\Marking\Cutting\Data.xls
arr = xap.Sheets("Sheet2").[B2:Q1000] '选择的区域是: Sheet2 , B2: Q1000
xap.Close False
ThisWorkbook.Sheets("sheet1").[C2:R1000] = arr
'我当前的文件路径是：N:\Fab\Marking\Report\Aug Report\Monthly Report.xls
'需要覆盖的区域是: Sheet1 , C2: R1000
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

你可能需要改变的是说复制的区域和粘贴的地方而已

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pffv87vv4vp8mqv2vp4.html