Query Web

[MENU]

Buonasera a tutti, nonostante sia iscritto da un po' di tempo non ho mai formulato richieste perchè girovagando per il forum ho sempre trovato una risposta alle mie esigenze, ma a questo problema che vengo ad esporVi non ho proprio trovato risposta:
Devo importare dei dati dal seguento sito:
http://www.betexplorer.com/soccer/alban ... 1/results/
allora il seguente sito gestisce le date usando come separatore dei gg,mm ed aaaa (es:28.11.2010) il punto e lo stesso fa con le quote (stiamo parlando di calcio scommesse) che in fase di importazione risultano completamente sballate in quanto importa le date tipo 0,531597222 che dovrebbe corrispondere a 12/12/2010, ora io ho provato a formattare le celle come testo, personalizzato usando il formato gg/mm/aaaa, generale ma nienta da fare, ho disattivato il riconoscimento data nel pannello delle query niente, ho cambiato le impostazioni di excel niente.
Prima di desistere completamente, volevo sapere se sendo Voi, esiste una soluzione a questo problema
Ringrazio anticipatamente per eventuali risposte.
MENU alias Nunzio

[Flash30005]

Ciao Menu e benvenuto nel Forum

Apri un nuovo file
inserisci in un modulo questa macro e avviala

Codice: Seleziona tutto

Sub ImportaDatiWeb()

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.betexplorer.com/soccer/albania/albanian-1st-league-2010-2011/results" _
        , Destination:=Range("A1"))
        .Name = "results"
        .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 = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = True
        .Refresh BackgroundQuery:=False
    End With

    Rows("1:22").Select
    Range("A22").Activate
    Selection.Delete Shift:=xlUp
    Range("A1:F1").Select
    Columns("B:B").EntireColumn.AutoFit
    Range("A1:F1").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Selection.UnMerge
    Rows("99:127").Select
    Selection.Delete Shift:=xlUp
    Columns("A:F").Select
    Range("A78").Activate
    Columns("A:F").EntireColumn.AutoFit
    ActiveWindow.ScrollRow = 1
    Range("A1:F1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
End Sub


Se qualche formato dato non è ancora soddisfacente
possiamo intervenire ulteriormente

Fai sapere
Ciao

[MENU]

Grazie Flash per la risposta, ho provato la macro da te elaborata ma i risultati sono gli stessi di prima, ti allegao il file
http://www.easy-share.com/1913279528/web.xlsm
noterai che le date alcune le importa correttamente altre no stessa cosa dicasi per le quote.
Se il problema non trova soluzioni lascia stare,anche perchè sono consapevole che le query web spesso e volentiri fannole bizze
Grazie
MENU alias Nunzio