.csv formatına çevirmek?

[efekentli46]

Merhaba arkadaşlar, alt alta sıralanmış txt formatında yaklaşıl 500 kişilik bir kişi listem var.

a@...com
b@....com

şeklinde. Bunları yeni outlook hesabıma aktarmak istedim ama sadece csv formatını destekliyor. Eski listem olduğu için sadece elimde txt formatı var. O zamanlar temiz dursun diye o şekilde ayıklamıştım.

Exceli açıp txt dosyasını seçip .csv olarak kaydediyorum ama outlook boş veya yanlış diyor. Zaten .csv olarak kaydetsemde aynı txt gibi alt alta sıralı olarak kaydediyor. csv açınca farklı birşey görmüyorum.

Örnek bir outlook csv dosyası: (ad,soyad gibi bilgiler zorunlu değil hotmail için,sadece mail bilgisi yetiyor)

http://www.dosya.tc/server31/0D3fMw/OutlookContacts.rar.html

Buna uygun şekilde nasıl convert yani dönüştürebilirim? yardımcı olursanız sevinirim. teşekkürler, iyi çalışmalar

 

[hamitcan]

Aşağıdaki linkte konu görsel bir şekilde anlatılmış; denemenizi öneririm.
http://bildirgec.org/yazi/excel-den-outlook-a-kisi/

 

[efekentli46]

Aşağıdaki linkte konu görsel bir şekilde anlatılmış; denemenizi öneririm.
http://bildirgec.org/yazi/excel-den-outlook-a-kisi/

desteğiniz için teşekkür ederim ama benim bahsettiğim hotmail outlook, yani outlook.com. onun üzerinde deniyorum ve istediği gibi olmadığı için görmüyor.

 

[efekentli46]

Sorunum hala devam etmektedir, yardımcı olursanız sevinirim.

 

[ÖmerBey]

Linkteki dosyayı dener misiniz?
Text dosyasından sadece posta adreslerinin olduğu veriyi alıp örnek dosyanızda belirttiğiniz şekle dönüştürebilirsiniz.
http://s3.dosya.tc/server24/wzXUG2/OutlookContacts.xls.html

Dosyanın kayıtlı olduğu yerde OutlookContacts.csv isminde dosya oluşacaktır.

 

[efekentli46]

Linkteki dosyayı dener misiniz?
Text dosyasından sadece posta adreslerinin olduğu veriyi alıp örnek dosyanızda belirttiğiniz şekle dönüştürebilirsiniz.
http://s3.dosya.tc/server24/wzXUG2/OutlookContacts.xls.html

Dosyanın kayıtlı olduğu yerde OutlookContacts.csv isminde dosya oluşacaktır.

Listeyi dönüştür dediğimde anlık olarak gördüğüm kadarıyla başarılı bir şekilde dönüştürüyor fakat 1 sn bile olmadan boş bir excel sayfasına yönlendiriyor ve kaydetmek vs mümkün olmuyor. Şuan 2007 kullanıyorum bu fark eder mi? ona göre üst sürüme geçebilirim eğer başka bir problem yoksa.

http://i.imgur.com/dI6rHNX.jpg

ilginize teşekkür ederim.

 

[ÖmerBey]

Bir problem yok, zaten o şekilde çalışması için kodlandı.
Şöyle izah edeyim:
Yukarıda da belirtmiştim dosya kendi olduğu yere csv formatında farklı şekilde kayıt yapıyor.
Siz excel dosyasını rar içinden çıkarmadan çalıştırmışsanız temp klasörü içerisine çıkarıldığı için oluşan csv dosyası da o klasörde kalıyor.
Ekte verdiğim dosyayı herhangi bir yere örneğin masaüstüne çıkarıp yeniden çalıştırınız. Aynı klasörde OutlookContacts.csv isimli dosya oluştuğunu göreceksiniz.

 

[efekentli46]

