将多个excel或csv文件合成一个文件中的多个sheets

1）新建一个空白的excel文件 2）选中宏，跳出如下窗口，在宏名下随便命名，点击创建… 3）将下列代码粘贴至创建后跳出的两行代码之间，啥都不用改，除了……如果excel格式是xls，把xlsx改成xls即可 Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpen

>>阅读原文<<