[Excel] Importare dati Web e problema formato testo

[Blackmore]

Ciao a tutti, ho alcuni problemi ad importare dati da una pagina web.

nella pagina ci sono Colonne con numeri in questo formato:
4:33:21
5:22:11
8:100:2

nei primi 2 casi me li trasforma in orari:
4.33.21
5.22.11

nel terzo caso mi fa la divisione perchè il secondo numero è > 60 e non ci sono più di 60 minuti...
0,04


come faccio a dire ad Excel di importarli tramite macro, così come sono senza formattarmeli come vuole lui????

Grazie!!!!!!

Edit: Dimenticavo di dire che le celle sono in formato testo

[Cricchia]

fai una prova registrando una macro: importi il file tramite il menù Dati => Importa dati esterni.. => Importa dati..

il passaggio 3 è quello importante: devi specificare che le colonne da importare sono da considerare "testo"

se poi vai nell'editor di vb, puoi vedere come è stata costruita la macro, l'istruzione importante per te dovrebbe essere

.TextFileColumnDataTypes = Array(2)

io ho provato creando in file di testo con i valori che hai indicato e facendo l'importazione specificando le colonne da importare come testo , a me risultano corrette!

cmq, puoi copiare il pezzo di macro registrata e adattarla.. ;)

[Blackmore]

Grazie mille per la risposta!!!!!!!
però non va bene ancora :(

facevo anche quella storia del registra macro e modificare le impostazioni ma non sono riuscito a trovare quella giusta.. :(

ho provato ad importare il file txt con quei valori e riesco a fare quello che devo fare...
ma devo riuscire ad importarli direttamente dal web,
ho preparato anche una pagina web simile a quella che interessa a me (http://img.freeforumzone.it/upload/760336_Prova.htm)

e questa è la macro che estrapola quella tabella

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://img.freeforumzone.it/upload/760336_Prova.htm", Destination:=Range _
("A1"))
.Name = "760336_Prova"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False
End With
ActiveWorkbook.Save
Sheets("Foglio1").Select


:wall: ma niente da fare