csv excele çevrilebilir mi?

[zetkatamet]

Arkadaşlar,
Csv dosyam virgülle ayrılmış. Normal excele nasıl çevirebiliriz?

 

[Orion1]

Veri sekmesinden Metinden csv seçip dosya yolunuda gösterip çekebilirsiniz.

 

[ÖmerBey]

Merhaba,
Dosyayı excel uygulamasıyla açıp farklı kaydet ile excelin desteklediği istediğiniz biçime dönüştürebilirsiniz.

 

[uGur_a]

Office 2016 kullanıyorum. CSV dosyasını excelde açtığım zaman bazı hücrelerin olması gereken sayının 1.000.000 katı olarak geliyor. Aynı dosya başka bir bilgisayarda Office 2013 ile açıldığında doğru değeri getiriyor. Daha önce bu sorunu yaşayan/çözen birileri var mıdır?

 

[veyselemre]

Office 2016 kullanıyorum. CSV dosyasını excelde açtığım zaman bazı hücrelerin olması gereken sayının 1.000.000 katı olarak geliyor. Aynı dosya başka bir bilgisayarda Office 2013 ile açıldığında doğru değeri getiriyor. Daha önce bu sorunu yaşayan/çözen birileri var mıdır?

Ondalık simgesinin nokta/virgül karmaşıklığından kaynaklanır. Bölgesel ayarlarınızda değişiklik yaparak veya excel seçeneklerinde ondalık ayırıcı/binlik ayırıcı ayarlarını değiştirerek deneyin.

Daha olmazsa csv dosyanızı ekleyin kodla alınabilir.

 

[zetkatamet]

Sn.Orion1, Sn.Ömerbey, Sn.Veyselemre dönüşleriniz için teşekkür ederim.
Sanırım işyerinde koruma sisteminden dolayı dosya ekleyemedim. Wetransfer ile csv dosyası gönderdim.
https://we.tl/t-liVUg7Sqzf

Sn.Orion1 ve Sn.Ömerbey çözümlerini denedim, csv deki aynı sonucu verdi. Müsait bir zamanınızda tekrar bakabilirmisiniz?

 

[Orion1]

#5nci mesajda sayın Veysel beyin çözümü işinizi görebilir.

 

[uGur_a]

Ondalık simgesinin nokta/virgül karmaşıklığından kaynaklanır. Bölgesel ayarlarınızda değişiklik yaparak veya excel seçeneklerinde ondalık ayırıcı/binlik ayırıcı ayarlarını değiştirerek deneyin.

Daha olmazsa csv dosyanızı ekleyin kodla alınabilir.

Veysel Bey, öncelikle yardımlarınız için teşekkür ederim. Söylediklerinizi gerçekleştirdim ancak aynı sorunu hala yaşıyorum.
Dosyanın linkini gönderiyorum. Yardımcı olabilir misiniz?

https://we.tl/t-GxQ1fj9ZXh

 

[veyselemre]

Şöyle bir deneyin.

Sub test()
    fname = "C:\users\user\desktop\vardiya.csv"
    Open fname For Input As #1    ' Open file.
    Cells.Clear

    Line Input #1, textline    ' Read line into variable.
    txt = Split(textline, ",")
    Cells(1, 1).Resize(, UBound(txt) + 1).Value = txt

    a = 2
    Do While Not EOF(1)    ' Loop until end of file.
        Line Input #1, textline    ' Read line into variable.

        txt = Split(textline, ",")

        For ii = 1 To 5
            Cells(a, ii).Value = Trim(txt(ii - 1))
        Next ii
        Cells(a, 6).Value = Replace(txt(5), Chr(34), "")

        For ii = 7 To 13
            Cells(a, ii).NumberFormat = ("#,##0.00")
            Cells(a, ii).Value = CDbl(txt(ii - 1))
            'Cells(a, ii).Value = CDbl(Replace(txt(ii - 1), ".", ","))
        Next ii

        Cells(a, 14).Value = Replace(txt(13), Chr(34), "")
       
        For ii = 15 To 16
            Cells(a, ii).Value = txt(ii - 1)
        Next ii

        a = a + 1

    Loop
    Close #1    ' Close file.

End Sub

 

[Haluk]

Alternatif olarak; Vardiya.csv dosyasından verileri, bir Schema dosyası yardımıyla ondalık ayraç karışıklığını (nokta-virgül) da ortadan kaldırarak ADO yöntemiyle alabiliriz.

Ekli dosyaların hepsini aynı klasöre çıkarttıktan sonra; Vardiya.csv dosyası kapalı durumdayken, Excel dosyasında sayfadaki butona tıklanması yeterlidir.


.

 

[uGur_a]

veyselemre Bey ve Haluk Bey yardımlarınız için teşekkür ederim. Ancak yine sonuç alamadım.

 

[Haluk]

........
....
Ancak yine sonuç alamadım.

10 No'lu mesajımın ekindeki dosya çalışıyor, bir sıkıntı yok....

Siz denediniz mi?

.

 

[assenucler]

Sayın Haluk,


Ben de düzgün çalıştı. Güzel bir örnek olarak "Arşiv" klasörüme ekledim. Emek ve katkınız için teşekkür ederim.

İyi haftalar ve bol kazançlar.

Saygılar.

 

[uGur_a]

10 No'lu mesajımın ekindeki dosya çalışıyor, bir sıkıntı yok....

Siz denediniz mi?

.

Haluk Bey, mesajınızda yer alan ek dosyasını indiremediğim (üyelik kısıtı) için deneyemedim.

 

[Haluk]

Haluk Bey, mesajınızda yer alan ek dosyasını indiremediğim (üyelik kısıtı) için deneyemedim.

O zaman niye 11 No'lu mesajınızda ".... sonuç alamadım" diyorsunuz ki ? Dosya doğru çalışıyor....

Altın Üyelik alıp, dosyayı indirebilirsiniz.

.

 

[uGur_a]

O zaman niye 11 No'lu mesajınızda ".... sonuç alamadım" diyorsunuz ki ? Dosya doğru çalışıyor....

Altın Üyelik alıp, dosyayı indirebilirsiniz.

.

Haluk Bey kusura bakmayın yanlış anlaşılmaya müsait bir cevap yazmışım. İlginiz ve desteğiniz için tekrar teşekkür ederim.