ZGrr (Автор тем)

Power Query запрос на создание столбца с индексом

Пользователь

Сообщений: 3 Регистрация: 15.09.2016

20.06.2023 10:45:04

Добрый день!

Помогите, пожалуйста, с решением задачи:
Есть таблица (Tab01)
со столбцом, по которому нужно группировать значения (Alias),
в этой таблице также есть столбец с числовым значением (Vol). по которому нужно проиндексировать строки создав новый столбец (Index) c сортировкой убыванию (Vol) от 1 до номера последней строки
На выходе нужно получить туже таблицу со столбцом проиндексированных строк.

Перейти

Поиск письма из Excel в OutLook по ID, Скрипт который ищет письмо по ENTRY.ID, которое хранится в Excel и пересылает его адресату который обозначен в той же строке

ZGrr

Пользователь

Сообщений: 3 Регистрация: 15.09.2016

04.06.2018 14:18:15

Добрый день!

Пробовал написать скрипт в Excel, который берет ENTRY.ID из строки которая уже его содержит и имя получателя и ему пресылает письмо письмо.
Не получилось т.к. видимо не силен в конструкциях языка.
Сейчас упростил до задачи: поиск письма содержащего определенный ID.
Не работает:
Run-time error
Type mismatch
Помогите найти ошибку:

Код

Sub Looking_for_the_ID()

Dim i As Integer ' Счетчик
Dim sSID As String

Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myRecipient = myNamespace.CreateRecipient("mail-order")
myRecipient.Resolve
Set mofolder = myNamespace.GetSharedDefaultFolder(myRecipient, olFolderInbox)

Dim msg As Outlook.MailItem

sSID ="0000000001F98937A4C1BD4E897050339DC29D150700A652F366EFD5944EB11E2F3EB811D605004D9A94DB530000A652F366EFD5944EB11E2F3EB811D605009ACFA60A430000"
MsgBox sSID

    If mofolder.Items.Count > 0 Then
   MsgBox "Папка не пустая"
   End If
    
    i = mofolder.Items.Count
    MsgBox i, , "Всего писем"
    
    For Each msg In mofolder.Items
     
      If msg.EntryID = sSID Then
      GoTo Reply
      End If
     
      i = i - 1
       
     Next
     GoTo Finita
    
  
Reply:
MsgBox "Отправка письма"
MsgBox i

Finita:
MsgBox "Письмо не было найдено"
End Sub

Изменено: ZGrr - 04.06.2018 14:24:47

Перейти