Question

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

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

Answer 1

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

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

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

Answer 2

这可不好办。

首先，纠正不一说法，应该“是一个文件夹中多个excel工作薄”，而不是“一个文件夹中多个excel表”，不知道对不对？

其实，文件夹的每个工作薄又有多少个工作表，其中又有多少个工作表有数据，又有哪些工作表需要转，这个问题是关键，交待不详，不太好写程序哦。