Questione : L'importazione del calendario archiva in Excel (.ics .xls)

Ciao,

I provanti ad esportare una lima del calendario (.ics) ed ad importarla in eccellere in una disposizione leggibile.  La lima del ICS proviene da google calendars.

I ha letto alcuni blog su esso ed importato la lima in eccellere ma non delle date sono readable.

Does che qualcuno ha tutta l'esperienza in questa e possibilmente che sa di un modo semplice di farlo? il motivo che del

The devo fare questo è, noi progetta il nostro tempo su un calendario, quindi quando i poteri a sono vogliono vedere i nostri appuntamenti, chiedono esso dentro eccellono.  Così trasmettere loro la lima di CI è unacceptable.

Cheers, il

Rich class= del

Risposta : L'importazione del calendario archiva in Excel (.ics .xls)

Bene, posso capire le date .....

20100517T203339Z = 10:33 del 17 maggio 2010: 39

Purtroppo non ci è modo semplice di convertirli in date reali in cui importando. Probabilmente avrete bisogno di una macro o di una formula.

Provare la macro sotto che “manualmente„ analizza la 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 secondario ()

    Nome di schedario fioco come stringa
    nome di schedario = Application.GetOpenFilename (“il calendario archiva (*.ics), *.ics„)
    Se il nome di schedario = “falso„ allora esce il sommergibile
    
    Fso fioco come oggetto, st come oggetto
    Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
    Regolare gli st = fso.OpenTextFile (nome di schedario, 1)
    Oscurare la linea come stringa, r come lungamente, dtStr come stringa, dtArr () come stringa
    linea = ts.ReadLine
    r = 1
    Fare fino a ts.AtEndOfStream
        Selezionare il caso allineare
            Mettere a sinistra (linea, 2) = “distacco„
                Le cellule (r, “A„) = hanno spaccato (linea,„: ") (0)
                il dtStr = sostituisce (linea, cellule (r, “A„) &„: “, "")
                il dtArr = ha spaccato (sostituire (dtStr, “Z„, ""), “T„)
                Cellule (r, “B„) = DateSerial (lasciato (dtArr (0), 4), metà di (dtArr (0), 5, 2), di destra (dtArr (0), 2)) _
                                + TimeSerial (lasciato (dtArr (1), 2), metà di (dtArr (1), 3, 2), di destra (dtArr (1), 2))
            Il caso ha andato (linea, 7) = “HA GENERATO„
                Le cellule (r, “A„) = hanno spaccato (linea,„: ") (0)
                il dtStr = sostituisce (linea, cellule (r, “A„) &„: “, "")
                il dtArr = ha spaccato (sostituire (dtStr, “Z„, ""), “T„)
                Cellule (r, “B„) = DateSerial (lasciato (dtArr (0), 4), metà di (dtArr (0), 5, 2), di destra (dtArr (0), 2)) _
                                + TimeSerial (lasciato (dtArr (1), 2), metà di (dtArr (1), 3, 2), di destra (dtArr (1), 2))
            Mettere a sinistra (linea, 13) = “il LAST MODIFIED„
                Le cellule (r, “A„) = hanno spaccato (linea,„: ") (0)
                il dtStr = sostituisce (linea, cellule (r, “A„) &„: “, "")
                il dtArr = ha spaccato (sostituire (dtStr, “Z„, ""), “T„)
                Cellule (r, “B„) = DateSerial (lasciato (dtArr (0), 4), metà di (dtArr (0), 5, 2), di destra (dtArr (0), 2)) _
                                + TimeSerial (lasciato (dtArr (1), 2), metà di (dtArr (1), 3, 2), di destra (dtArr (1), 2))
            Caso altrimenti
                Le cellule (r, “A„) = hanno spaccato (linea,„: ") (0)
                Le cellule (r, “B„) = sostituiscono (linea, cellule (r, “A„) &„: “, "")
        Estremità prescelta
        linea = ts.ReadLine
        r = R+ 1
    Ciclo
    
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us