Çalışma sayfasını Txt ye çevir

[tatar7]

değerli üstadlarım Excel de çalıştığım sayfayı makro ve buton kullanarak txt formatında kaydetmeye çalışıyorum ama beceremedim yardımcı olacak arkadaşlara şimdiden teşekkür ediyorum

 

[Zeki Gürsoy]

Birkaç satır veri içeren örnek dosya eklemenizde fayda var.

 

[tatar7]

ekte göndermiş olduğum dosyayı aynı formatta txt olarak farklı kaydetmek istiyorum dosya ismini de tarih ve saat verecek şekilde ayarlamamız mümkünmü
ilginizden dolayı teşekkür ediyorum

 

[tahsinanarat]

Sorularınız cevabı sitede var ama, iyice araştırmanız gerekiyor.
Evvelce siteden temin ettiğim bir kod

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:\Pirr.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

 

[tatar7]

Üstat süpersin teşekkür ediyorum
formda aradım ama demekki göremedim. hayırlı akşamlar