vocus目前還不能貼程式碼的樣子,殘念 https://pastebin.com/hAQr5jnC 程式碼在網址哩,在Excel裡Alt+F11開啟巨集後貼上 將"絕對路徑"更改成想要的路徑,例如"C:\split" 回到Excel,把想存的Sheet用Ctrl或Shift同時選取後 Alt+F8,按下執行即可 2021/12/24更新 方格子更新後突然可以貼程式碼了XD,如下: Sub SaveSheetAsCSV()Dim theName As StringOn Error GoTo Line1For Each sht In ActiveWindow.SelectedSheetssht.CopytheName = "絕對路徑" & sht.Name & ".csv"ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlCSVActiveWindow.CloseNextLine1:End Sub