Chybný formát čísla v CSV Vyřešeno

[Parek228]

Zdravím všechny,

hledal jsem dlouho na internetu a jsem bezradný, tak doufám, že najdu pomoc zde.

Mám textový soubor s oddělovači Microsoft Excelu (.csv). Když ho otevřu normálně excelem, tak místo čísel mám tyhle divné čísla zmixované římskými číslicemi (viz. příloha). Potřeboval bych, aby se to zkonvertovalo na číslo. Snažil jsem se i v novém excelu vložit data z textu a měnil jsem tam z obecný na text, ale bez úspěchu.

Hlavně jsem tohle řešil asi před rokem a našel jsem nějaké video, ale bohužel si nevzpomenu, jak jsem to vyřešil a kde jsem našel to video.

Děkuji Vám za případnou pomoc.

Divná čísla.PNG (8.25 KiB) Zobrazeno 2078 x

[Reklama]

[Uziv00]

Excel to přebírá jako datový formát. Takže formát buňky změň na číslo. A s formátem musí být zahrnuta i desetinná tečka (normálně máme čárku).

[Parek228]

Excel to přebírá jako datový formát. Takže formát buňky změň na číslo. A s formátem musí být zahrnuta i desetinná tečka (normálně máme čárku).

Otevřel jsem to v Excelu, buňky jsem změnil na číslo a změnil tečku na čárku a nepomohlo.

[Uziv00]

To musíš ošéfovat někde během toho převodu.

[Parek228]

Bohužel to nejde. Do přílohy dávám obrázek, jak to dělám, ale bohužel bez úspěchu. Přemýšlím, zda to nemůže být tím formátem UTF-8?

[sim20]

Excel očekává desetinnou čárku.

Nevím kde se to v Exelu nastavuje, takže já bych to csv otevřel v Poznámkovém bloku a nahradil všechny tečky za čárky.
(Úpravy -> Nahradit -> Nahradit vše)

[atari]

Dej sem to csv.

[Parek228]

Koukám, že když to CSV otevřu v poznámkovém bloku, tak i tam mám ty divné číslice. Ale co si tak pamatuji, tak jsem je měl i dříve a nějakým způsobem jsem to zkonvertoval.

Zkusil jsem tvojí radu a taky bohužel bez úspěchu.

Dodatečně přidáno po 10 minutách 29 vteřinách:

Dej sem to csv.

Link na stažení: https://uloz.to/file/0P1w0XnpiUJ9/pc-help-rar

[elninoslov]

Na Vašom poslednom obrázku označte číselné stĺpce (prvý číselný, Shift + posledný číselný). Formát dajte Všeobecný. Je tam tlačítko Upřesnit a pod ním zmeňte oddeľovač tisícov na "," a oddeľovač desatín na "." a že znamienko mínus nieje na konci.

EDIT: Aha, pardon, je to už v tých CSV, veď to píšete. Takže zlý výstup z dotyčného SW.

[Parek228]

Zkoušel jsem a bohužel zase bez úspěchu.

No, ona mě štve jedna věc. Já jsem před nějakou dobou pracoval s těmito daty a převedl jsem je z CSV do excelu a opravil jsem tyto problémy (našel jsem nějaké video na youtube). Ale nemůžu si vzpomenout, jak jsem to vše spravil a kde najdu to video.

Co si tak matně pamatuji, tak jsem možná naexportoval data a potom jsem s nimi něco dělal nebo jsem je nahradil, fakt nevím.

Ale i tak děkuji za rady.

[Zivan]

Co zadat nazev toho zarizeni/programu, ze ktereho ty data jsou a k tomu neco jako "CSV format problem" do Googlu?

[elninoslov]

Makro na prevod:

Kód: Vybrat vše

Sub Prevod()
Dim R As Long, D(), S() As String, i As Long, x As Byte, n As Byte, CE As Long, COK As Long, bPrevod As Boolean, C As Double

    With ThisWorkbook.ActiveSheet
        R = .Cells(Rows.Count, 1).End(xlUp).Row - 9
        D = .Cells(10, 3).Resize(R, 20).Value2
        On Error Resume Next
        For i = 1 To R
            For x = 1 To 20
                If Not IsEmpty(D(i, x)) Then
                    If Not IsNumeric(D(i, x)) Then
                        S = Split(D(i, x), ".")
                        If UBound(S) = 1 Then
                            If Not IsNumeric(S(0)) Then S(0) = WorksheetFunction.Arabic(S(0))
                            If Not IsNumeric(S(1)) Then S(1) = WorksheetFunction.Arabic(S(1))
                            C = Val(S(0) & "." & S(1))
                            bPrevod = Err.Number = 0
                        Else
                            bPrevod = False
                        End If
                        If bPrevod Then D(i, x) = C: COK = COK + 1 Else: CE = CE + 1: Err.Clear
                    End If
                End If
            Next x
        Next i
        .Cells(10, 3).Resize(R, 20).Value2 = D
        MsgBox "Prevedených hodnôt : " & COK & vbNewLine & "Neprevedených hodnôt : " & CE
    End With
End Sub