CSV Çekme ve düzenleme excel ?

[firatengur]

Arkadaşlar acil olaraktan sınavım war yarın nasıl 3gündür yapmaya çalışıyorum olmadı..

Şimdi olay şu benim 1adet csv dosyam mevcut

içeriği ise

17:55:49,03/11/2007,800,600,450,33,5500,0,
17:56:01,03/11/2007,800,600,450,33,5500,0
17:56:07,03/11/2007,800,600,450,33,5500,0

şeklinde verilerden oluşuyor.bildiğiniz üzere bu dosyayı excelde açtığımızda verilerin aralarındaki virgülleri referans alarak her veriyi farklı tabloya yazıdırıyor. Benim amacım ise burda yer alan belirli satırları mesela 800 600 yazan yerleri otomatik olarak 10a bölmek ve her satıra üst başlık ekleyebilmek mesela Saat satırına saat tarihe tarih gibi.. yardımcı olursanız sevinirim arkadaşlar.

 

[kulomer46]

Dosya ekleyiniz, yapılabilir gibi duruyor..

 

[firatengur]

walla hocam büyüksün dosya aşşağıda

 

[hamitcan]

Veri-Metni Sütunlara Dönüştür ile kolayca yapabilirsiniz.

 

[firatengur]

Veri-Metni Sütunlara Dönüştür ile kolayca yapabilirsiniz.

sanırım biraz daha ii okusan konuyu ii olur dostum..

 

[hamitcan]

sanırım biraz daha ii okusan konuyu ii olur dostum..

Arkadaşım konuyu okudum ve anladığım kadarıyla da cevapladım. Ama tarzınızı hiç beğenmedim.
Siteye üye olmadan forum kurallarını okumuş olmalıydınız. Cevabınızı gözden geçirip düzeltmenizi bekliyorum.

 

[firatengur]

Arkadaşım konuyu okudum ve anladığım kadarıyla da cevapladım. Ama tarzınızı hiç beğenmedim.
Siteye üye olmadan forum kurallarını okumuş olmalıydınız. Cevabınızı gözden geçirip düzeltmenizi bekliyorum.

dostum yanlış anladın sanırım beni bugün çok yoğunum açıklama yapamadım kusura bakma lütfen.

 

[Zeki Gürsoy]

Ayraçlar "," olmak zorunda mıdır? Virgül aynı zamanda ondalık ayracı olduğundan sorun çıkartıyor.

 

[veyselemre]

Sub dene()
    fname = "C:\Documents and Settings\Administrator\Desktop\H001.csv"
    If Dir(fname) <> "" Then
    Cells.ClearContents
        Open fname For Input As #1
        Do While Not EOF(1)
            Line Input #1, textline
            textline = Trim(textline)
            If textline <> "" Then
                sat = sat + 1
                a = Split(textline, ",")
                sut = 1
                For Each s In a
                    If (sut = 3 Or sut = 4) And IsNumeric(s) Then
                        Cells(sat, sut) = Val(s) / 10
                    Else
                        Cells(sat, sut) = s
                    End If
                    sut = sut + 1
                Next s
            End If
        Loop
        Close #1
    End If
End Sub

 

[halimasa]

Veri-Metni Sütunlara Dönüştür ile kolayca yapabilirsiniz.

Selamun aleyküm kardeşim öncelikle ramazanınız senin ve nezdinde tüm üyelerin mübarek olsun metni sütunlara dönüştür işlevini biliyordum ancak mesajından sonra (diğer kullanıcıyla olan münakaşa konuşmanız neticesinde) metni sütunlara dönüştürme olayına tekrar bakmam gerektiğini hissettim sonrasında burada farkettim çözüm çok yakınımdaymış csv düzenlemede çok işime yaradı

Diğer arkadaşlar içinde kısaca anlatmak gerekirse metni sütunlara dönüştür dediğinizde ayraç kısmını sekme değil de virgül olarak kullanırsanız bu kez bütün virgül kısımlarını sütuna dönüştürüyor ve düzenleme işlemimiz tamamlanıyor.