生活智慧王…

時常匯資料，每次各學校給的資料都不一樣…問題百出，這次的課題是他把要分開存的 excel 全部都存到同一個 xls 且分好幾個 sheet 要怎麼辦勒～

用下面這個 vba 來執行，就會依照不同的名稱存檔與來源相同的資料夾內囉。

excel 2007 開啟 vba 在選單 excel 選項的地方 開啟 開發人員頁籤～就能跑了…

Sub Macro1()
Dim sh As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In Sheets
sh.Copy
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "" & sh.Name & ".xlsx"
.Close
End With
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "完成"
End Sub