Condividi:        

EXCEL Query Web data in numeri

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

EXCEL Query Web data in numeri

Postdi Francesco53 » 23/09/11 22:27

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
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: EXCEL Query Web data in numeri

Postdi Flash30005 » 24/09/11 11:57

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

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL Query Web data in numeri

Postdi Francesco53 » 24/09/11 13:31

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
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Query Web data in numeri

Postdi Flash30005 » 24/09/11 13:44

Si è proprio quello
ma se metti disable = False
fai l'opposto di ciò che vorresti ottenere
quindi
Codice: Seleziona tutto
WebDisableDateRecognition = True


Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL Query Web data in numeri

Postdi Francesco53 » 24/09/11 13:59

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
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Query Web data in numeri

Postdi Francesco53 » 24/09/11 15:09

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
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Query Web data in numeri

Postdi Flash30005 » 24/09/11 16:07

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL Query Web data in numeri

Postdi Francesco53 » 24/09/11 21:29

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
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Query Web data in numeri

Postdi Anthony47 » 25/09/11 00:26

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL Query Web data in numeri

Postdi Flash30005 » 25/09/11 00:32

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)
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL Query Web data in numeri

Postdi Anthony47 » 25/09/11 00:38

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

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL Query Web data in numeri

Postdi Francesco53 » 25/09/11 11:03

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
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL Query Web data in numeri":


Chi c’è in linea

Visitano il forum: Nessuno e 31 ospiti