csv çevirme

[gozben]

excel kitapçığındaki örneğin sayfa1 sekmesini herhangi bir program kullanmadan kendi içinde csv formatına çevirme imkanımız var mı ? teşekkürler

 

[Zeki Gürsoy]

"Farklı kaydet" seçenekleri işinize yaramıyor mu?

 

[gozben]

malesef o işime yaramıyor çünkü ben örneğin 3 sütundan oluşan adı soyadı, sayfa sayısı ve kitap adı seklindeki bir listeyi virgülle ayrılmış formattaki listeye dönüştürmek istiyorum.

 

[Zeki Gürsoy]

Deneyin...

Sub CSV_()
With ActiveSheet
    Open "c:\report.csv" For Output As #1
        For i = 1 To .[a10000].End(3).Row
            Write #1, .Cells(i, 1), .Cells(i, 2), .Cells(i, 3)
        Next
    Close #1
End With
End Sub

 

[gozben]

tam istediğim gibi ancak tırnak işaretlerinin olmaması gerekiyor bunları kaldırmamız mümkün mü ?

 

[Zeki Gürsoy]

Aşağıda "3" değeri, yazılacak sütun sayısını belirtir. 5 yazarsanız 5 sütun yazılacak demektir.

Sub CSV_2()
Dim arr(1 To [COLOR=Blue][B]3[/B][/COLOR]), d$, i&, j%

With ActiveSheet

    Open "c:\report.csv" For Output As #1
    
        For i = 1 To .[a10000].End(3).Row
        
            For j = 1 To UBound(arr)
                arr(j) = .Cells(i, j)
            Next
            d = Join(arr, ",")
            
            Print #1, d
        Next
        
    Close #1
    
End With

End Sub

 

[gozben]

çok çok teşekkür ederim. Tam istediğim buydu. İyi çalışmalar

 

[Zeki Gürsoy]

Rica ederim. İyi çalışmalar..

 

[mersilen]

Merhabalar

Kodu çalıştırdığım zaman run time error 75 hatası veriyor,

kodu kendi yolunun yanına yeni dosya olarak yazacak şekilde revize edebilir misiniz?

 

[Murat OSMA]

Alternatif

 

[mersilen]

Murat bey teşekkürler,
uzun süredir aradığım kodlardı.
Kodlarda düzenleme yapabilir misiniz?Ben denedim olmadı.

1-Export Yolunu aşağıdaki şekilde yaptım hata verdi.
Filename = ThisWorkbook.Path & "\deneme "& Date & " " & Format(Time, "hh.mm.ss")

2- Export kısmında seçmek yerine en alt satır en son sütun şeklinde olabilir mi?

3-Cep telefonundaki ilk "0" Ları almıyor, düzelebilir mi? Benim eklediğim dosyada görünsün diye metin formatında ,aslında sayı formatında olması lazımdı

4-İmport Kısmında dosya yolu seç özelliği (dosyayı seç) konabilir mi?

Bu dosyayı samsung kies programından kişileri csv formatında dşarı alıp
excelde dosyayı düzenleyip eklemeler yaptıktan sonra (1000-2000 kişi)
exceli csv ye çevirip
csv yi tekrar kies programı ile cep telefonuna yüklemede kullanacağım.(Sizin yaptığınız export kısmı şu an için çalışıyor.)

 

[Murat OSMA]

En önemli ve ana talebiniz 3 numaralı istediğiniz. Diğer kalanları siz halledebilirsiniz.


Telefon numaralarındaki "0" sıfırları da alması için benim size önerim şöyle olur;

• Export sayfasındaki hücre biçimini Metin olarak ayarlayın.
• Export için bu kodları kullanın;

[FONT="Trebuchet MS"]Sub ExportRange()
    Dim Filename$, NumRows&, NumCols%, r&, c%, Data
    Dim ExpRng As Range
    Set ExpRng = Application.Intersect(Selection, ActiveSheet.UsedRange)
    NumCols = ExpRng.Columns.Count
    NumRows = ExpRng.Rows.Count
    Filename = ThisWorkbook.Path & "\Rky.csv"
    Open Filename For Output As #1
        For r = 1 To NumRows
            For c = 1 To NumCols
                Data = ExpRng.Cells(r, c).Value
                If IsNumeric(Data) Then Data = Val(Data)
                If IsEmpty(ExpRng.Cells(r, c)) Then Data = ""
                If c <> NumCols Then
                    Write #1, [COLOR="Red"]Format$(CStr(Data), "0000 0000000");[/COLOR]
                        Else
                    Write #1, [COLOR="red"]Format$(CStr(Data), "0000 0000000")[/COLOR]
                End If
            Next c
        Next r
    Close #1
    MsgBox ExpRng.Count & " cells were exported to " & Filename, vbInformation
End Sub[/FONT]

• Oluşan CSV dosyasını açın ve Module ekleyerek, bu kodları yapıştırıp çalıştırın.

[FONT="Trebuchet MS"]Sub Emre()
    For i = 1 To Range("A65536").End(3).Row
        Cells(i, 1) = Replace(Cells(i, 1), " ", "")
    Next i
End Sub[/FONT]

• Şimdi dosyayı kaydedip kapatın ve sonra tekrar açın.

Telefon numaralarının başında 0 olduğunu göreceksiniz.

İstediğiniz oldu sanırım.


Not: Import ederken, Import edilecek alanın da hücre biçiminin Metin olması gerekir.

 

[mersilen]

Murat bey teşekkür ederim.

Cep tlf-Samsung Kies-csv-excel-csv-kies-cep telefonu döngüsü sorunsuz olarak çalışıyor.

 

[Murat OSMA]

Rica ederim.

Bu konunun çözüme kavuşmasına sevindim.

Iyi akşamlar.

 

[sinnernekolens]

Sn.mersilen yapmış olduğun dosyanın bir örneğini bizimle de paylaşabilir misin bende çok araştırmıştım ama ne yazık ki bulamamıştım eğer çalışırsa çok işime yarayacak. Google drive de paylaşırsan sevinirim. şimdiden teşekkürler.

 

[mersilen]

Sn.mersilen yapmış olduğun dosyanın bir örneğini bizimle de paylaşabilir misin bende çok araştırmıştım ama ne yazık ki bulamamıştım eğer çalışırsa çok işime yarayacak. Google drive de paylaşırsan sevinirim. şimdiden teşekkürler.

Merhaba
Dosyayı aşağıdaki linke ekledim.

http://www.excel.web.tr/f48/cep-tel...-yedekleme-guncelleme-t139478.html#post756436

 

[sinnernekolens]

merhaba linki göremedim sanırım eklemeyi unuttunuz