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

[gascas]

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.

[PcBase]

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

[Anthony47]

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