Где разместить перенаправление оболочки Bash для команды? [дубликат]

Вы можете запустить этот код,

Sub SaveSheets()
    Dim strPath As String
    Dim ws As Worksheet

    Application.ScreenUpdating = False

    strPath = ActiveWorkbook.Path & "\"
    For Each ws In ThisWorkbook.Sheets
        ws.Copy
        'Use this line if you want to break any links:
        BreakLinks Workbooks(Workbooks.Count)
        Workbooks(Workbooks.Count).Close True, strPath & ws.Name & ".xlsx"
    Next

    Application.ScreenUpdating = True
End Sub

Sub BreakLinks(wb As Workbook)
    Dim lnk As Variant
    For Each lnk In wb.LinkSources(xlExcelLinks)
        wb.BreakLink lnk, xlLinkTypeExcelLinks
    Next
End Sub

Чтобы запустить код, сделайте следующее:

1. Откройте редактор VBA ( Alt + F11 )
2. В дереве в верхнем левом углу щелкните правой кнопкой мыши свою книгу и вставьте новый модуль
3. Скопируйте приведенный выше код в этот модуль
4. Закройте редактор VBA
5. В Excel нажмите Alt + F8 , чтобы запустить макросы, и выберите SaveSheets

Для получения дополнительной справки по добавлению VBA .