Bir problem yok, zaten o şekilde çalışması için kodlandı.
Şöyle izah edeyim:
Yukarıda da belirtmiştim dosya kendi olduğu yere csv formatında farklı şekilde kayıt yapıyor.
Siz excel dosyasını rar içinden çıkarmadan çalıştırmışsanız temp klasörü içerisine çıkarıldığı için oluşan csv dosyası da o klasörde kalıyor.
Ekte verdiğim dosyayı herhangi bir yere örneğin masaüstüne çıkarıp yeniden çalıştırınız. Aynı klasörde OutlookContacts.csv isimli dosya oluştuğunu göreceksiniz.

evet haklısınız, klasör içinde çalıştı, hemde çok güzel çalıştı elinize sağlık ama hotmail bu dosyayı okumadı nedense

Dosya boş veya doğru biçimde değil. Lütfen farklı bir dosya seçin.

Görsel olarak baktığımda verdiğim örnekle birebir aynısı oluşmuş ama yeni kişi listemi uyguladığımda yukarıdaki hatayı yazıyor. Örnek verdiğimi yüklüyorum onu kabul ediyor, sorun ne anlayamadım. Sütünlar vs herşey yerli yerinde gibi.

sizede çok çok teşekkür ederim.

--------------
şimdi yukarıdaki örnekteki 2 maili kullandım text dosyasında (örnek verdiğim .csv ki) sadece ama yeni oluşan csv dosyasını yine kabul etmedi. arka planda bir farklılık var sanırım bilemedim.

 

[efekentli46]

İki dosyayı karşılaştırmak istedim ama yapamadım. Belki bu şekilde bizim göremediğimiz farkı bilgisayar görür, söyler diye düşünmüştüm. Acaba hocam karşılaştırıp sorunu bulabilir miyiz? teşekkürler

orjinal hotmailin verdiği

http://www.dosya.tc/server31/0D3fMw/OutlookContacts.rar.html

uygulamamızın oluşturduğu yeni csv

http://www.dosya.tc/server31/2gPVNm/yeni.rar.html

 

[halit3]

Merhaba arkadaşlar, alt alta sıralanmış txt formatında yaklaşıl 500 kişilik bir kişi listem var.


şeklinde. Bunları yeni outlook hesabıma aktarmak istedim ama sadece csv formatını destekliyor. Eski listem olduğu için sadece elimde txt formatı var. O zamanlar temiz dursun diye o şekilde ayıklamıştım.

Exceli açıp txt dosyasını seçip .csv olarak kaydediyorum ama outlook boş veya yanlış diyor. Zaten .csv olarak kaydetsemde aynı txt gibi alt alta sıralı olarak kaydediyor. csv açınca farklı birşey görmüyorum.

Örnek bir outlook csv dosyası: (ad,soyad gibi bilgiler zorunlu değil hotmail için,sadece mail bilgisi yetiyor)

http://www.dosya.tc/server31/0D3fMw/OutlookContacts.rar.html

Buna uygun şekilde nasıl convert yani dönüştürebilirim? yardımcı olursanız sevinirim. teşekkürler, iyi çalışmalar

Merhaba konuyu takip ediyorum.

Ama anlıyamadığım için bir yorum yapmadım.

Şimdi örnek veri aldığınız txt formatlı bir dosyanızı buraya ekleyin ve yapmak istediğiniz dosya biçiminide buraya ekleyin bir bakalım.

Buraya hem txt formatlı dosyanızı hemde ulaşmak istediğiniz formatlı dosyayı ekleyin bir bakalım.

Herhalde ulaşmak istediğiniz dosya excel dosyası değil metin dosyası olması gerekiyor.

 

[halit3]

Bu kod açılan listeden seçilen txt dosyasından veriyi alıyor ve dosyanın yanına (OutlookContacts.csv) dosyası oluşturuyor.

Sub txt_veri_al()


dosya = Application.GetOpenFilename(filefilter:="Txt dosyaları,*.txt", Title:="Txt")

If dosya = False Then
MsgBox "Dosya seçme işlemini yapmadınız.", vbInformation, "DİKKAT"
Exit Sub
Else
End If

