Здравствуйте!
Люди добрые, подскажите, что я не учёл в этом макросе:
[vba]Код
Sub ййййййййййй()
'сохранение как xlsx
Set wb = ActiveWorkbook
For Each s In wb.Worksheets 'проходим во всем листам активной книги
s.Copy 'сохраняем лист как новый файл
If Hour(Now) > 3 And Hour(Now) < 11 Then ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & "_1" & ".xlsx" 'сохраняем файл
If Hour(Now) > 11 And Hour(Now) < 15 Then ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & "_2" & ".xlsx"
If Hour(Now) > 15 And Hour(Now) < 21 Then ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & "_3" & ".xlsx"
If Hour(Now) > 21 And Hour(Now) < 3 Then ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & "_4" & ".xlsx"
Next
End Sub
[/vba]
Всё отрабатывает хорошо, кроме последнего условия. Никак не хочет сохранять с заданным именем, останавливается на названии "Книга1".