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