Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Web Query con sito it.advfn.com problema importazione tabell

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Web Query con sito it.advfn.com problema importazione tabell

Postdi gascas » 09/08/17 16:04

Salve a tutti ho un piccolo problema con l'importazione di una tabella, praticamente dovrei importare su un foglio excel dei dati storici di quotazioni di alcuni titoli azionari italiani, però al momento che importo i dati, il risultato che mi viene fuori è del tutto inaspettato.

La versione windows del mio pc è windows 7 professional e la versione di office è la 2010.

La procedura che seguo è la seguente: dal foglio di excel vado su "dati" clicco su carica dati "da web", a questo punto si apre il classico browser di excel e inserisco il seguente indirizzo del sito
http://it.advfn.com/mercati/BIT/sole24o ... ti-storici
seleziono la tabella con i dati e clicco su importa, seleziono la cella e clicco su ok, a questo punto vengono importati i dati e sul foglio al posto della tabella selezionata, mi vengono importati altri dati tipo questi:
BIT BIT BIT BIT BIT BIT BIT BIT BIT BIT
S24 JUVE NOKIA AGL NRST ASR NET AXEL A2A NPI
Sole24Ore Juve Nokia Corp.. Autogrill Neurosoft A.S. Roma Net Insura.. Axelero A2A Notorious ..

Domanda, cosa sbaglio?
La cosa strana è che ieri avevo provato per la prima volta a importare i dati e ci riuscivo, oggi non va più.
Il sito mi sembra sempre uguale, è tutto il giorno che provo ma niente, non so proprio quale possa essere il problema.
Spero possiate aiutarmi.
gascas
Newbie
 
Post: 1
Iscritto il: 09/08/17 15:47

Sponsor
 

Re: Web Query con sito it.advfn.com problema importazione ta

Postdi PcBase » 10/08/17 22:24

Ho specificato in opzioni: solo formato Rtf
Prova così

Codice: Seleziona tutto
Option Explicit

Sub ImportaDati()

    Sheets.Add After:=ActiveSheet
    DoEvents
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://it.advfn.com/mercati/BIT/sole24ore-S24/storico/ulteriori-dati-storici" _
        , Destination:=Range("$A$1"))
        .Name = "ulteriori-dati-storici"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingRTF
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 133
Iscritto il: 24/02/11 23:26

Re: Web Query con sito it.advfn.com problema importazione ta

Postdi Anthony47 » 15/08/17 21:00

La macro di patel (l'hai provata, vero?) dovrebbe restituirti tutto il contenuto della pagina web.
Se vuoi solo il contenuto della tabella "Serie storiche Sole24Ore" allora modifica la macro in questo modo:
Codice: Seleziona tutto
Sub ImportaDati()
'by patel, http://www.pc-facile.com/forum/viewtopic.php?f=26&t=108762
    Sheets.Add After:=ActiveSheet
    DoEvents
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://it.advfn.com/mercati/BIT/sole24ore-S24/storico/ulteriori-dati-storici" _
        , Destination:=Range("$A$1"))
        .Name = "ulteriori-dati-storici"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
'>> Modifiche Anthony:
'        .WebSelectionType = xlEntirePage
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "1"
'<<
        .WebFormatting = xlWebFormattingRTF
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub
La macro crea un nuovo foglio dove sara' importata solo la tabella suddetta; dovrebbe essere sufficiente eseguirla una sola volta, poi con tasto dx sull'intervallo dati /Aggiorna si possono ottenere i valori aggiornati.

Tuttavia tieni presente che le WebQuery non sono idonee per importare tabelle create dinamicamente, perche' quella che oggi e' la tabella #1 domani puo' essere la #2 o qualsiasi altro numero.

Insomma sarebbe da preferire la macro di patel, che importa tutto, e poi con formule o altri metodi selezioni dal tutto i dati che ti servono.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 14879
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Web Query con sito it.advfn.com problema importazione tabell":


Chi c’è in linea

Visitano il forum: Nessuno e 29 ospiti