[Excel] Scaricare dati dal web

[mafo]

Ciao a tutti!

Domanda strana del giorno!!!

Come faccio a creare una macro per scaricare su excel (premendo un tasto) dei dati da una pagina web, magari inseriti in una tabella o altro.

Ad esempio, ogni giorno vado su un certo sito e mi devo copiare (selezionando il tetso & CTRL+C & CTRL-V) delle quotazioni azionarie!
Io vorrei poter fare questa operazione premendo un tasto da excel!

Grazie per la cortese attenzione

ciao ciao

[Alexsandra]

C'è già una discussione simile in atto quì http://www.pc-facile.com/forum/viewtopic.php?t=46965 se ti vuoi associare,divideremo il mal di testa

[Anthony47]

Io la farei tramite una query web; ad esempio la seguente macro e' stata registrata col macro recorder (senza nessun abbellimento e taglio di fronzoli) e importa da A1 i dati della pagina di borsa di Yahoo (titoli A-B):

Codice: Seleziona tutto

Sub Yahooweb()
    Cells.Select
    Selection.Clear
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://it.finance.yahoo.com/q/cq?s=@CONT.MI", Destination:=Range("A1"))
        .Name = "cq?s=@CONT.MI"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "20"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Application.CommandBars("External Data").Visible = False

End Sub

Ho seguito pedissequamente le istruzioni date dall’ help on line di excel (voce “query web”).

Quanto sta’ facendo luca2002 mi sembra una cosa diversa, piu' complicata, e non ancora messa a punto.

Ciao,

[mafo]

Grazie, semplice e funzionale!!!

[mafo]

Rilancio!

Qualcuno mi sa dire il codice per applicare la Query web ad una pagina personalizzata alla quale accedo solitamente con la mia user ID e password?

Posso inserirle in qualche modo nel codice in modo che l'accesso sia automatico?

[pj4ever]

Qualcuno sa come si risolve il problema della numerazione americana?

Facendo la query web della tabella centrale a questo link (http://www.rttnews.com/marketinfo/g_min ... e=earnings) vengono riportati dati errati, vuoi per il valore che per il formato (che mette il punto al posto della virgola).

Esiste un modo per ottenere la classica numerazione nostra con la virgola?

[Anthony47]

Se vuoi adattarti al formato dati: Strumenti ->Opzioni, tab Internzionale, nell' Area "Gestione numero" togli la spunta su "Utilizza separatori di sistema" e scegli "punto" come separatore decimale.

Adattare i dati al tuo formato sarebbe piu' complesso....

Ciao,

[pj4ever]

Ok grazie