Copiare da un sito e incollare su un foglio Excel in modo corretto

Anonimo

Esiste una funzione in excel oppure un modo alternativo al mio problema ?

come da foto allegata vi mostro che copiando da un sito questi dati , incollandoli sul mio foglio me li da incolonnati , esiste una funzione oppure un modo alternativo di averli sul mio foglio come sono stati copiati ?

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

Ciao Lupetto,

In effetti le partite Posticipate o Cancellate non devono essere presenti nella lista

Rigurdo alle partite completate o in corso NO devono restare , insieme a quelle che devono ancora iniziare che portano con se il loro orario di inizio .

Altra cosa importante che ho dimenticato di dirti e' la seguente : gli orari di inizio partite hanno tutte un'ora indietro rispetto al mio orario e non possono essere cambiati dal sito in questione , potresti magicamente aggiungere in automatico un'ora in piu' rispetto a loro ?

Questi giorni andavo molto di fretta e ho fatto un po di confusione , poco fa ho riflettuto bene sul tutto ed ecco la maschera finale di come dovrebbe essere fatta

si notano due colonne in piu che vanno lasciate libere per altre cose che servono a me e sarebbero le colonne D - L

altro punto importante e' la colonna H , siccome dipende se si scaricano dati regressi oppure futuri , se sono regressi danno il risultato , se sono futuri danno orario e dobbiamo separarli come da colonne B e QR .

Riguardo ad altre variazioni rimane come detto in precedenza.

Ho modificato il codice al fine di abbracciare le modifiche da te indicate e la revisione della disposizione dei dati da te richiesta

Pertanto, sostituisci il mio codice precedente con la seguente versione:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

Dim SH As Worksheet 

Dim Rng As Range 

Dim dTime As Double 

Dim sStr As String 

Dim sScore As String 

Dim sHome\_Team As String, sAway\_Team, m As String 

Dim sLega As String 

Dim vOdds\_Home As Variant, vOdds\_Draw As Variant, vOdds\_Away As Variant 

Dim vHome\_Rank As Variant, vAway\_Rank As Variant 

Dim arrSplit As Variant, arrRisultato() As Long 

Dim i As Long, j As Long, k As Long, iRiga As Long 

Dim iPos As Long, jPos As Long, kPos As Long, pPos As Long, qPos As Long, rPos As Long, sPos As Long 

Dim tempPos As Long 

Dim LRow As Long 

Dim bHome As Boolean, bRank As Boolean, bScore As Boolean, bTime As Boolean 

Const iRigs\_Intestazioni As Long = 3              '&lt;&lt;=== Modifica 

Set SH = ActiveSheet 

With SH 

    LRow = .Range("A" & .Rows.Count).End(xlUp).Row 

    Set Rng = SH.Range("A2:A" & LRow) 

End With 

iRiga = iRigs\_Intestazioni + 1 

ReDim arrRisultato(1 To 2) 

