Data e orario americano conversione

[apocrimata75]

Prima che mi "bannino" vorrei porvi un'altra richiesta. Tramite queryweb scarico dati in excel formattati come da 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.

[apocrimata75]

vorrei aggiungere un'altra anomalia


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

[Flash30005]

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

[apocrimata75]

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.

[apocrimata75]

Uploaded with ImageShack.us

[apocrimata75]

come si vede nell'unica cella i dati sono disposti su 2 righe, manualmente cancello gli spazi tra i 2 valori

[Anthony47]

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

Ciao

[apocrimata75]

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



[Anthony47]

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