excel sayfasında yazdıklarımı text'e çevirmek

[blueeye]

excel sayfasında yazdıklarımı text dosyası içerisine nasıl kaydedebilirim.
örneğin a1:k10 aralığına yazdıklarımı masaüstüne yazi.txt olarak nasıl kaydedebilirim. yardım ederseniz çok sevinirim. şimdiden çok teşekkür ederim

 

[xxrt]

Merhaba,C Diskinde Veri adlı bir klasör aç.Sen Masa üstü istemiştin ozaman c:\Windows\Desktop olarak aşağıdaki yolu değiştirirsin..Daha sonra Excelinde A1:K10 Veri aralığına gerekli bilgileri gir.Ve Modüle şu kodları yapıştır.

Sub txtaktar()
MsgBox "Dosya Hazırlanıyor"
Dim LastRowA As Integer
Dim veri1 As String
Dim veri2 As String
Dim veri3 As String
Dim veri4 As String
Dim veri5 As String
Dim veri6 As String
Dim veri7 As String
Dim veri8 As String
Dim veri9 As String
Dim veri10 As String
Dim veri11 As String
Dim veri12 As String
Dim veri13 As String
Dim veri14 As String
Dim i As Integer
Open "C:\Veri\Deneme.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
veri2 = Cells(i, 2).Text
veri3 = Cells(i, 3).Text
veri4 = Cells(i, 4).Text
veri5 = Cells(i, 5).Text
veri6 = Cells(i, 6).Text
veri7 = Cells(i, 7).Text
veri8 = Cells(i, 8).Text
veri9 = Cells(i, 9).Text
veri10 = Cells(i, 10).Text
veri11 = Cells(i, 11).Text
veri12 = Cells(i, 12).Text
veri13 = Cells(i, 13).Text
veri14 = Cells(i, 14).Text

Print #1, veri1; " "; veri2; " "; veri3; " "; veri4; " "; veri5; " "; veri6; " "; veri7; " "; veri8; " "; veri9; " "; veri10; " "; veri11; " "; veri12; " "; veri13; " "; veri14
Next i
Close #1
Sheets("Sayfa1").Select
Range("A1").Select
End Sub

Daha fazla veri aktarılacaksa 14'den sonra ilave edin..Ayrıca bu aktardığın verileri herhangi bir proğrama adapte edeceksen karakter sayılarına dikkat et.Kolay Gelsin.

 

[blueeye]

dostum harikasın ya. çok teşekkür.
bir şey daha sorsam kızarmısın.
sayfadaki tüm hücrelere değer girmiş olsaydık binlerce "dim" mi açacaktık. bunun daha kolay bir yolu yok mu. çok şey istediysem ne olur kızma. cevap verirsen şimdiden teşekkür ederim. kolay gelsin

 

[xxrt]

Niye kızayımki,dostum.Ben herkese yardım etmeye kendime söz verdim..Bu kodları ben yazmıyorum.Bu kodları bende sorarak öğrendim..Sanırım yok ama ben bilmiyorum..Çalışma yapmak gerek..Ama Emini cevabını buradan alacaksın..

 

[blueeye]

dostum herşey için çok teşekkür. çok yardımcı oldun.
ellerine sağlık

 

[CeNK_aLPeR]

arkadaşlar çok eski bir kou fakat bana lazım olan bir konu...
buradaki işlemleri yaptığımda belirsiz isim bulundu tarsında bi hata veriyor bi bakabilirmisiniz acaba?

 

[zafer]

Merhaba

yaz isimli 2 adet kod var .3. modüldeki yaz'ı siliniz veya adını değiştiriniz.

 

[CeNK_aLPeR]

yasdırılıyor fakat ekteki gbi bir problemle karşılaşıorum

 

[zafer]

Merhaba

Txt yaz butonunu yaz makrosuna bağlayın.

c:\deneme.txt dosyasına yazıyor.

 

[zafer]

Merhaba

Mesajınızı değiştirmişsiniz.

çıktıdaki problem nedir onu söyleyebilirmisiniz.

 

[CeNK_aLPeR]

notepad te bütün hepsinin hizalı bir şekilde sıralanmasını istiorum fakat burada resimdeki gibi sıralanıyor

 

[zafer]

Merhaba

bende wordpad ve not defterinde açıyorum sorun yok

 

[CeNK_aLPeR]

anlatmak istediğim bu şekilde.

 

[zafer]

Merhaba

Not defterinde biçim menüsünde Sözcük kaydır işaretlyse işaretini kaldırın.

 

[zafer]

Merhaba

makronuzdaki alanların boylarını yanına yazınız.

* 25 , 25 karakter demektir.

Dim veri1 As String * 25
Dim veri2 As String * 30
Dim veri3 As String * 40
Dim veri4 As String * 50

 

[CeNK_aLPeR]

ya biliyorum ben çok oldum ama hep sorunlar çıkıyor.

şimdide böyle bir problem çıktı

uzun verilerin bir kısmının alan boylarını arttırdım fakat arkasında gelen bilgi yine aynı şekilde hizalamayı bozdu

 

[zafer]

Merhaba

Dosyayı tekrar gönderebilirmisiniz.Kodlarda bir değişiklik varmı bakalım.

Verilerin hepsine alan boyunu yazınız..

 

[CeNK_aLPeR]

bu arada notepad e attında üstte boşluklar oluşuyor nası yok edebiliris?daha önceki örnekleri deniyorum fakat hatalar weriyor yada hiçbir etkisi olmuyor.

 

[zafer]

Merhaba

ya biliyorum ben çok oldum ama hep sorunlar çıkıyor.

şimdide böyle bir problem çıktı


uzun verilerin bir kısmının alan boylarını arttırdım fakat arkasında gelen bilgi yine aynı şekilde hizalamayı bozdu

Dosya düzgün bütün verilerde hizalı.Arkasından gelen hizalamayı bozuyor ne demek aşağı satıra alıyorsa gönderdiğiniz resim de yok .eğer alan yarım kesiliyorsa alan boyunu büyültün.

10 sefer ayrı ayrı dosya olarak denedim sorun yok.

 

[veyselemre]

Boşlukları kaldırmak için
For i = 3 To LastRowA
değişikliği yapın.

Hizaların bozlması olayı için de Notepad de yazı tipini Courier New yapın deneyin.