將多個excel或csv文件合成一個文件中的多個sheets

1）新建一個空白的excel文件 2）選中宏，跳出如下窗口，在宏名下隨便命名，點擊創建… 3）將下列代碼粘貼至創建後跳出的兩行代碼之間，啥都不用改，除了……如果excel格式是xls，把xlsx改成xls即可 Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpen

>>阅读原文<<