EXCEL Query Web data in numeri

[Francesco53]

Un saluto a tutto il Forum,
ho il seguente problema, quando scarico da web tramite una queryWeb, la data mi appare così:
Data
0,94619213
0,862858796
0,737858796
0,654525463
0,57119213
0,44619213
0,362858796
0,279525463
0,154525463
0,07119213
30.08.2011
27.08.2011
25.08.2011
0,987164352
0,862164352
0,778831019

Vorrei sapere come fare per estrapolare la data in forma corretta, come si può vedere
alcuni giorni la forma è corretta, altri mi restituisce un numero decimale, se anche
formatto le celle come data, il risultato è errato.
Grazie
Francesco

[Flash30005]

Prima dell'importazione definitiva
prova a mettere, tra le opzioni, "Disattiva Riconoscimento Data"

Ciao

[Francesco53]

Buongiorno Flash,
se intendi questo comando:
.WebDisableDateRecognition = False
è già presente nella query.
Ma il risultato è quello che vedi nel primo post.
Un caro saluto
Francesco

[Flash30005]

Si è proprio quello
ma se metti disable = False
fai l'opposto di ciò che vorresti ottenere
quindi

Codice: Seleziona tutto

WebDisableDateRecognition = True

Ciao

[Francesco53]

Ciao ho provato entrambi prima di risponderti ed il risultato è uguale.
Se vuoi ti posto l'intera macro se per te può essere di aiuto.
Francesco

[Francesco53]

Ho notato anche questo particolare:
se prima dell'avvio della macro io imposto le celle della data a data, poi ritrovo dove c'è la data
corretta ancora formato cella a data, mentre nelle celle in cui scrive il numero in decimale,
trasforma le proprietà delle celle in generale. Naturalmente se anche trasformo poi in formato
cella data, le date sono tutte sbagliate.
Francesco

[Flash30005]

Prova a registrare una macro mentre crei la queryweb mettendo appunto tra le opzioni, "Disattiva Riconoscimento Data"

oppure riporta qui l'intera macro in maniera da poterla testare

ciao

[Francesco53]

Ciao Flash,
ho provato a ricreare la query ma il risulatato non cambia.
Ti posto quella che utilizzo in modo da valutare in base alle tue conoscenze
se è una difficoltà superabile o no.

Codice: Seleziona tutto

Sub NuovoAggiornamentoE()
On Error GoTo errore
'Application.ScreenUpdating = False
'Application.Calculation = xlManual
    Worksheets("Appoggio").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.lottoced.com/superenalotto/Estrazioni.aspx" _
        , Destination:=Range("A1"))
        .Name = "dati"
        .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 = "6"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True 'False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
       
    End With
   
errore:
    If Err <> 0 Then
       MsgBox Err.Number & " " & Err.Description, vbCritical
    End If
   
    'Application.ScreenUpdating = True
    'Application.Calculation = xlCalculationAutomatic
End Sub

Grazie
Francesco

[Anthony47]

Credo che sul tuo PC il separatore orario sia settato su "punto", per cui ad esempio, 22.09.2011 viene interpretato come 22(h).09(min).2011(sec) e quindi tradotto in 22h42'31", che nel linguaggio excel corrisponde appunto al valore 0,94619213.
Il tuo elenco di numerini, con questo ragionamento, corrisponde alle date del 22/9, 20/9, 17/9, 15/9, 13/9/2011, etc
Sfuggono all' interpretazione "ora" i valori superiori a 23.xx.yyyy, perche' l' orario non puo' superare le 24.00; tali valori quindi rimangono "stringhe" e pertanto "sembrano" date.

Credo che per rimediare tu debba settare, nelle opzioni internazionali del pannello di controllo, il separatore di orario su ":" e quello di data su "."; se invece non ti interessa la conversione in data (nel formato excel) ma ti basta la visualizzazione della "stringa" tipo 22.09.2011 allora puoi lasciare il separatore di data su "/" o su "-" (altri simboli usuali), lasciando il "." come separatore delle migliaia.

Ciao

[Flash30005]

A questo punto non capisco
ho aperto una nuova cartella
rinomintato il foglio1 in "appoggio"
incollata la macro da te inviata e avviata
nella colonna C le date sono corrette tranne per il fatto che il separatore è un punto invece che slash
Però ti consiglierei questa
che evita di riportare campi non utili

Codice: Seleziona tutto

Sub Macro1()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.lottoced.com/superenalotto/Estrazioni.aspx", Destination:= _
        Range("A1"))
        .Name = "Estrazioni"
        .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 = "14"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub


Avrai solo 4 colonne e in A il campo data

Ciao

Edit: Penso che il post di Anthony scritto quasi contemporaneamente al mio risolva i tuoi problemi (che io non ho)

[Anthony47]

Per Flash: puoi replicare il problema modificando il setting del tuo separatore "orario" su "punto"

Ciao

[Francesco53]

Buongiorno,
ho utilizzato i consigli di entrambi e vi ringrazio per la vostra meravigliosa disponibilità e conoscenza che mettete
a disposizione di noi tutti.
Un caro saluto ad entrambi,
Francesco