Используйте макрос VBA, чтобы сохранить каждую рабочую таблицу Excel как отдельную рабочую книгу с вводной вкладкой - PullRequest
Новая
       17

Используйте макрос VBA, чтобы сохранить каждую рабочую таблицу Excel как отдельную рабочую книгу с вводной вкладкой

0 голосов
/ 07 декабря 2018

У меня есть таблица с множеством вкладок.Я хочу скопировать каждую вкладку в отдельный файл, что я могу сделать с помощью приведенного ниже кода.

Моя проблема заключается в добавлении листа инструкций, а также в каждую из новых рабочих книг.У меня есть лист инструкции в оригинальной рабочей тетради.

Ваша помощь будет оценена. 

Sub Splitbook()
MyPath = ThisWorkbook.Path
For Each sht In ThisWorkbook.Sheets
sht.Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats
ActiveWorkbook.SaveAs _
Filename:=MyPath & "\" & sht.Name & " SP Signoff.xlsx"
ActiveWorkbook.Close savechanges:=False
Next sht
End Sub

1 Ответ

0 голосов
/ 07 декабря 2018 
Sub Splitbook()

    Dim wkb As Workbook
    Dim wks As Worksheet, sht As Worksheet
    Dim strPath As String

    Set wkb = ThisWorkbook
    Set wks = Sheets("Instructions")

    strPath = wkb.Path

    For Each sht In wkb.Sheets
        If sht.Name <> "Instructions" Then
            sht.Copy

            With ActiveSheet
                .Cells.Copy
                .Cells.PasteSpecial Paste:=xlPasteValues
                .Cells.PasteSpecial Paste:=xlPasteFormats
            End With

            wks.Copy Before:=ActiveWorkbook.Sheets(1)

            ActiveWorkbook.SaveAs _
            Filename:=MyPath & "\" & sht.Name & " SP Signoff.xlsx"
            ActiveWorkbook.Close savechanges:=False
        End If

    Next

End Sub
...