Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

18th
Янв

Интерфейс между Outlook и Excel

Posted by obzor under VBA

Задача заключается в том, чтобы переносить данные из тела письма с определенной темой и получателем в эксель накопительным итогом.

Например, тело письма содержит 4 столбца :

После факта получения нужно записать значения в эксель файл :

Aleksandr H.


Sub dd()
Dim item As MailItem, x%
Dim r As Object  'As Word.Range
Dim doc As Object 'As Word.Document

Dim xlApp As Object, wkb As Object
Set xlApp = CreateObject("Excel.Application")
Set wkb = xlApp.Workbooks.Add
xlApp.Visible = True

Dim wks As Object
Set wks = wkb.Sheets(1)

For Each item In Application.ActiveExplorer.Selection
Set doc = item.GetInspector.WordEditor
    For x = 1 To doc.tables.Count
     Set r = doc.tables(x)
       wks.Range("A3") = Trim(r.Columns(2).Cells(1))
       wks.Range("B3") = r.Columns(2).Cells(2)
       wks.Range("C3") = r.Columns(2).Cells(3)
       wks.Range("D3") = r.Columns(2).Cells(4)
       wks.Range("E3") = r.Columns(2).Cells(5)
    Next
Next
End Sub

докрутить: 1)запись в существующий файл, вместо создания нового; 2) избавиться от крякозабла в конце ячейки.

тема на форуме