Цикл через электронные таблицы Excel и приостановка каждого из них

Я пытаюсь сделать что-то, что должно быть относительно простым, но я просто не могу заставить его работать правильно, я продолжаю убивать Excel.

У меня есть книга с несколькими листами, содержащими данные, своды и диаграммы. Я хочу, чтобы цикл между выбранным количеством листов, которые мне удалось сделать, код ниже, но то, что я пытаюсь достичь, состоит в том, чтобы заставить его остановиться на 10 секунд на каждом листе, прежде чем перейти к следующему листу.

Sub LoopThroughFlaggedSheets() Dim StartIndex, EndIndex, LoopIndex, CountIndex As Integer StartIndex = Sheets("Dashboard").Index EndIndex = Sheets("Sales By Policy Type").Index CountIndex = 5 For CountIndex = 1 To CountIndex For LoopIndex = StartIndex To EndIndex MsgBox Sheets(LoopIndex).Name Next LoopIndex Next CountIndex End Sub 

Таким образом, в настоящее время он петли 5 раз через рабочие листы между Dashboard и Sales By Policy Type, ящик сообщений предназначен только для меня, поэтому я знаю, что он делает. Мне просто нужно сделать паузу в течение определенного периода времени между каждым листом. Я знаю, что что-то нужно делать в цикле LoopIndex, но я не могу для жизни понять, где и какая команда.

ура

EDIT Попробуйте следующее:

 Sub LoopThroughFlaggedSheets() Dim StartIndex, EndIndex, LoopIndex, CountIndex As Integer StartIndex = Sheets("Dashboard").Index EndIndex = Sheets("Sales By Policy Type").Index 'CountIndex = 5 'For CountIndex = 1 To CountIndex For LoopIndex = StartIndex To EndIndex 'MsgBox Sheets(LoopIndex).Name Debug.Print Now() Debug.Print Sheets(LoopIndex).Name Application.Wait (Now + TimeValue("00:00:01")) Debug.Print Now() Next LoopIndex 'Next CountIndex End Sub 

Я вынул ваш внешний цикл CountIndex чтобы остановить CountIndex 25 раз. Я сократил время ожидания до 1 секунды, чтобы показать принцип.

  • OpenXML Spreadsheet, удаляющий строки, вызывает ошибки чтения нечитаемого содержимого
  • Как удалить первые листы или прочитать другие листы файлов excel
  • Экспорт нескольких gridview или наборов данных в один или несколько листов excel
  • VBA Excel: как выполнить функцию для каждой ячейки в столбце и пропустить все книги?
  • Изменение таблицы VBA с помощью нескольких ячеек
  • VBA Excel, как активировать макрос для листов 2, 3 и 4 из листа 1
  • Создать новый рабочий лист на основе ячейки, но игнорировать пустую ячейку
  • Как игнорировать конкретное имя листа?
  • EPPlus - копия листа из шаблона в другой excelpackage не работает (C #)
  • Проверка данных Excel
  • Как создать лист Excel и добавить его в несколько рабочих книг в Excel InterOp
  • Interesting Posts

    Как подсчитать поля в столбце и отобразить в другой ячейке

    Защита и скрытие столбцов, таких же, как «Очень скрытые» листы

    диапазон смещения диапазона excel vba

    Диапазон Capture Cell от пользовательского ввода в Excel VBA

    Сопоставление индекса с несколькими критериями должно возвращать самое близкое значение, которое меньше или равно значению поиска

    Как разбить эту строку на отдельный столбец в электронной таблице?

    Определение ячейки рядом с проверкой данных на основе выпадающего списка

    Excel – значение не распознается в диапазоне

    Копировать значения и numberformat из одного диапазона в другой?

    IF в R – Всегда вложенные?

    копировать строки в диапазоне с определенным значением в столбце F

    Поиск следующего закрывает аэропорт из набора координат GPS в Excel

    Как читать данные из файла excel с помощью транспортира

    Форма пользователя VBA: заполнение диапазона refedit в список (показывая каждый идентичный ответ только один раз)

    Как создать поле или параметр, который может помочь мне переключиться между двумя мерами?

    Давайте будем гением компьютера.