xls yı txt e dönüştürme

[ozpoli]

arkadaşlar bir exel kitabındaki tum sayfaları 60-70 tane sayfayı tek seferde her bırını ayrı ayrı kendı adıyla belırleyecegım bı klasore txt uzantılı olarak kaydedecek bı makro lutfen yardımlarınızı esırgemeyın

 

[hamitcan]

Küçük bir dosya ekleyin. Yardımcı olacak arkadaşlar çıkabilir.

 

[ozpoli]

Gerekli Dosya Ekte

Arkadaslar Gerekli Dosya Ektedir

 

[ozpoli]

Ornek Dosya Ektedir

Ornek Dosya Ektedir

 

[ozpoli]

Yokmu Yardim Edecek Birileriiiiii

 

[zafer]

Merhaba

Dosyanıızın excel 2007 olan formatını daha önceki sürümler için güncelleyiniz.(xls)

 

[hamitcan]

Sub TxtKaydet()
    yol = "C:\text\"'Dosyaların kaydedileceği yol
    ChDir yol
    For i = 1 To Sheets.Count
    If Sheets(i).Name <> "KAPAK" Then
        Open yol & Sheets(i).Name & ".txt" For Output As #1
           Print #1, "deneme"
        Close
    End If
    Next
End Sub

 

[ozpoli]

oncekı versıyona gore ektedır

oncekı versıyona gore ektedır

 

[ozpoli]

Bu Sekilde Hepsinde Deneme Yaziyor Ben Asil Kendi Icerigini Yazsin Istiyorum Deneme Yazmayacak

 

[ozpoli]

Dosya Ektedir

Dosya Ektedir

 

[ozpoli]

Arkadaslar Yardimmmmmmm

 

[Kemal Demir]

Hamit Bey'in cevabı daha profosyonelce.
Mesajı o yuzden sildim.

 

[hamitcan]

Bunu söyleyeceğinizi tahmin ettim aslında. Dosyanızı elbette boş kaydetmeyeceksiniz. Bende örnek olsun diye birşeyler yazayım dedim. Sorularınızı hazırlarken bu duruma dikkat etmelisiniz.

Sub TxtKaydet()
    yol = "C:\text\" 'Dosyaların kaydedileceği yol
    ChDir yol
    For i = 1 To Sheets.Count
        With Sheets(i)
            If .Name <> "KAPAK" Then
            Open yol & .Name & ".txt" For Output As #1
                For x = 1 To .[a65536].End(3).Row
                    Print #1, .Cells(x, 1), .Cells(x, 2), .Cells(x, 3), .Cells(x, 4), .Cells(x, 5)
                Next x
            Close #1
            End If
        End With
    Next i
End Sub

 

[ozpoli]

Ellerinize Saglik Cok Guzel Olmus Ama Bir Sey Daha Rica Etsem Burda Her Sayfanin A Sutununu Nasil Haric Tutucaz Acaba Bunuda Yaparsaniz Cok Minnettar Olurum

 

[hamitcan]

İligli satırda mavi ile belirttiğim kısmı silin.

Print #1, [B][color=blue].Cells(x, 1),[/color] [/B].Cells(x, 2), .Cells(x, 3), .Cells(x, 4), .Cells(x, 5)]

 

[ozpoli]

Valla Cok Oluyorum Biliyorum Ama Bide Sayfalardan Secme Yapabilirmiyim Secenek Olcak Sectigim Sayfalari Yapacak Sadece

 

[hamitcan]

Örneği inceleyin.