Добрый вечер!
нашла макрос, удалила из него ненужное мне, и вроде код простой, но все равно не получилось самостоятельно разобраться с тем, что удалось найти на форуме, не хочет работать.
нужно: скопировать лист в новый файл с нужным именем в нужную папку.
получилось: копирует лист в новый файл без нужного имени и предлагает выбрать, куда сохранить.
подскажите пожалуйста, где ошибка?
Код |
---|
Sub SaveMe() Application.ScreenUpdating = False Dim NewFilePath As String Dim NewFileName As String On Error Resume Next NewFilePath = "Y:\RU\" NewFileName = ActiveWorkbook.Sheets("pivot").Range("M2").Value Sheets("date_1").Select Sheets("date_1").Copy ActiveWorkbook.SaveAs FileName:=NewFilePath & NewFileName & ".xlsx", FileFormat:=51 ActiveWindow.Close Application.ScreenUpdating = True End Sub |