Moderatori: Anthony47, Flash30005
Sub Leggi()
Dim wPage As Object
'
Set wPage = CreateObject("Selenium.CHRomedriver")
Range("A2").Resize(300, 10).ClearContents
Call GetAllTablesSub(wPage, Range("A1").Value, 3, 1, "2.4")
wPage.Quit
Set wPage = Nothing
End Sub
Sub GetAllTablesSub(LPage As Object, myUrl As String, Optional rNum0 As Long = 1, Optional cNum0 As Long = 1, Optional TNum As String = "0")
Dim TBColl As Object
Dim I As Long, J As Long, myTim As Single
Dim RNum As Long, CNum As Long, TdtD As Object, TrtR As Object
'
LPage.Get myUrl
'
myTim = Timer
Set TBColl = LPage.FindElementsByTag("table")
RNum = rNum0: CNum = cNum0
For I = 1 To TBColl.Count
Dim kkk As Long
kkk = InStr(1, "." & TNum & ".", "." & I & ".", vbTextCompare)
If kkk > 0 Or TNum = 0 Then
RNum = RNum + 1
Cells(RNum, CNum).Value = "## Table " & I
For Each TrtR In TBColl(I).FindElementsByTag("tr")
For Each TdtD In TrtR.FindElementsByTag("td")
Cells(RNum + 1, CNum).Value = (TdtD.Text)
'kill striked text:
If InStr(1, TdtD.attribute("class") & "......", "lock", vbTextCompare) > 0 Then
Cells(RNum + 1, CNum).ClearContents
End If
CNum = CNum + 1
Next TdtD
RNum = RNum + 1
CNum = cNum0
Next TrtR
RNum = RNum + 1
DoEvents
End If
Next I
'
Debug.Print "FINE", RNum, Format(Timer - myTim, "0.00"), myUrl
End Sub
Torna a Applicazioni Office Windows
COME RICONOSCERE UNA APP "POTENZIALMENTE DANNOSA" SU W11 Autore: franco11 |
Forum: Sistemi Operativi Windows Risposte: 3 |
formattare una colonnacon numeri senza virgolaSalve Autore: giorgioa |
Forum: Applicazioni Office Windows Risposte: 5 |
Le App di Google come fanno a riconoscere il dispositivo? Autore: franco11 |
Forum: Sicurezza e Privacy Risposte: 4 |
Come nascondere I Numeri non Appartenenti Al Mese Deside Autore: Maury170419 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Anthony47 e 6 ospiti