dosyaadi = ThisWorkbook.Path & "\OutlookContacts.csv"

Open dosya For Input As #1
Open dosyaadi For Output As #2
 
Do While Not EOF(1)
Line Input #1, veri
Print #2, veri
Loop
Close #2
Close #1
 
MsgBox "Bitti", vbInformation, "Bilgi"

End Sub

 

[halit3]

Bu kod da belki işe yarıyabilir.

Sub txt_dosyasını_sec()

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")
dosya = Application.GetOpenFilename("Text Files (*.txt), *.txt,")

If dosya = False Then
MsgBox "Dosya seçme işlemini yapmadınız.", vbInformation, "DİKKAT"
Exit Sub
Else
End If
Klasor = ThisWorkbook.Path
dosya2 = Klasor & "\" & fL.GetBaseName(dosya)

say = fL.GetFolder(Klasor).Files.Count
If say > 0 Then
fL.CopyFile dosya, dosya2 & " " & say & ".csv"
Else
fL.CopyFile dosya, dosya2 & ".csv"
End If
MsgBox "İşlem tamam", vbInformation, "Uyarı"
End Sub

 

[efekentli46]

Merhaba konuyu takip ediyorum.

Ama anlıyamadığım için bir yorum yapmadım.

Şimdi örnek veri aldığınız txt formatlı bir dosyanızı buraya ekleyin ve yapmak istediğiniz dosya biçiminide buraya ekleyin bir bakalım.

Buraya hem txt formatlı dosyanızı hemde ulaşmak istediğiniz formatlı dosyayı ekleyin bir bakalım.

Herhalde ulaşmak istediğiniz dosya excel dosyası değil metin dosyası olması gerekiyor.

Amacım sadece csv formatına çevirmek değil, diğer verdiğiniz kodlar onu yapıyor sanırım. Öncelikle teşekkür ederim konuyla ilgilendiğiniz için ve şu şekilde özetliyeyim.

txt dosyamız,

http://www.dosya.tc/server31/mowEZs/hesap.txt.html

burdan alınan veriyi şu şekile dönüştürmek istiyorum birebir aynısı. (csv olarak)

http://www.dosya.tc/server31/0D3fMw/OutlookContacts.rar.html (hotmailden alınmıştır, örnek ulaşmak istediğim dosya şeklidir)

---------------------------------------------

mucit77 arkadaşımız verdiği uygulama çalışıyor fakat hotmail nedense kabul etmiyor, görünüş olarak birebir aynı ama aynı olmayan göremediğimiz birşey var sanki. o yüzden 2 dosya arasında karşılaştırma yapabilir miyiz diye sordum. bu sayede göremediğimizi görmüş olurduk.

mucit77 arkadaşımızın hazırlamış olduğu uygulama sonucu da şu; (txt çekip örnek uygulamaya göre yapıyor ama kabul etmiyor hotmail)

http://www.dosya.tc/server31/2gPVNm/yeni.rar.html

 

[halit3]

Amacım sadece csv formatına çevirmek değil, diğer verdiğiniz kodlar onu yapıyor sanırım. Öncelikle teşekkür ederim konuyla ilgilendiğiniz için ve şu şekilde özetliyeyim.

txt dosyamız,

http://www.dosya.tc/server31/mowEZs/hesap.txt.html

burdan alınan veriyi şu şekile dönüştürmek istiyorum birebir aynısı. (csv olarak)

http://www.dosya.tc/server31/0D3fMw/OutlookContacts.rar.html (hotmailden alınmıştır, örnek ulaşmak istediğim dosya şeklidir)

---------------------------------------------

mucit77 arkadaşımız verdiği uygulama çalışıyor fakat hotmail nedense kabul etmiyor, görünüş olarak birebir aynı ama aynı olmayan göremediğimiz birşey var sanki. o yüzden 2 dosya arasında karşılaştırma yapabilir miyiz diye sordum. bu sayede göremediğimizi görmüş olurduk.

mucit77 arkadaşımızın hazırlamış olduğu uygulama sonucu da şu; (txt çekip örnek uygulamaya göre yapıyor ama kabul etmiyor hotmail)

http://www.dosya.tc/server31/2gPVNm/yeni.rar.html

11 nolu mesajdaki kodu denedinizmi.?

 

[efekentli46]

11 nolu mesajdaki kodu denedinizmi.?

vba kitaplıkları 40040...hatası aldığımdan deniyemedim ama kodlara baktığımda örnek dönüştürmek istediğim csv dosyasındaki tabloların isimleri vs göremiyorum zaten hocam? amacımız sadece csv formatına çevirmek değil, içeriğinin örnek verdiğimiz dosya haline çevirip sonra csv olarak kaydetmek.

üst mesajımda verdiğim dosyanın içeriği şu şekilde ama 11 nolu mesajda o içerikleri göremedim açıkcası. teşekkürler

not: ben bir yerde yanlış yapıyor olabilirim, 11 nolu mesaj otomatik olarak resimde verdiğim gibi yapıyorsa uygulamayı siz hazırlayım ekleyebilir misiniz size zahmet.

 

[halit3]

vba kitaplıkları 40040...hatası aldığımdan deniyemedim ama kodlara baktığımda örnek dönüştürmek istediğim csv dosyasındaki tabloların isimleri vs göremiyorum zaten hocam? amacımız sadece csv formatına çevirmek değil, içeriğinin örnek verdiğimiz dosya haline çevirip sonra csv olarak kaydetmek.

üst mesajımda verdiğim dosyanın içeriği şu şekilde ama 11 nolu mesajda o içerikleri göremedim açıkcası. teşekkürler


not: ben bir yerde yanlış yapıyor olabilirim, 11 nolu mesaj otomatik olarak resimde verdiğim gibi yapıyorsa uygulamayı siz hazırlayım ekleyebilir misiniz size zahmet.

11 nolu mesajdaki kodu çalıştırınca açılan pencereden csv uzantılı yapacağınız txt dosyasını seçin ve tamamı tıklayın.

kod mevcut dosyanın hemen yanına (OutlookContacts.csv) dosyası oluşturacaktır.

 

[halit3]

Görsel videoyu ekliyorum.

 

[efekentli46]

Görsel videoyu ekliyorum.

görsel video

hocam çok zahmet verdim biliyorum ama beni yanlış anlıyorsunuz. txt içeriğimizde tablo isimleri vs yok. alt alta sıralanmış şekilde.

http://www.dosya.tc/server31/mowEZs/hesap.txt.html

videonuzda da alt altta sıralanmış hesap.txt (hhhh.txt değil, çünkü verimiz bu şekilde değil) dosyasını kullandığınızda oluşturduğunuz csv formatında yine veriler alt alta sıralanmış şekilde.

siz sadece csv formatına çeviriyorsunuz. istediğimiz sadece format değişikliği değil.

txt dosyasını, örnek verdiğimiz csv haline getirmek istiyorsuz. sizin videonuzda yine olmamış zaten.

txt içeriğimiz (hhhh.txt deki gibi değil)

http://i.imgur.com/vDYE2Z6.jpg

dönüştürmek istediğimiz hali;

http://i.imgur.com/UjhD0fk.jpg (sizin videonuzda da bu halde değil, hesap.txt den alınan veriyi dönüştürdüğümüzde) teşekkürler

 

[efekentli46]

mucit77 arkadaşımızın verdiği uygulamayı inceler misiniz? (mesaj 7)

http://s3.dosya.tc/server24/wzXUG2/OutlookContacts.xls.html

Bu kodlar normalde tam olarak istediğimizi yapıyor fakat oluşan dosyayı hotmail kabul etmiyor. Orjinal dosya ile mucit77 arkadaşımız hazırladığı kodların oluşturduğu yeni csv dosyası görsel olarak baktığımızda birebir aynı, sorun yok gibi ama hotmaile göre var. Bizim göremediğim bir sorun veya farklılık var ki hotmail kabul etmiyor. Bilgisayar ortamında 2 dosyası karşılaştırıp farklı bulabilirsek sorun halledilmiş olacak gibi geliyor bana.

hotmailin kabul ettiği format ve içerik.

http://www.dosya.tc/server31/0D3fMw/OutlookContacts.rar.html

mucit77 arkadaşımızın uygulamasının oluşturduğu format

http://www.dosya.tc/server31/2gPVNm/yeni.rar.html

aynı gibiler ama göremediğimiz bir fark var ve hotmail bizim oluşturduğumuzu kabul etmiyor.

 

[halit3]

hocam çok zahmet verdim biliyorum ama beni yanlış anlıyorsunuz. txt içeriğimizde tablo isimleri vs yok. alt alta sıralanmış şekilde.

http://www.dosya.tc/server31/mowEZs/hesap.txt.html

videonuzda da alt altta sıralanmış hesap.txt (hhhh.txt değil, çünkü verimiz bu şekilde değil) dosyasını kullandığınızda oluşturduğunuz csv formatında yine veriler alt alta sıralanmış şekilde.

siz sadece csv formatına çeviriyorsunuz. istediğimiz sadece format değişikliği değil.

txt dosyasını, örnek verdiğimiz csv haline getirmek istiyorsunuz. sizin videonuzda yine olmamış zaten.

txt içeriğimiz (hhhh.txt deki gibi değil)

http://i.imgur.com/vDYE2Z6.jpg

dönüştürmek istediğimiz hali;

http://i.imgur.com/UjhD0fk.jpg (sizin videonuzda da bu halde değil, hesap.txt den alınan veriyi dönüştürdüğümüzde) teşekkürler

Question .csv formatına çevirmek?
Merhaba arkadaşlar, alt alta sıralanmış txt formatında yaklaşıl 500 kişilik bir kişi listem var.

Alıntı:
a@...com
b@....com
şeklinde. Bunları yeni outlook hesabıma aktarmak istedim ama sadece csv formatını destekliyor. Eski listem olduğu için sadece elimde txt formatı var. O zamanlar temiz dursun diye o şekilde ayıklamıştım.

Exceli açıp txt dosyasını seçip .csv olarak kaydediyorum ama outlook boş veya yanlış diyor. Zaten .csv olarak kaydetsemde aynı txt gibi alt alta sıralı olarak kaydediyor. csv açınca farklı birşey görmüyorum.

Örnek bir outlook csv dosyası: (ad,soyad gibi bilgiler zorunlu değil hotmail için,sadece mail bilgisi yetiyor)

http://www.dosya.tc/server31/0D3fMw/...tacts.rar.html

Buna uygun şekilde nasıl convert yani dönüştürebilirim? yardımcı olursanız sevinirim. teşekkürler, iyi çalışmalar

1 nolu mesajınıza göre şimdi farklı söylüyorsunuz.
yinede neresi olmuyor anlamıyorum.
göndermiş olduğunuz hesap.txt dosyasını siz cvs dosyasına dönüştürün ve buraya ekleyinki ne yapmak istediğinizi anlıyalım.

Diğer yardımcı olan sayın *mucit77* kodu excel sayfasındaki değerleri csv yapıyor.

eğer siz excel sayfasını csv yapmak istiyorsanız bu sayfaya ait kendi excel dosyanızı ekliyin ve istemiş olduğunuz csv dosyasınıda ekleyin bakalım.

aslında aynı şeyleri söylüyoruz. ama birbirimizi anlıyamıyoruz.

bu kod sayfadaki değerleri csv yapıyor.

Sub txt_veri_al()

dosyaadi = ThisWorkbook.Path & "\OutlookContacts.csv"
Open dosyaadi For Output As #1
For i = 1 To [a65536].End(3).Row
Print #1, Cells(i, 1)
Next
Close #1
MsgBox "Bitti", vbInformation, "Bilgi"

End Sub