CSV

[ERRİC]

Selamlar excel de başında sıfır olan sayıları metin olarak kaydettikten sonra

farklı kaydet .csv dediğimizde sayının başındaki sıfırı csv de atıyor nasıl düzeltebilirim yardımcı olur musunuz.

 

[ERRİC]

Selamlar excel de başında sıfır olan sayıları metin olarak kaydettikten sonra

farklı kaydet .csv dediğimizde sayının başındaki sıfırı csv de atıyor nasıl düzeltebilirim yardımcı olur musunuz.[/QUOTE

yardım edecek kimse yok mu acaba

 

[Murat OSMA]

3 sütunluk veri için bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Excel_Dosyasını_Csv_Yap()
    Dim Rky As String, dosyam As String
    Dim Ert As Long, son_satır As Long, i As Long
    son_satır = Range("A65536").End(3).Row
    dosyam = ThisWorkbook.Path & "\Rky.csv"
    Ert = FreeFile
    Open dosyam For Output As #Ert
        For i = 1 To son_satır
            Rky = Cells(i, 1) & vbTab
            evn = Cells(i, 2) & vbTab
            mrt = Cells(i, 3) & vbTab
        Print #Ert, Rky, evn, mrt
        Next i
    Close #Ert
    Set ac = Workbooks.Open(dosyam)
    ac.Sheets(1).Columns(1).Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
    :=Array(Array(1, 2), Array(2, 2), Array(3, 2)), TrailingMinusNumbers:=True
    Columns.AutoFit
End Sub[/FONT]

Not: Kodlara otomatik kaydedip kapatma kodları ilave etmeyin.

 

[ERRİC]

Selamlar excel de başında sıfır olan sayıları metin olarak kaydettikten sonra

farklı kaydet .csv dediğimizde sayının başındaki sıfırı csv de atıyor nasıl düzeltebilirim yardımcı olur musunuz.

Çok teşekkür ederim elinize sağlık

 

[Murat OSMA]

Rica ederim, iyi akşamlar.