Pergunta : Importar o calendário arquiva em Excel (.ics .xls)

Olá!, o

I am tentando exportar uma lima do calendário (.ics) e importá-la em primar em um formato legível.  A lima do ICS é do google calendars.

I leu alguns blogues nela e importado a lima em primar mas não das datas são readable.

Does que qualquer um tem toda a experiência nesta e a sabe possivelmente de uma forma facil a fazer? a razão que do

The eu preciso de fazer este é, nós planeia nosso tempo em um calendário, a seguir quando os poderes em forem querem considerar nossas nomeações, pedem ele primam dentro.  Assim emitir-lhes a lima dos CI é unacceptable.

Cheers,

Rich class= do

Resposta : Importar o calendário arquiva em Excel (.ics .xls)

Bem, eu posso compreender as datas .....

20100517T203339Z = 10:33 do 17° de maio de 2010: 39

Infelizmente não há nenhuma forma facil convertê-los às datas reais ao importar. Você precisará provavelmente um macro ou uma fórmula.

Tentar o macro below que “manualmente” analisa gramaticalmente a lima.

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:

ImportICS secundário ()

    Nome de arquivo não ofuscante como a corda
    nome de arquivo = Application.GetOpenFilename (o “calendário arquiva (*.ics), *.ics”)
    Se o nome de arquivo = “falso” retira então o submarino
    
    Fso não ofuscante como o objeto, ts como o objeto
    Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”)
    Ajustar ts = fso.OpenTextFile (nome de arquivo, 1)
    Escurecer a linha como a corda, r como por muito tempo, dtStr como a corda, dtArr () como a corda
    linha = ts.ReadLine
    r = 1
    Fazer até ts.AtEndOfStream
        Selecionar o caso verdadeiro
            Encaixotar à esquerda (linha, 2) = o “descolamento”
                Pilhas (r, “A”) = separação (linha,”: ") (0)
                o dtStr = substitui (linha, pilhas (r, “A”) &”: “, "")
                dtArr = separação (substituir (dtStr, “Z”, ""), “T”)
                Pilhas (r, “B”) = DateSerial (deixado (dtArr (0), 4), meados de (dtArr (0), 5, 2), direito (dtArr (0), 2)) _
                                + TimeSerial (deixado (dtArr (1), 2), meados de (dtArr (1), 3, 2), direito (dtArr (1), 2))
            O caso saiu (linha, 7) = “CRIADO”
                Pilhas (r, “A”) = separação (linha,”: ") (0)
                o dtStr = substitui (linha, pilhas (r, “A”) &”: “, "")
                dtArr = separação (substituir (dtStr, “Z”, ""), “T”)
                Pilhas (r, “B”) = DateSerial (deixado (dtArr (0), 4), meados de (dtArr (0), 5, 2), direito (dtArr (0), 2)) _
                                + TimeSerial (deixado (dtArr (1), 2), meados de (dtArr (1), 3, 2), direito (dtArr (1), 2))
            Caso deixado (linha, 13) = “LAST MODIFIED”
                Pilhas (r, “A”) = separação (linha,”: ") (0)
                o dtStr = substitui (linha, pilhas (r, “A”) &”: “, "")
                dtArr = separação (substituir (dtStr, “Z”, ""), “T”)
                Pilhas (r, “B”) = DateSerial (deixado (dtArr (0), 4), meados de (dtArr (0), 5, 2), direito (dtArr (0), 2)) _
                                + TimeSerial (deixado (dtArr (1), 2), meados de (dtArr (1), 3, 2), direito (dtArr (1), 2))
            Caso mais
                Pilhas (r, “A”) = separação (linha,”: ") (0)
                As pilhas (r, “B”) = substituem (linha, pilhas (r, “A”) &”: “, "")
        Extremidade seleta
        linha = ts.ReadLine
        r = r + 1
    Laço
    
Submarino da extremidade
Outras soluções  
 
programming4us programming4us