Soru Çoklu Txt Yapma (Filtreli)

[leonadies]

Değerli Üstadlar;

Ekteki excelde yer alan bilgilerde;

C sütunundaki Kelimelere göre ayırarak o kelime adında excelin o an bulunduğu yere ayrı ayrı TXT dosya yapmak istiyorum. Aralarıda ; işareti ile bağlamak istiyorum. Mümkün mü?

Not: C sütunundaki bilgiler karışık olabiliyor.
Dosyalarımı ekledim.

VAROLAN DURUM;


----------------------------------------------------------------------------------------------------------------------------------------
İSTEDİĞİM SONUÇ

 

[Haluk]

Deneyiniz...

Sub Test()
'   Haluk - 28/04/2021
'   sa4truss@gmail.com
'   https://excelhaluk.blogspot.com/

    Dim NoA As Long, FSO As Object, objTxtFile As Object
    Const ForAppending = 8
    
    NoA = Range("A" & Rows.Count).End(xlUp).Row
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    For i = 1 To NoA
        Set objTxtFile = FSO.OpenTextFile(ThisWorkbook.Path & "\" & Range("C" & i) & ".txt", ForAppending, True)
        objTxtFile.Writeline (Range("A" & i) & ";" & Range("B" & i) & ";" & Range("D" & i))
        objTxtFile.Close
    Next
    
    Set objTxtFile = Nothing
    Set FSO = Nothing
End Sub

.

 

[leonadies]

Ellerine Sağlık @Haluk üstadım. Yine çok net kodlar kısa anlaşılır.
Çok teşekkür ederim

 

[leonadies]

Merhaba bu işlemde uzantının .TXT değilde .XLS olarak (excel dosyası) çıkarmak istiyorum. Noktalı virgüllerin her biri bir sütuna gelecek şekilde. Nasıl yapabilirim?

 

[NBATMAN]

Merhaba,

konu ile ilgili hem sizin sorunuza hem de genel maksatlı tüm benzer sorunlara çözüm üretecek şekilde bir program yaptım.
İlgili Excel (kaynak) dosyanızı ilk buton ile açıyorsunuz. Sonra birinci açılır kutudan hangi sayfa ile işlem yapacaksanız onu seçiyorsunuz. İkinci açılır kutuda o sayfaya ait sütün başlıkları listeleniyor. Buradan seçtiğiniz sütuna göre XLS kaydet yada TXT kaydet butonlarına basarak seçmiş olduğunuz sütundaki verilere göre Excel yada text formatında kaydediyor. Dikkat edilecek husus şudur ki kaynak dosyadaki tablolarda mutlaka 1. satır sütun başlıklarını adı içermeli örneğin ekteki Excel dosyası gibi.

 

[leonadies]

wbNew.SaveAs Filename:=FilePath, FileFormat:=xlExcel8 ' xlExcel8 = Excel 97-2003 Workbook (.xls)

Öncelikle eline sağlık. ilk başta bu hatayı verdi bunu halletim ancak Verileri sağlıklı çıkarmıyor hocam @pitchoute

 

[leonadies]

Merhaba,

konu ile ilgili hem sizin sorunuza hem de genel maksatlı tüm benzer sorunlara çözüm üretecek şekilde bir program yaptım.
İlgili Excel (kaynak) dosyanızı ilk buton ile açıyorsunuz. Sonra birinci açılır kutudan hangi sayfa ile işlem yapacaksanız onu seçiyorsunuz. İkinci açılır kutuda o sayfaya ait sütün başlıkları listeleniyor. Buradan seçtiğiniz sütuna göre XLS kaydet yada TXT kaydet butonlarına basarak seçmiş olduğunuz sütundaki verilere göre Excel yada text formatında kaydediyor. Dikkat edilecek husus şudur ki kaynak dosyadaki tablolarda mutlaka 1. satır sütun başlıklarını adı içermeli örneğin ekteki Excel dosyası gibi.

Elinize sağlık hocam. Başka arkadaşlara faydası olacaktır Mutlaka