Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Mutarix
0 / 0 / 0
Регистрация: 29.10.2014
Сообщений: 10
1

Запись текущей дату в Excel после отправки писем из Excel через Outlook

14.05.2018, 17:24. Просмотров 122. Ответов 0
Метки нет (Все метки)

Добрый день, друзья

Во вложенном файле Запрос - mail реализован макрос который выполняет создание и отправку писем через Outlook.
После запуска макроса формируются письма и таблицы, которые вставляются в тело письма.
После этого макрос делает запись текущей даты в таблицу БАЗА ЗАЯВОК 2018 в столбец AI напротив строки которая содержит код (№ Заявки).
То есть в таблице Запрос - mail есть сформированная таблица где каждая строка имеет код (№ Заявки),
макрос сравнивает код (№ Заявки) между таблицами "Запрос - mail" и "БАЗА ЗАЯВОК 2018" находит совпадение и делает запись в таблицу "БАЗА ЗАЯВОК 2018" в столбец AI.

Запись даты в таблицу "БАЗА ЗАЯВОК 2018" реализована в следующем коде:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
   With iBook.Worksheets("База")    
    
          j = .Range("b" & .Rows.Count).End(xlUp).Row
          arr(0) = .Range(.[a1], .Range("ai1" & j)).Formula
          For i = 1 To UBound(arr(0))
             itxt = arr(0)(i, 2)
             If objDic.Exists(itxt) Then arr(0)(i, UBound(arr(0), 2)) = objDic.Item(itxt)
          Next i
  
       .Range("a1").Resize(UBound(arr(0)), UBound(arr(0), 2)).Formula = arr(0)
       iBook.Save
    End With
Макрос работает следующем образом:

Переносит все данные из таблицы "БАЗА ЗАЯВОК 2018" в массив присваивает даты и выгружает эти данные обратно.

Это очень ресурсозатратный метод, когда в таблице "БАЗА ЗАЯВОК 2018" больше 10 000 строк. Кроме этого по не понятной причини растёт размер файла, буквально удваивается.

Подскажите пожалуйста как изменить код, чтобы запись даты выполнялась без загрузки всех данных из таблицы "БАЗА ЗАЯВОК 2018" в массив, а выполнялся поиск нужной строки в "БАЗА ЗАЯВОК 2018" с последующей записью даты согласно кода (№ Заявки) заданного в таблице "Запрос - mail".

или

Загружались в массив из таблицы "БАЗА ЗАЯВОК 2018" только те строки которые соответствуют коду (№ Заявки) заданному в таблице "Запрос - mail"
0
Вложения
Тип файла: 7z Файлы.7z (94.6 Кб, 3 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2018, 17:24
Ответы с готовыми решениями:

Отправка писем из Excel-я через Outlook
Всем доброго времени суток. Очень большая просьба помочь доделать. Есть макрос...

Отправка писем в excel через outlook
Добрый день, форумчане! Есть вопрос по написанию макроса. У меня есть макрос...

Отправка писем из Excel через Outlook
Как задать такой цикл, в котором бы автоматом выбирались только е-мэйлы по...

Макрос отправки письма Outlook через Excel с автоприкреплением файла
Добрый день! Есть следующий вопрос: Нужно из Excel 2010 макросом создавать...

Макрос для отправки писем через outlook
Необходимо создать макрос для отправки писем через outlook листа 3, с...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2018, 17:24

Регистрация входящих писем Outlook в Excel
Добрый день! Решил написать небольшой макрос по регистрации входящей почты...

Создание таблицы в Excel, данные берем из писем Outlook
Здравствуйте! Имеется ряд писем в outlookе вида: Имя: Загрузка реестра...

Данные из писем Outlook => Excel. Угощаю пивом за помощь :)
Здравствуйте господа! Очень нужна Ваша помощь. Задача состоит в следующем: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru