怎样把很多EXCEL文件中的数据导入到一个EXCEL文件中?

发布网友发布时间：2022-04-23 06:25

共1个回答

热心网友时间：2023-10-14 07:20

将800多份文件copy到一个文件夹（只有这800多Excel，且若打开某一文件，数据就能看见——即不用点其他sheet），建一新Excel，也存到该文件夹。仅打开该新Excel，按Alt+F11，左边窗口右键点，插入模块，在右边窗口粘贴如下代码：Sub Find()Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")DoIf Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet
Windows(Match).Activate
ActiveWindow.Close
Application.ScreenUpdating = TrueEnd Sub点菜单上面的播放按钮，800多文件copy完成。