Sub sbGetDataFromWeb()
    
    Dim wsFoglio2 As Worksheet
    Dim i As Long
    Dim celPaste As Range
    
    sbClearFoglio2
    ufmWeb.Show 1
    
    If blnBtnOK = False Then Exit Sub
    
    Set oTables = gHTMLDocument.getElementsByClassName("schedule")
    'Debug.Print "oTables.Length = " & oTables.Length
    'Stop
    
    Set wsFoglio2 = fnwsFoglio2
    'Stop
    
    Set oTable = oTables(0)
    'Set oTable = oTables(1)
    'Stop
    
    Set oTableBodies = oTable.tBodies
    'Debug.Print "oTableBodies.Length = " & oTableBodies.Length
    'Stop
    
    Set oTableBody = oTableBodies(0)
    'Debug.Print "oTableBody.Rows.Length = " & oTableBody.Rows.Length
    'Stop
    
    For Each oTableRow In oTableBody.Rows
    
        If oTableRow.ID Like "tr_*" Then
        
            With wsFoglio2
                Set celPaste = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
                celPaste.Cells(1, 1).Value = oTableRow.Cells(0).innerText
                celPaste.Cells(1, 2).Value = oTableRow.Cells(1).innerText
                celPaste.Cells(1, 3).Value = oTableRow.Cells(2).innerText
                celPaste.Cells(1, 4).Value = oTableRow.Cells(10).innerText
            End With
        
        End If
        
    Next oTableRow
    
    sbCopyTime
    'Stop
    
End Sub