[ÇÖZÜLDÜ] Txt dosyasını satır satır excele aktarmak

[muygun]

Merhabalar.
Daha önceden yine VBA üstatlarından aldığım yardımla oluşturduğum dosya ile excel sayfasındaki belirli bir alanı dat uzantılı dosya haline getiriyor ve yönlendirdiğim yere kaydediyordum.
Şimdi bunun tersini yapmam gerekiyor.
Excel sayfasında
1-B4:B65535 aralığının silinmesi,
2-B1 adresine yazacağım (örn:C:\genelyedek\birles.bat) adresteki bat uzantılı birleştirme dosyasının tetiklenmesi,
3-B2 adresine yazacağım (aynı klasörde yada başka yerde) yol ve dosya adı belirli txt dosyasının açılarak B4 hücresinden itibaren satır satır aşağı doğru aktarılması.
Yardımcı olacak arkadaşlara şimdiden tşk.ederim.

 

[veyselemre]

Sub al()
[b4:b65536].ClearContents

Call Shell("c:\birlestir.bat", vbHide)

dosya = [b2]
b = 4

Application.Wait (Now + TimeSerial(0, 0, 1))

Open dosya For Input As #1
Do While Not EOF(1)
    Line Input #1, TextLine
    Cells(b, 2) = TextLine
    b = b + 1
Loop
Close #1

End Sub

 

[muygun]

Syn veyselemre;
Öncelikle yardımınız için tşk. ederim.
Oluşturduğunuz kod ile silme ve b2 adresindeki yönlendirmeye ait .txt dosyasının excele aktarımı tamam.
Ama bat dosyasının çalıştırılmasını yaptıramadım.
.bat dosyası ile mail yoluyla gelen sip.formlarının bir txt dosyasında birleştirilmesi öngörülmüştü.
eğer zor değilse C:\text klasörü altındaki tüm .txt dosyalarını birleştirip aynı klasör içine bugünün tarihi.txt adı altında bir dosya oluşturmasıyla ilgili bir vba yazılımı da işimi görebilir.
(Not: bu kodun ayrı olması ve işlem sonunda işlem bitti uyarısı vermesi , şayet klasörde aynı isimli bir dosya var ise eskisinin iptal edilerek yenisinin uyarı yada onay istemeden oluşturulması)

Şimdiden tşk.

 

[veyselemre]

bat dosyanızda
cd text
satırını
cd\text
olarak değiştirin, deneyin.

 

[muygun]

Slm.
bat dosyasındaki değişiklik sorunu çözdü.
Tş. eder, çalışmalarınızda başarılar dilerim.