
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.
Moderatori: Anthony47, Flash30005
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
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
Torna a Applicazioni Office Windows
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Eliminare righe diverse dalla prima data del mese Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 4 |
Come impostare il formato data predefinito in excel? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 5 |
Macro sposta riga se data in colonna più vecchia di 3 mesi Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 23 |
Visitano il forum: Marius44 e 26 ospiti