Sayfa isimlerini txt dosyasına Kaydetmek

[k0081]

Merhaba arkadaşlar;

K:\BELGELER\MinDNT_Metraj2.xlsm Dosyasındaki sayfaları ( TOPLAM ve DONATI_METRAJI sayfaları hariç...) bir txt dosyaya aşağıda vermiş olduğum biçimde command buton ile nasıl kaydedebiliriz ?

Not: A2,GD,ID,KL1,KR2,A1 <-- Bunlar sayfa ismidir.. A1:R107 Sabittir..

Txt içeriği ;
K:\BELGELER\MinDNT_Metraj2.xlsm*A2*A1:R107
K:\BELGELER\MinDNT_Metraj2.xlsm*GD*A1:R107
K:\BELGELER\MinDNT_Metraj2.xlsm*ID*A1:R107
K:\BELGELER\MinDNT_Metraj2.xlsm*KL1*A1:R107
K:\BELGELER\MinDNT_Metraj2.xlsm*KR2*A1:R107
K:\BELGELER\MinDNT_Metraj2.xlsm*A1*A1:R107

Yardımcı arkadaşa şimdiden Teşekkürler..

 

[systran]

Excel dosyasının ve olması gereken TXT dosyanın örneğini yüklerseniz daha anlaşılır olacaktır.

 

[k0081]

systran

Olması gereken txt dosya içeriğini verdim zaten. Excel tablosundada bahsettiğim sayfalar var. ( TOPLAM, DONATI_METRAJI, A2, GD, ID, KL1, KR2, A1 )

http://www.dosyayukleyin.com/do.php?id=5081]Multiply01.rar

 

[systran]

kodlar.

Sub kaydet()
Dim sh As Worksheet
mesaj = ""
yol = ThisWorkbook.Path
dosya = ThisWorkbook.Name
yazDosya = yol & "\deneme.txt"
Open yazDosya For Output As #1  'dosya mevcutsa siler, yeniden oluşturur.
For Each sh In ThisWorkbook.Worksheets
    If sh.Name <> "TOPLAM" [B][COLOR="Red"]AND[/COLOR][/B] sh.Name <> "DONATI_METRAJI" Then
      mesaj = yol & "\" & dosya & "*" & sh.Name & "*A1:R107"
      [B][COLOR="Red"]Print[/COLOR][/B] #1, mesaj
    End If
Next
Close #1
End Sub

txt dosya içeriği (dosya yolu neredeyse ona göre değişir.)

"C:\.....\Kitap2.xlsm*Sayfa1*A1:R107"
"C:\.....\Kitap2.xlsm*Sayfa2*A1:R107"
"C:\.....\Kitap2.xlsm*Sayfa3*A1:R107"

 

[k0081]

systran

Hocam kodları denedim oldu gibi,, yalnız şu hatalar var;

1- Toplam ve Donatı metrajı sayfalarını da dahil ediyor txt içeriğine. bu sayfalar olmayacak.

2- içerik tamam. Fakat başlangıç ve bitiş de " işareti koyuyor. bu da olmayacak hocam.

 

[systran]

düzeltmeleri kontrol edin.

 

[k0081]

düzeltmeleri kontrol edin.

Hocam elinize sağlık Tamamdır.. Çok teşekkür ederim..