Страницы: 1
RSS
[ Закрыто ] Перенос таблицы Excel в календарь Outlook?, Можно ли таблицу событий сделанную в Excel импортировать в календарь Outlook
 
Уважаемые коллеги!

Есть таблица, где столбцу с датами соответствуют столбцы с разными событиями.
Можно ли это не в ручную перенести в календарь Outlook?
Попытка сохранить таблицу в *.csv формате не сработала.  
чтоб дело мастера боялось, он знает много страшных слов.
 
Можно.
Пример добавления записи в календарь.
Код
 Sub Добавить_в_Календарь()
    Dim NS As Object, Oapp As Object
    Dim Item As Object
    Set Oapp = CreateObject("Outlook.Application")
    Set NS = Oapp.GetNamespace("MAPI")
    Set Item = Oapp.CreateItem(1)
    Item.Body = "Текст"
    Item.Subject = "Тема"
    Item.Start = Now + 1
    Item.End = Now + 2
    Item.Categories = "Очень важная"
    Item.Location = "Привоз"
    Item.Duration = 10000
    Item.ReminderSet = False
    Item.ReminderMinutesBeforeStart = 1
    Item.Save
    Set NS = Nothing
End Sub
 
Можете пожалуйста выложить пример с этим макросом?  
чтоб дело мастера боялось, он знает много страшных слов.
 
Какой файл с примером?
Запустите этот макрос и увидите в календаре новую запись.
Макрос правите под свои нужды и структуру файла.
Страницы: 1
Наверх