Ошибка при утверждении If после нескольких исполнений

Я получаю сообщение об ошибке в строке кода после его выполнения несколько раз. Это происходит, когда он достигает того же уровня исполнения (то же самое место в цели, которую пытается выполнить макрос). Общая программа предназначена для создания нескольких электронных писем и отправки их в разные компании с различными вложениями электронной почты. Он работает до тех пор, пока он не достигнет примерно 2 / 3rds пути вниз, где я получаю ошибку 1004. Есть идеи? ** – местоположение ошибки. Код ниже представляет собой небольшой фрагмент гораздо более простой процедуры.

Благодаря!

'sets row_counter = row_num to avoid iteration over unecessary rows in ReportsbyFirm and resets continue to True for PDF attachment phase continue = True row_counter = row_num With outMail .To = firmEmail .Subject = reportDate .body = body Do While continue = True ** If reportsByFirm.Cells(row_counter, firmcol) = cFirm Or reportsByFirm.Cells(row_counter, firmcol) = iFirm Then pdfLocation = getPDFs(cFirm, iFirm, row_counter, reportsByFirm, trMaster, trSeparate, trName, reportDate) .Attachments.Add (pdfLocation) row_counter = row_counter + 1 ElseIf row_counter <> lRowReportsByFirm Then row_counter = row_counter + 1 Else continue = False End If Loop .Display End With 

В счетчике циклов произошла ошибка. Логика не удовлетворяла всегда, в конечном счете, удовлетворяя false, что привело бы к тому, что row_counter закончил бы значение 104K +. Исправлено этим

  Do While continue = True If reportsByFirm.Cells(row_counter, firmcol) = cFirm Or reportsByFirm.Cells(row_counter, firmcol) = iFirm Then pdfLocation = getPDFs(cFirm, iFirm, row_counter, reportsByFirm, trMaster, trSeparate, trName, reportDate) .Attachments.Add (pdfLocation) row_counter = row_counter + 1 ElseIf row_counter < lRowReportsByFirm Then row_counter = row_counter + 1 ElseIf row_counter >= lRowReportsByFirm Then continue = False End If Loop .Display End With 
  • Автоматические почтовые сообщения Outlook с использованием VBA
  • Ошибка Excel VBA «определяемый пользователем тип не определен» с Outlook
  • Захват времени отправки электронной почты Outlook в Excel VBA
  • Excel и Outlook 2016 - ошибка «body» объекта object__mailItem с ошибкой
  • Код VBA для запуска кода в определенное время
  • Борьба за прикрепление файлов к электронной почте Outlook с помощью Excel VBA
  • Ответьте по электронной почте в Outlook PST, которые имеют одинаковое значение в файле Excel.
  • Outlook 2010 - странная ошибка.
  • Как вставить скопированный объект в конкретную ячейку в Excel
  • Как я могу создавать электронные письма только для уникальных адресов из столбца в excel?
  • Отображение открытых временных интервалов для календаря Outlook в Excel
  • Interesting Posts

    Источник данных Power BI с возможностью обновления

    Объединение таблиц и массивов из нескольких листов в одну консолидированную таблицу

    Настройка log4net в VSTO

    Excel Advanced Filter не работает с Wildcard (* звездочкой) с использованием обычных номеров и системы с дефисными номерами

    Office Addin – программный импорт файла * .exportedUI

    Чтение проблем при чтении файла excel в Matlab

    Сценарий не выводит на второй лист

    интеграция python в excel с использованием pyxll … с проблемами с модулем lxml

    Как ссылаться на адрес массива функции VBA Max или Ubound?

    Ошибка при попытке добавить столбец с помощью макроса Excel

    vba: getElementsByClassName с разными именами классов

    ASP.NET MVC: загрузка файла excel

    Excel VBA Скрыть строки на основе цвета ячейки, и если команда говорит «Да»,

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

    Нужно перенести, чтобы вернуть пустую ячейку со ссылкой на страницу

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