Strana importazione numeri

Hai un problema con Excel?

Nuova discussione

Strana importazione numeri
di ilFonta (utente non iscritto) data: 29/03/2014 09:05:59
Salve amici.
E' da un bel po' di tempo che non vi contatto, tutto bene?

Ecco il mio problema.

Devo importare un file di testo con quattro colonne di soli numeri.
Nelle prime tre colonne abbiamo numeri con decimali maggiori di 1.
Il separatore dei decimali è il punto.
Questi numeri vengono importati correttamente da excel.

Nella quarta colonna ho numeri compresi tra 0 e 1 che invece vengono importati in maniera errata, o meglio, vengono importate proprio altre cifre.
Ad esempio il valore 0.0635 viene importato come 0,440972222222222 (con la virgola).

Sapete perchè e come posso fare per importare proprio 0.0635 oppure 0,0635?
Grazie
di lepat (utente non iscritto) data: 29/03/2014 10:24:14
come li importi ? allega il file di testo.

Strana importazione numeri
di ilFonta (utente non iscritto) data: 30/03/2014 13:48:10
ciao. Ti allego il file che dovrei importare. Ti informo che mi interessa solo la colonna sotto alla casella B1, ovvero dal numero 0.0635 a scendere. AAnche solo facendo copia/incolla dal testo a una qualsiasi casella il valore 0.0635 mi diventa 0,440972222222222. Ti allego anche la sezione della macro che importa il file. Grazie

Else
    Sheets("istogrammi").Select
    inputFile = dlgOpen.SelectedItems(1)
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & inputFile, Destination _
        :=Cells(1, 1))
        .Name = inputFile
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End If

di lepat (utente non iscritto) data: 30/03/2014 14:57:23
hai dimenticato l'allegato
Strana importazione numeri
di ilFonta data: 30/03/2014 20:34:20
Ciao. Credevo di averlo allegato correttamente e invece... L'ho allegato di nuovo. E' visibile ora? Grazie

di lepat (utente non iscritto) data: 30/03/2014 22:19:56
prova a importare con questa macro, modificando il nome del file

Sub Macro1()
    Workbooks.OpenText Filename:="C:	estprova.txt", Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array _
        (3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array( _
        10, 1), Array(11, 1), Array(12, 1)), DecimalSeparator:=".", ThousandsSeparator:= _
        ",", TrailingMinusNumbers:=True
End Sub

Vuoi Approfondire?