eXCEL txt Formatına çevirme

[asdec1234]

Merhaba ustadlar

Excel Formatındaki veriyi txt.(text) formatına nasıl çevirebiliriz. bu konuda yardımcı olabilirmisiniz.

 

[Emir Hüseyin Çoban]

Merhaba,
Dosya- Farklı Kaydet
Kayıt türü olarak:Metin (sekmeyle ayrılmış) seçeneğini seçip
Kaydet i tıklayarak deneyiniz.

 

[İhsan Tank]

Merhaba ustadlar

Excel Formatındaki veriyi txt.(text) formatına nasıl çevirebiliriz. bu konuda yardımcı olabilirmisiniz.

merhaba
boş bir module atayarak deneyiniz
bir İnputbox çıkacak ona dosya adını yazınız.

Option Explicit
Sub txt()
Dim ts
ts = InputBox("Dosya Adı Girişi", "Dosya Adı Giriş")
If ts = "" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=("D:\" & ts) & ".txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False
End Sub

 

[yenilik025]

Hocam merhabalar;
Çurada
hedef belirleyecek olursak A2 : H sütunları arasında
A2 den başlamak üzere aşağaya doğru
dolu olan hücreleri Dosya-Farklı Kaydet Metodu dışında Kod ile nasıl yapabiliriz ?

 

[yenilik025]

merhaba
boş bir module atayarak deneyiniz
bir İnputbox çıkacak ona dosya adını yazınız.

Option Explicit
Sub txt()
Dim ts
ts = InputBox("Dosya Adı Girişi", "Dosya Adı Giriş")
If ts = "" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=("D:\" & ts) & ".txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False
End Sub

Hocam merhabalar;
Çurada
hedef belirleyecek olursak A2 : H sütunları arasında
A2 den başlamak üzere aşağaya doğru
dolu olan hücreleri Dosya-Farklı Kaydet Metodu dışında Kod ile nasıl yapabiliriz ?