Moderatori: Anthony47, Flash30005
Sub Dati()
Dim myBet As String, myUrl As String
'
If WPage Is Nothing Then
Set WPage = CreateObject("Selenium.CHRomedriver")
'Set WPage = CreateObject("Selenium.Webdriver")
End If
'
WPage.Start "chrome"
'WPage.Start "edge"
'Range("E:Z").ClearContents
'
Dim lrH As Long, lrW As Long
'
Columns("BH:BQ").ClearContents
Columns("BW:CE").ClearContents
'
For I = 1 To Range("BD" & Rows.Count).End(xlUp).Row
If Range("BE" & I) <> "" Then
' Columns("BH:BQ").ClearContents
Range("BH1").Value = Range("AZ" & I).Value
myUrl = Range("BE" & I)
Debug.Print "EvvaiA", myUrl, Cells(2 + lrH, 60).Address(0, 0)
Call GetImpQ(myUrl, 2 + lrH, 60)
End If
' Columns("BW:CE").ClearContents
Range("BW1:BY1").Value = Range("BA1:BC1").Offset(I - 1, 0).Value
myUrl = Range("BF" & I)
Debug.Print "EvvaiB", myUrl, Cells(2 + lrW, 75).Address(0, 0)
Call GetImpQ(myUrl, 2 + lrW, 75)
'
'Aggiorna la riga di scrittura:
lrH = Cells(Rows.Count, "BH").End(xlUp).Row + 2
lrW = Cells(Rows.Count, "BW").End(xlUp).Row + 2
Next I
'
SQuit:
WPage.Quit
Set WPage = Nothing
Range("BW1").Select
End Sub
'...
On Error Resume Next
WPage.Get myUrl
WPage.Wait 1000 '<<< AGGIUNTA WAIT
'
myTim = Timer
'...
Sub Dati2()
Dim myBet As String, myUrl As String
If WPage Is Nothing Then
Set WPage = CreateObject("Selenium.CHRomedriver")
'Set WPage = CreateObject("Selenium.Webdriver")
End If
WPage.Start "chrome"
'WPage.Start "edge"
Columns("BN:BN").NumberFormat = "@"
For I = 1 To Range("BD" & Rows.Count).End(xlUp).Row
If Range("BE" & I) <> "" Then
Columns("BH:BQ").ClearContents
Range("BH1").Value = Range("AZ" & I).Value
myUrl = Range("BE" & I)
Call GetImpQ(myUrl, 2, 60)
For A = 1 To 10
If Range("AX1").Value = 0 Then
Columns("BH:BQ").ClearContents
Range("BH1").Value = Range("AZ" & I).Value
myUrl = Range("BE" & I)
Call GetImpQ(myUrl, 2, 60)
End If
Next A
End If
If Range("AX1").Value = 0 Then GoTo Salta
Columns("BW:CG").ClearContents
Range("BW1:BY1").Value = Range("BA1:BC1").Offset(I - 1, 0).Value
myUrl = Range("BF" & I)
Call GetImpQ(myUrl, 2, 75)
For e = 1 To 10
If Range("AX2").Value = 0 Then
Columns("BW:CG").ClearContents
Range("BW1:BY1").Value = Range("BA1:BC1").Offset(I - 1, 0).Value
myUrl = Range("BF" & I)
Call GetImpQ(myUrl, 2, 75)
End If
Next e
If Range("AX2").Value = 0 Then GoTo Salta
' Bla bla bla, copia qui, incolla là
Salta:
Next I
SQuit:
WPage.Quit
Set WPage = Nothing
End Sub
Torna a Applicazioni Office Windows
copia di dati da un file chiuso e elaborazione Autore: luca62 |
Forum: Applicazioni Office Windows Risposte: 2 |
Prelevare dati da www.forebet.com usando i Driver Selenium Autore: AndreaDeBiagi |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Marius44, Milanooooo e 72 ospiti