Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Wind Tre 'accende' il 5G Standalone in Italia: si apre una nuova era basata sui servizi
Wind Tre 'accende' il 5G Standalone in Italia: si apre una nuova era basata sui servizi
Con la prima rete 5G Standalone attiva in Italia, WINDTRE compie un passo decisivo verso un modello di connettività intelligente che abilita scenari avanzati per imprese e pubbliche amministrazioni, trasformando la rete da infrastruttura a piattaforma per servizi a valore aggiunto
OPPO Find X9 Pro: il camera phone con teleobiettivo da 200MP e batteria da 7500 mAh
OPPO Find X9 Pro: il camera phone con teleobiettivo da 200MP e batteria da 7500 mAh
OPPO Find X9 Pro punta a diventare uno dei riferimenti assoluti nel segmento dei camera phone di fascia alta. Con un teleobiettivo Hasselblad da 200 MP, una batteria al silicio-carbonio da 7500 mAh e un display da 6,78 pollici con cornici ultra ridotte, il nuovo flagship non teme confronti con la concorrenza, e non solo nel comparto fotografico mobile. La dotazione tecnica include il processore MediaTek Dimensity 9500, certificazione IP69 e un sistema di ricarica rapida a 80W
DJI Romo, il robot aspirapolvere tutto trasparente
DJI Romo, il robot aspirapolvere tutto trasparente
Anche DJI entra nel panorama delle aziende che propongono una soluzione per la pulizia di casa, facendo leva sulla propria esperienza legata alla mappatura degli ambienti e all'evitamento di ostacoli maturata nel mondo dei droni. Romo è un robot preciso ed efficace, dal design decisamente originale e unico ma che richiede per questo un costo d'acquisto molto elevato
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 20-12-2016, 13:29   #1
UwU
Member
 
L'Avatar di UwU
 
Iscritto dal: Feb 2014
Messaggi: 201
[EXCEL VBA] Estrarre dati da sito web

Salve a tutti ragazzi del forum, vi scrivo per chiedervi se qualcuno che sa programmare in VBA mi aiuterebbe ad estrarre dati da questa pagina web: http://www.oddsportal.com/soccer/eng...gue/standings/
PREMESSA:
Ho scritto una formula in excel che dentro una cella mi crea un link come quello, ed io cliccandoci vado diretto alla pagina web.

Ora ciò che vorrei fare è estrarre i dati scritti su HOME e su AWAY e riportarli in un foglio di calcolo. Ho già provato tramite una Query ma non me li estrae, perché non li vede, vede solo la classifica totale, oppure facendo: "Dati" >> "da Web", stessa cosa, non mi permette di copiarli. Ho anche provato registrando una macro, ma niente ancora... Credo resti solo il VBA, ma io non lo conosco come linguaggio di programmazione, mi potete aiutare?



Grazie infinite
UwU è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2016, 15:54   #2
UwU
Member
 
L'Avatar di UwU
 
Iscritto dal: Feb 2014
Messaggi: 201
Salve a tutti, sono riuscito nell'intento grazie al registra macro e questo è il risultato:
Codice:
Sub EstrDati_a_casa_oggi()
'
' EstrDati_a_casa_oggi Macro
'

'
    ActiveWorkbook.Queries.Add Name:="Tabella1", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Origine = Web.Page(Web.Contents(""http://www.oddsportal.com/ajax-standings/tab/table/table_sub/home/t/jZWp0BeC/ts/f9KQrnNJ/""))," & Chr(13) & "" & Chr(10) & "    Data0 = Origine{0}[Data]," & Chr(13) & "" & Chr(10) & "    #""Modificato tipo"" = Table.TransformColumnTypes(Data0,{{""#"", Int64.Type}, {""Team"", type text}, {""MP"", Int64.Type}, {""W"", Int64.Type}, {""D"", Int64.Type}, {""L"", Int64.Type}, {""G"", " & _
        "type text}, {""Pts"", Int64.Type}, {""Form"", type text}})," & Chr(13) & "" & Chr(10) & "    #""Rimosse colonne"" = Table.RemoveColumns(#""Modificato tipo"",{""#"", ""MP"", ""G"", ""Pts"", ""Form""})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Rimosse colonne"""
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Tabella1" _
        , Destination:=Range("$B$2")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Tabella1]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tabella1"
        .Refresh BackgroundQuery:=False
    End With
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
End Sub
solo che estrae da un link che gli ho messo io, ed invece vorrei che estraesse da un link dentro una cella che cambio a mio piacimento, come faccio a modificare il parametro?
UwU è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2016, 17:55   #3
UwU
Member
 
L'Avatar di UwU
 
Iscritto dal: Feb 2014
Messaggi: 201
sono riuscito a risolvere guardando questo video https://www.youtube.com/watch?v=ZJ30U0qw850 e creando perciò una Web Query Dinamica
UwU è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Wind Tre 'accende' il 5G Standalone in Italia: si apre una nuova era basata sui servizi Wind Tre 'accende' il 5G Standalone in Italia: s...
OPPO Find X9 Pro: il camera phone con teleobiettivo da 200MP e batteria da 7500 mAh OPPO Find X9 Pro: il camera phone con teleobiett...
DJI Romo, il robot aspirapolvere tutto trasparente DJI Romo, il robot aspirapolvere tutto trasparen...
DJI Osmo Nano: la piccola fotocamera alla prova sul campo DJI Osmo Nano: la piccola fotocamera alla prova ...
FUJIFILM X-T30 III, la nuova mirrorless compatta FUJIFILM X-T30 III, la nuova mirrorless compatta
Oltre le GPU: NVIDIA annuncia NVQLink, ...
Samsung lancia il Team Galaxy Italia per...
Magic Leap: indistinguibili dai normali ...
Aruba Cloud: trasparenza sui costi e str...
Quando il cloud si blocca e resti al fre...
Integrare per competere, la sfida digita...
Leggenda del rally e modernità: S...
La Python Software Foundation rinuncia a...
Full HD e QLED, è in offerta un TV da 32...
Honda ha rilasciato un nuovo video sul p...
Resident Evil Requiem: arriva su Switch ...
Marshall Acton III in promo su Amazon in...
2 portatili che costano poco ma vanno be...
Smartphone potenti sotto i 300€: ecco i ...
28 Offerte Amazon da non perdere: smartp...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 18:24.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Served by www3v