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

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