[Excel] 將所有工作表個別存成CSV

vocus目前還不能貼程式碼的樣子，殘念

https://pastebin.com/hAQr5jnC

將"絕對路徑"更改成想要的路徑，例如"C:\split"

回到Excel，把想存的Sheet用Ctrl或Shift同時選取後

Alt+F8，按下執行即可

2021/12/24更新

方格子更新後突然可以貼程式碼了XD，如下：

Sub SaveSheetAsCSV()
Dim theName As String
On Error GoTo Line1
For Each sht In ActiveWindow.SelectedSheets
sht.Copy
theName = "絕對路徑" & sht.Name & ".csv"
ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlCSV
ActiveWindow.Close
Next
Line1:
End Sub