Я пытаюсь создать макрос, который разбивает данную книгу на несколько файлов, которые сохраняются в одной папке с заголовками = текущими именами листов.В настоящее время он работает, но сохраненные заголовки отображаются как «Book67», «Book68», «Book69» и т. Д., А не как заголовок листа.
Уже опробованы различные типы заголовков объектов для имени рабочего листа (четвертая строка снизу) но безрезультатно.Я все еще думаю, что проблема в этом.
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 & "/" & "Worksheet.Name" & ".xlsx"
ActiveWorkbook.Close savechanges:=False
Next sht
End Sub
Нет сообщений об ошибках.Ожидаемые результаты, перечисленные выше