For k = 1 To Rng.Cells.Count 

    j = j + 1 

    If InStr(1, Rng.Cells(k + 1), "post", vbTextCompare) Then 

        k = k + 3 

        bHome = True 

        GoTo JumpMatch 

    End If 

    sStr = Rng.Cells(k).Text 

    With SH 

        Select Case True 

            Case Left(sStr, 3) = Space(3) '\\ Nuova Lega 

                sLega = Trim(sStr) 

                bHome = True 

            Case Left(sStr, 1) = "W", Left(sStr, 1) = "L", Left(sStr, 1) = "D"  '\\ Form 

                If bHome Then 

                    .Cells(iRiga, "E") = Trim(sStr) 

                    .Cells(iRiga, "C") = sLega 

                    bHome = False 

                Else 

                    .Cells(iRiga, "K") = Trim(sStr) 

                    bHome = True 

                End If 

            Case InStr(2, sStr, ".", vbTextCompare)         '\\ Odds 

                pPos = InStr(2, sStr, ".", vbTextCompare) 

                vOdds\_Home = Trim(Left(sStr, pPos + 2)) 

                qPos = InStr(pPos + 2, sStr, ".", vbTextCompare) 

                vOdds\_Draw = Trim(Mid(sStr, qPos - 1, 4)) 

                rPos = InStr(qPos + 1, sStr, ".", vbTextCompare) 

                vOdds\_Away = Mid(sStr, rPos - 1, 99) 

                vOdds\_Away = Left(vOdds\_Away, Len(vOdds\_Away) - 2) 

                .Cells(iRiga, "M").Resize(1, 3).Value = Array(vOdds\_Home, vOdds\_Draw, vOdds\_Away) 

                iRiga = iRiga + 1 

                If j &lt; Rng.Cells.Count Then 

                End If 

                bHome = True 

            Case InStr(1, sStr, "post", vbTextCompare) 

                If iRiga = 25 Then Stop 

            Case Left(sStr, 4) = " ---" '\\ No Odds 

                .Cells(iRiga, "L").Resize(1, 3).Value = "-" 

                iRiga = iRiga + 1 

                bHome = True 

                .Cells(iRiga, "C") = sLega 

            Case Left(sStr, 1) = Space(1), Left(sStr, 2) = Space(2)  '\\ iPos Score\Risultato iPos 

                sStr = Trim(sStr) 

                If Left(sStr, 2) Like "##" Then 

                    vHome\_Rank = Left(sStr, 2) 

                    bRank = True 

                    iPos = 4 

                ElseIf IsNumeric(Left(sStr, 1)) Then 

                    vHome\_Rank = Left(sStr, 1) 

                    iPos = 3 

                    bRank = True 

                Else 

                    iPos = 1 

                End If 

                .Cells(iRiga, "F") = vHome\_Rank 

                vHome\_Rank = "" 

                If InStr(1, sStr, ":") Then 

                    jPos = InStr(1, sStr, ":") - 3 

                    sPos = 2 

                Else 

                    tempPos = InStr(1, sStr, "-") 

                    If IsNumeric(Mid(sStr, tempPos + 1, 1)) Then 

                        jPos = InStr(sStr, "-") - 2 

                        bScore = True 

                    Else 

                        jPos = InStr(tempPos + 1, sStr, "-") 

                        bScore = IsNumeric(Mid(sStr, jPos + 1, 1)) 

                        jPos = jPos - 2 

                    End If 

                End If 

                If InStr(1, Mid(sStr, jPos + 1, 3 + sPos), "-", vbTextCompare) Then 

                    sScore = Mid(sStr, jPos + 1, 3 + sPos) 

                    bScore = True 

                    arrSplit = Split(sScore, "-") 

                    For i = 0 To 1 

                        arrRisultato(i + 1) = CLng(arrSplit(i)) 

                    Next i 

                ElseIf InStr(1, Mid(sStr, jPos + 1, 3 + sPos), ":", vbTextCompare) Then 

                    bTime = True 

                    dTime = TimeValue(Mid(sStr, jPos + 1, 3 + sPos)) + 1 / 24 

                End If 

                If CBool(jPos) Then 

                    sHome\_Team = Trim(Mid(sStr, Application.Max(iPos, 1), jPos - iPos)) 

                    kPos = iPos + Len(sHome\_Team) + 5 

                Else 

                    jPos = InStr(sStr, ":") 

                    If CBool(jPos) Then 

                        sHome\_Team = Mid(sStr, iPos, jPos - 2 - iPos) 

                    End If 

                    kPos = iPos + Len(sHome\_Team) + 7 

                End If 

                .Cells(iRiga, "G") = sHome\_Team 

                If IsNumeric(Right(sStr, 2)) Then 

                    vAway\_Rank = Right(sStr, 2) 

                    bRank = True 

                ElseIf IsNumeric(Right(sStr, 1)) Then 

                    vAway\_Rank = Right(sStr, 1) 

                    bRank = True 

                End If 

                sAway\_Team = Mid(sStr, kPos + sPos, 99) 

                If bRank Then 

                    sAway\_Team = Left(sAway\_Team, InStrRev(sAway\_Team, " ") - 1) 

                    bRank = False 

                End If 

                .Cells(iRiga, "I") = sAway\_Team 

                .Cells(iRiga, "J") = vAway\_Rank 

                If bTime Then 

                    .Cells(iRiga, "H") = dTime 

                End If 

                If bScore Then 

                    .Cells(iRiga, "Q").Resize(1, 2).Value = arrRisultato 

                End If 

                vAway\_Rank = "" 

                iPos = 0 

                jPos = 0 

                sPos = 0 

                bScore = False 

                bTime = False 

        End Select 

    End With

JumpMatch:

Next k

End Sub

'<<========

Ho controllato questo codice, utilizzando i dati di martedì 9 agosto e ho ottento i seguenti risultati:

Ho quindi scaricato i dati di oggi, che comprendono 30 partite, di cui 8 posticipate. Eseguendo il codice rivisto, ottengo la seguente tabella:

Potresti scaricare il mio file di prova Lupetto202207811.xlsm

