Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Query Web

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

Query Web

Postdi MENU » 13/12/10 19:45

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
MENU
Newbie
 
Post: 4
Iscritto il: 01/11/09 10:31

Sponsor
 

Re: Query Web

Postdi Flash30005 » 13/12/10 23:30

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Query Web

Postdi MENU » 14/12/10 08:38

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
MENU
Newbie
 
Post: 4
Iscritto il: 01/11/09 10:31


Torna a Applicazioni Office Windows


Topic correlati a "Query Web":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti