6 metodi Gol/Gol in un foglio

FluidoBlu

Posted on 14/2/2018, 18:03

.

Advanced Member

Group: Member

Posts: 2,746

Status

CITAZIONE (nicoser71 @ 14/2/2018, 08:13)

Ciao Fluido
posso sapere dove prendi i risultati e magari avere la macro con cui li scarichi?
Grazie comunque

ciao.
i risultati di questo foglio si prendono da tipsterarea. il link esatto me lo imposto io, solitamente al giorno precedente.
ad esempio il link di ieri è questo: http://tipsterarea.com/matches/date-13-02-2018
la variabile è la data, quindi mi imposto nella cella A1 concatenando la parte di stringa che è fissa http://tipsterarea.com/matches/date- & la formula
=testo(oggi()-1;"GG-MM-AAAA") e viene fuori quindi il link completo di cui sopra.

poi nel codice:
Sub ris()
myurl = Range("A1").Value 'il riferimento della cella che compone il link
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & myurl _
, Destination:=Range("G5")) 'la cella in cui vuoi scaricare la pagina
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

tutto questo naturalmente nel foglio attivo, altrimenti devi aggiungere una riga subito sotto la prima: sheets("fogliochevuoi").select

.

Plonk

Posted on 14/2/2018, 19:08

.

Member

Group: Autorizzato a Scrivere

Posts: 639

Status

Fluido ma se volessi studiare un pò il vba da dove dovrei iniziare, cioè tipo siti manuali potresti indirizzarmi, se non ti secchi.

.

nicoser71

Posted on 15/2/2018, 08:24

.

Member

Group: Member

Posts: 502

Status

CITAZIONE (fluidoblu69 @ 14/2/2018, 18:03)

ciao.
i risultati di questo foglio si prendono da tipsterarea. il link esatto me lo imposto io, solitamente al giorno precedente.
ad esempio il link di ieri è questo: http://tipsterarea.com/matches/date-13-02-2018
la variabile è la data, quindi mi imposto nella cella A1 concatenando la parte di stringa che è fissa http://tipsterarea.com/matches/date- & la formula
=testo(oggi()-1;"GG-MM-AAAA") e viene fuori quindi il link completo di cui sopra.

poi nel codice:
Sub ris()
myurl = Range("A1").Value 'il riferimento della cella che compone il link
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & myurl _
, Destination:=Range("G5")) 'la cella in cui vuoi scaricare la pagina
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

tutto questo naturalmente nel foglio attivo, altrimenti devi aggiungere una riga subito sotto la prima: sheets("fogliochevuoi").select

Grazie Fluido come al solito gentilissimo!!
Ci smanetto un po'.

.

gladiatoretuning

Posted on 15/2/2018, 11:49

.

Advanced Member

Group: Member

Posts: 1,200

Status

CITAZIONE (fluidoblu69 @ 14/2/2018, 18:03)

ciao.
i risultati di questo foglio si prendono da tipsterarea. il link esatto me lo imposto io, solitamente al giorno precedente.
ad esempio il link di ieri è questo: http://tipsterarea.com/matches/date-13-02-2018
la variabile è la data, quindi mi imposto nella cella A1 concatenando la parte di stringa che è fissa http://tipsterarea.com/matches/date- & la formula
=testo(oggi()-1;"GG-MM-AAAA") e viene fuori quindi il link completo di cui sopra.

poi nel codice:
Sub ris()
myurl = Range("A1").Value 'il riferimento della cella che compone il link
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & myurl _
, Destination:=Range("G5")) 'la cella in cui vuoi scaricare la pagina
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

tutto questo naturalmente nel foglio attivo, altrimenti devi aggiungere una riga subito sotto la prima: sheets("fogliochevuoi").select

approfitto per togliermi un dubbio sul file che vorrei creare sul tennis
quindi se io usassi questo codice impostando il link del sito per prendere le statistiche dei giocatori funzionerebbe? 🤔🤔

.

Æther

Posted on 17/2/2018, 11:16

.