Вопрос : Импортировать календар хранит в Эксел (.ics .xls)

Hi,

I am пытаясь ехпортировать архив календара (.ics) и импортировать его в первенствуйте в четкой форме.  Архив ICS от google calendars.

I читал некоторые блоги на ем и импортировано архиву в первенствуйте но non дат readable.

Does, котор кто-нибудь имеет любой опыт в этом и по возможности знает простоя способа сделать его? причина
The мне нужно сделать это, мы планирует наше время на календаре, тогда когда силы на хотят увидеть наши назначения, они просят он внутри первенствуют.  Так посылать ими архив ics будет unacceptable.

Cheers,

Rich class=

Ответ : Импортировать календар хранит в Эксел (.ics .xls)

Наилучшим образом, я могу понять даты .....

20100517T203339Z = 10:33 17-ое мая 2010: 39

Несчастливо не будет простоя способа преобразовать их к реальным датам импортируя. Вам вероятн будет нужна макрос или формула.

Попытайтесь внизу макрос «ручно» parses архив.

Wayne
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

Sub ImportICS ()

    Тусклый filename как шнур
    filename = Application.GetOpenFilename («календар хранит (*.ics), *.ics»)
    Если filename = «ложно» после этого выходит подводная лодка
    
    Тусклое fso как предмет, ts как предмет
    Установите fso = CreateObject («Scripting.FileSystemObject»)
    Установите ts = fso.OpenTextFile (filename, 1)
    Затемните линию как шнур, r как длиной, dtStr как шнур, dtArr () как шнур
    линия = ts.ReadLine
    r = 1
    Не сделать до ts.AtEndOfStream
        Выберите случай поистине
            Покрывайте налево (линия, 2) = «DT»
                Клетки (r, «a») = разделили (линия,»: ") (0)
                dtStr = заменяет ть (линия, клетки (r, «a») &»: «, "")
                dtArr = разделило (замените (dtStr, «z», ""), «t»)
                Клетки (r, «b») = ое DateSerial ((dtArr (0), 4), среднее (dtArr (0), 5, 2), правое (dtArr (0), 2)) _
                                + ое TimeSerial ((dtArr (1), 2), среднее (dtArr (1), 3, 2), правое (dtArr (1), 2))
            Случай вышел (линия, 7) = «СОЗДАЛАСЬ»
                Клетки (r, «a») = разделили (линия,»: ") (0)
                dtStr = заменяет ть (линия, клетки (r, «a») &»: «, "")
                dtArr = разделило (замените (dtStr, «z», ""), «t»)
                Клетки (r, «b») = ое DateSerial ((dtArr (0), 4), среднее (dtArr (0), 5, 2), правое (dtArr (0), 2)) _
                                + ое TimeSerial ((dtArr (1), 2), среднее (dtArr (1), 3, 2), правое (dtArr (1), 2))
            Покрывайте налево (линия, 13) = «LAST-MODIFIED»
                Клетки (r, «a») = разделили (линия,»: ") (0)
                dtStr = заменяет ть (линия, клетки (r, «a») &»: «, "")
                dtArr = разделило (замените (dtStr, «z», ""), «t»)
                Клетки (r, «b») = ое DateSerial ((dtArr (0), 4), среднее (dtArr (0), 5, 2), правое (dtArr (0), 2)) _
                                + ое TimeSerial ((dtArr (1), 2), среднее (dtArr (1), 3, 2), правое (dtArr (1), 2))
            Случай еще
                Клетки (r, «a») = разделили (линия,»: ") (0)
                Клетки (r, «b») = заменяют ть (линия, клетки (r, «a») &»: «, "")
        Конец отборный
        линия = ts.ReadLine
        r = r + 1
    Петля
    
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us