Сохранение с разными именами по условию из 4 IF

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Сохранение с разными именами по условию из 4 IF (Макросы/Sub)

emkub

Дата: Пятница, 17.06.2016, 12:08 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 171

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте!
Люди добрые, подскажите, что я не учёл в этом макросе:
[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".

Ответить

Roman777

Дата: Пятница, 17.06.2016, 12:40 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

emkub, у Вас одновременно число не может быть больше 21 и меньше 3... поэтому рекомендую вместо And использовать Or...

Много чего не знаю!!!!

Ответить

sboy

Дата: Пятница, 17.06.2016, 12:44 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

emkub, Видимо в настройках надо копать. У меня ваш макрос сохраняет файлы с именем "Лист1_1.xlsx" и т.д.

Яндекс: 410016850021169

Ответить

_Boroda_

Дата: Пятница, 17.06.2016, 13:01 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16907

Репутация: 6615 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Если уж очень хочется именно такую конструкцию, то можно вот так, например:
[vba]

Код

        n_ = "_4"
        If Hour(Now) > 3 And Hour(Now) < 11 Then n_ = "_1"
        If Hour(Now) > 11 And Hour(Now) < 15 Then n_ = "_2"
        If Hour(Now) > 15 And Hour(Now) < 21 Then n_ = "_3"
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & n_ & ".xlsx"

[/vba]
А еще можно здесь еще посмотреть Оператор ветвления "Select Case"

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

emkub

Дата: Пятница, 17.06.2016, 15:44 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 171

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата Roman777, 17.06.2016 в 12:40, в сообщении № 2

одновременно число не может быть больше 21 и меньше 3

во я дурко :)
Подправлю - отпишусь.

Ответить

RAN

Дата: Пятница, 17.06.2016, 16:21 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Дались вам эти And Or.
[vba]

Код

Sub qqqq()
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets                    '???????? ?? ???? ?????? ???????? ?????
        s.Copy                    '????????? ???? ??? ????? ????
        If Hour(Now) < 3 Then
            ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & "_4" & ".xlsx"
        ElseIf Hour(Now) < 11 Then
            ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & "_1" & ".xlsx"    '????????? ????
        ElseIf Hour(Now) < 15 Then
            ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & "_2" & ".xlsx"
        ElseIf Hour(Now) < 21 Then
            ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & "_3" & ".xlsx"
        End If
    Next
End Sub

[/vba]