Condividi:        

Data e orario americano conversione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Data e orario americano conversione

Postdi apocrimata75 » 30/11/13 09:17

Prima che mi "bannino" vorrei porvi un'altra richiesta. Tramite queryweb scarico dati in excel formattati come da immagine
Immagine
http://image.forumfree.it/8/2/5/0/3/1/3/1385799365.png

Dec 1@
1:00 PM

secondo voi è possibile convertirla in data e ora italiana, del tipo
01/12/2013 19:00

Grazie.
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 189
Iscritto il: 28/05/11 13:22

Sponsor
 

Re: Data e orario americano conversione

Postdi apocrimata75 » 30/11/13 10:21

vorrei aggiungere un'altra anomalia
Immagine

in pratica tra i valori ci sono spazi che non scompaiono nemmeno con la funzione annulla.spazi
o col sostituisci.

Devo manualmente entrare nella cella e cancellare i vuoti in modo che i valori tornino su un'unica riga
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 189
Iscritto il: 28/05/11 13:22

Re: Data e orario americano conversione

Postdi Flash30005 » 30/11/13 11:14

L'immagine non è visibile
prova ad usare questo link
necessita di registrazione gratuita ma fornisce direttamente il codice per i forum che potrai copiare ed incollare nel post

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Data e orario americano conversione

Postdi apocrimata75 » 30/11/13 11:31

purtroppo gli admins non mi consentono l'accesso a quel link
http://image.forumfree.it/8/2/5/0/3/1/3/1385807459.png

provo dopo da casa.
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 189
Iscritto il: 28/05/11 13:22

Re: Data e orario americano conversione

Postdi apocrimata75 » 30/11/13 14:51

Immagine

Uploaded with ImageShack.us
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 189
Iscritto il: 28/05/11 13:22

Re: Data e orario americano conversione

Postdi apocrimata75 » 30/11/13 14:58

come si vede nell'unica cella i dati sono disposti su 2 righe, manualmente cancello gli spazi tra i 2 valori
Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 189
Iscritto il: 28/05/11 13:22

Re: Data e orario americano conversione

Postdi Anthony47 » 30/11/13 15:38

Per capire cosa si puo' fare bisogna sapere quale sito e quale tabella viene prelevata, cioe' sapere come e' quel dato in origine.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Data e orario americano conversione

Postdi apocrimata75 » 30/11/13 16:49

Codice: Seleziona tutto
Sub trako()
Sheets("trako").Select


myUrl = "http://www.oddsshark.com/nhl"
Set ie = CreateObject("InternetExplorer.Application")
   
With ie
    .navigate myUrl
    .Visible = True
    Do While .Busy: DoEvents: Loop    'Attesa not busy
    Do While .readyState <> 4: DoEvents: Loop 'Attesa documento
End With
'
myStart = Timer  'attesa addizionale
Do
    DoEvents
    If Timer > myStart + 1 Or Timer < myStart Then Exit Do
Loop
'Leggi le tabelle su FoglioXX
Sheets("trako").Select     '<<< Vedi testo


Set myColl = ie.document.getElementsByTagName("TABLE")
For Each myItm In myColl
    For Each trtr In myItm.Rows
        For Each tdtd In trtr.Cells
            Cells(i + 1, J + 1) = tdtd.innerText
            Cells(i + 1, 1).Select
            J = J + 1
        Next tdtd
        i = i + 1: J = 0
    Next trtr
i = i + 2
Next myItm
'SendKeys "{F5}", True
'        SendKeys "{ENTER}", True
IEQuit:
'Chiusura IE
ie.Quit
Set ie = Nothing

Windows 7 - Office 2010
apocrimata75
Utente Senior
 
Post: 189
Iscritto il: 28/05/11 13:22

Re: Data e orario americano conversione

Postdi Anthony47 » 30/11/13 23:44

Modifica la riga Cells(i + 1, J + 1) = tdtd.innerText
In
Codice: Seleziona tutto
            If tdtd.classname = "date" Then
                Cells(i + 1, J + 1) = Application.WorksheetFunction.Trim(Replace(Replace(tdtd.innerhtml, "@<br>", " "), Chr(10), " "))
            Else
                Cells(i + 1, J + 1) = tdtd.innerText
            End If

Nelle prove la cella viene compilata con una data; tuttavia non e' garantibile che la conversione avvenga sempre, potrebbe invece rimanere una stringa del tipo Dec 1 2:00PM; per avere questa garanzia dovresti sostituire le sigle dei mesi dall' inglese all' italiano e poi usare una conversione esplicita con DateValue, che faremo se proprio necessario.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Data e orario americano conversione":


Chi c’è in linea

Visitano il forum: Ricky0185 e 48 ospiti