===

Regards,

Norman

0 commenti

56 risposte aggiuntive

Anonimo

2022-08-12T07:52:47+00:00

Ciao Lupetto,

Mi ritrovo stufo, e non poco spaventato, della prospettiva di rispondere all'infinito a possibili cambiamenti quotidiani nella distribuzione o presenza/assenza di dati sul sito web.

Quando ho originariamente concepito il mio codice, questo era basato (come ho indicato) sui dati di un singolo giorno. Ora ho avuto l'opportunità di esaminare numerose differenze in un arco di dati di cinque giorni.

Ho quindi ripensato il mio approccio e riscriverò il codice in modo che possa ignorare tali variazioni intermittenti nei dati. In effetti, con il vantaggio di giocare con i dati per un periodo più lungo, sono più consapevole delle potenziali insidie e ho quindi escogitato una strategia logica per superare tali problemi.

Pertanto, in attesa della pubblicazione del mio nuovo codice, sospenderò la gestione dei problemi storici. Perdonatemi, quindi, se non rispondo a tutti i post di ieri sera.

Detto questo, potete naturalmente inviarmi il vostro fascicolo, il cui contenuto sarà trattato con assoluta discrezione. Inviami questo a:

normanPUNTOdavidPUNTOjonesCHIOCCIOLAoutlook,com

===

Regards,

Norman

In effetti hai ragione , mischiare lo storico passato con il futuro non va , ma siccome lo storico passato lo gia' inserito a mano si tratta quindi di guardare solo al futuro , sarebbe bene se si riesce a fare altrimenti a me gia va bene cosi , e mi scuso tantissimo se la mia euforia mi ha portare a perdere i freni e ti ho Bombardato incessantemente ma siccome ora sono in grado di operare , daro' fastidio il meno possibile .

Grazie.
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2022-08-12T07:34:09+00:00
Ciao Lupetto,

Mi ritrovo stufo, e non poco spaventato, della prospettiva di rispondere all'infinito a possibili cambiamenti quotidiani nella distribuzione o presenza/assenza di dati sul sito web.

Quando ho originariamente concepito il mio codice, questo era basato (come ho indicato) sui dati di un singolo giorno. Ora ho avuto l'opportunità di esaminare numerose differenze in un arco di dati di cinque giorni.

Ho quindi ripensato il mio approccio e riscriverò il codice in modo che possa ignorare tali variazioni intermittenti nei dati. In effetti, con il vantaggio di giocare con i dati per un periodo più lungo, sono più consapevole delle potenziali insidie e ho quindi escogitato una strategia logica per superare tali problemi.

Pertanto, in attesa della pubblicazione del mio nuovo codice, sospenderò la gestione dei problemi storici. Perdonatemi, quindi, se non rispondo a tutti i post di ieri sera.

Detto questo, potete naturalmente inviarmi il vostro fascicolo, il cui contenuto sarà trattato con assoluta discrezione. Inviami questo a:
```
norman**PUNTO**david**PUNTO**jones**CHIOCCIOLA**outlook,com
```
===

Regards,

Norman
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2022-08-12T06:26:58+00:00

Ciao Lupetto,

ma io vedo dell Query collegate a questo sito : www.bari91.com , cosa centrano ?

Ignora le query! Questi sono una reliquia del mio tentativo iniziale di creare un collegamento di query ai dati del sito Web e potrebbero essere eliminati rapidamente. Questo tentativo si è rivelato inutile a causa della struttura di quel sito web.

===

Regards,

Norman

Buongiorno Mr. Norman

mi sono studiato a fondo la macro e la tabella ed ho capito dove sta il problema , temporaneamente ho risolto risistemando cio che mancava sulla colonna A , inserendo una lettera D ( a folle ) tanto tutte quelle celle che contengono meno di 2 dati su 5 ( WDLLD ) i miei filtri del mio programma le scarta , e devo dire che gia' a me sta bene cosi perche' capisco che e' una cosa quasi impossibile reinserire le righe mancanti , in questo modo ho guadagnato tantissimo tempo rispetto al passato , ed ecco il risultato , che ne pensi ?
La risposta è stata utile?

0 commenti Nessun commento
Eliminata

Questa risposta è stata eliminata a causa di una violazione del codice di comportamento. La risposta è stata segnalata manualmente o identificata tramite il rilevamento automatizzato prima dell'esecuzione dell'azione. Per ulteriori informazioni, fai riferimento al codice di comportamento.

I commenti sono stati disattivati. Ulteriori informazioni