Сохранение книги, выполняемое внутри макроса.

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

Сохранение книги, выполняемое внутри макроса. (Макросы/Sub)

Tina90

Дата: Пятница, 01.04.2016, 21:46 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: -16 ±

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

Excel 2013

Привет!! У меня вопрос (точнее, даже два вопроса по одному направлению!) : первое, почему вдруг отладчик стал ругаться на ThisWorksheet.Save (хотя раньше этого никогда не было, сохранение проводилось по окончании каждого цикла, то есть всего было 100 сохранений книги?). Второй вопрос это как прописать внутри макроса команду на сохранение текущей книги после определенного количества выполненных циклов?
Macros()
[vba]

Код

For i = 1 To 100
bla bla bla
ThisWorkbook.Save '<- на эту строку начал вдруг ругаться отладчик! пришлось ее удалить %(
Next i

[/vba]
Как написать, чтобы проводилось сохранение книги каждые 20 циклов из 100 (чтобы было не 100 а 5 сохранений) ??
[moder]Оформляйте коды тегами (кнопка #)[/moder]

Сообщение отредактировал Pelena - Пятница, 01.04.2016, 21:58

Ответить

Karataev

Дата: Пятница, 01.04.2016, 22:04 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1336

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

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

Excel

Как ругается отладчик?

Цитата Tina90, 01.04.2016 в 21:46, в сообщении № 1

Как написать, чтобы проводилось сохранение книги каждые 20 циклов из 100 (чтобы было не 100 а 5 сохранений) ??

[vba]

Код

    For i = 1 To 100
        bla bla bla
        If i Mod 20 = 0 Then
            ThisWorkbook.Save
        End If
    Next i

[/vba]

Сообщение отредактировал Karataev - Пятница, 01.04.2016, 22:05

Ответить

Tina90

Дата: Пятница, 01.04.2016, 22:25 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: -16 ±

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

Excel 2013

Цитата Karataev, 01.04.2016 в 22:04, в сообщении № 2

Как ругается отладчик?

Спасибо!!! Я уже не помню, как он ругается, да стандартно ругается! Посылает по адресу какой-то ошибки и выделяет желтым фоном строку ThisWorkbook.Save в макросе!

Ответить

Karataev

Дата: Пятница, 01.04.2016, 22:47 | Сообщение № 4

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

Ранг: Старожил

Сообщений: 1336

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

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

Excel

Tina90, нужно посмотреть сообщение ошибки, иначе я даже не знаю, что думать. Пока есть у меня одна идея - какой-то баг в Excel, не позволяющий несколько раз подряд (с коротким интервалом) сохранять. Может быть DoEvents вставлять после сохранения.
А почему Вы не сохраните один раз после всего цикла? Зачем нужно сохранять после каждой итерации?

Ответить

Сохранение книги, выполняемое внутри макроса. (Макросы/Sub)

Страница 1 из 1
1