Macro Importazione tabella personalizzata

[Francesco6918]

Gentilissimi amici del forum una buona sera, facendo una ricerca nel forum o travato una macro generica di cui inserendo il sito (http://stats.betradar.com/s4/?clientid= ... view,25_1) riesco a importare tutta la tabella (Classifica) funziona perfettamente, vorrei applicare delle modifiche per personalizzarla: 1° Modifica: Importazione tabella cella E3, 2° Modifica ecludere alcune colonne B,I,K,R,T,AA,AC,AE, e righe 2,26,28,31,32,34,35,36 , la macro e inserita nel foglio1 o colorato di giallo le colonne e righe da escludere come risultato da ottenere lo riportato nel foglio2, spero di essere stato chiaro ma il file è come esempio se qualcuno può aiutarmi gentilmente.

Grazie

Saluti

http://www.filedropper.com/provadati

[Anthony47]

Ho guardato solo velocemente il tuo file, ma credo che puoi ottenere facilmente quello che cerchi con una macro autoregistrata, da accodare alla macro che importa tutta la tabella dal sito web.
Quindi, in linea di massima:
-importi la tabella completa tramite la macro che gia' usi
-avvia la registrazione della macro; aggiungi in testa le righe ed elimina con i comandi excel che conosci le colonne e le righe superflue
-in coda alla macro principale (Sub call1), inserisci l'istruzione Call MiaMacroRegistrata (usando ovviamente il nome che hai attribuito alla macro)

Quanto al posizionare la tabella su cella E3, dovrebbe funzionare modificando la macro in questa parte:

Codice: Seleziona tutto

''Cells.Clear
J = 4                                                       '*** AGGIUNTA
Set myColl = IE.document.getElementsByTagName("TABLE")
For Each myItm In myColl
    Cells(I + 1, "A").Value = "TABELLA_" & KK: KK = KK + 1: I = I + 1
    For Each trtr In myItm.Rows
        For Each tdtd In trtr.Cells
            Cells(I + 1, J + 1) = tdtd.innertext
            J = J + 1
        Next tdtd
        I = I + 1: J = 4                                    '*** MODIF
    Next trtr
I = I + 2
'continua

Vedi le due istruzioni marcate ***


Per le istruzioni e i primi suggerimenti su come registrare una macro:
viewtopic.php?f=26&t=103893&p=622593#p622593

Ciao

[Francesco6918]

Ciao Anthony47 grazie di avermi risposto quello che tu dici lo so fare, se è possibile modificare la macro.

Grazie

[Anthony47]

Ma se lo sai gia' fare perche' vuoi che lo faccia anche io?

Comunque:

Codice: Seleziona tutto

Sub GetWebTab2Param(lUrl)
Dim IE As Object, F As Long
Dim myRColl, myDColl, KK As Long, I As Long, J As Long, myColl, myR, myTD
'
myurl = lUrl
Set IE = CreateObject("InternetExplorer.Application")
'
okcol = Array(1, 3, 4, 6)           '<<< Metti le colonne che ti interessa prendere

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 + 2 Or Timer < myStart Then Exit Do
Loop
 
'Leggi le tabelle su foglio1 (su un nuovo foglio)
'Worksheets.Add                                              '<<<<<1  -Nuovo foglio
''Application.Goto (Sheets("Foglio1").Range("A1"))            '<<<<<1  -Foglio esistente
''Cells.Clear
J = 4: kcol = 0
Set myColl = IE.document.getElementsByTagName("TABLE")
For Each myItm In myColl
    Cells(I + 1, "A").Value = "TABELLA_" & KK: KK = KK + 1: I = I + 1
    For Each trtr In myItm.Rows
        If r0 = 0 Then
            r0 = 1
        Else
            For Each tdtd In trtr.Cells
                kcol = kcol + 1
                If Not IsError(Application.Match(kcol, okcol, False)) Then
                    Cells(I + 1, J + 1) = tdtd.innertext
                    J = J + 1
                End If
            Next tdtd
            I = I + 1: J = 4: kcol = 0
        End If
    Next trtr
I = I + 2
Exit For
Next myItm
'
    Cells.WrapText = False
    Range("A1").Select
'
'Stop     'Vedi testo
'
'Chiusura IE
IE.Quit
Set IE = Nothing
Columns("C").ColumnWidth = 16
    Cells(2, 1).Select
    Application.ScreenUpdating = True
End Sub


La riga marcata <<< la devi specializzare

Ciao

[Francesco6918]

Ciao Anthony47 grazie della soluzione scusa del fastidio era quello che cercavo.

Saluti