Notepad'den excele aktarmak için makro

[devran]

Merhaba arkadaşlar,
Çalıştığımız programdan çektiğimiz veriler notpadde halinde alabiliyoruz. Bu verileri daha sonra excele ekli şekilde aktarıyoruz ve başlık ekliyoruz. Sürekli yaptığımız bu işlemler için makro yazılması mümkün müdür?

 

[Sa.NaL]

sitede böyle bir makro olması lazım ara dedinmi dostum

 

[devran]

benzer bir makro göremedim

 

[Sa.NaL]

Sub DosyaGetir()
Open "D:\notepaddosyaadınız.txt" For Input As #1
i = 2
While Not EOF(1)
Line Input #1, Veri
Sheets(2).Cells(i, "A") = Left(Veri, 10)
Sheets(2).Cells(i, "B") = Mid(Veri, 12, 3)
Sheets(2).Cells(i, "K") = Right(Veri, 5)
Sheets(2).Cells(i, "V") = Mid(Veri, 49, 3)
Sheets(2).Cells(i, "G") = Mid(Veri, 55, 2)
Sheets(2).Cells(i, "J") = Mid(Veri, 58, 5)
Sheets(2).Cells(i, "F") = Mid(Veri, 38, 5)
Sheets(2).Cells(i, "E") = Mid(Veri, 4, 4)
Sheets(2).Cells(i, "Y") = Mid(Veri, 15, 5)
Sheets(2).Cells(i, "M") = Mid(Veri, 25, 4)
Sheets(2).Cells(i, "O") = Mid(Veri, 43, 4)
Sheets(2).Cells(i, "P") = Mid(Veri, 18, 5)
Sheets(2).Cells(i, "S") = Mid(Veri, 31, 4)
Sheets(2).Cells(i, "T") = Mid(Veri, 36, 5)
i = i + 1
Wend
Close #1
End Sub


Mesela yukarıda d sürücüsünde bulunan txt dosyanızın içindeki alandan sağından solunda üstünden altından herhangi bir yerinden bilgiler alınıyor excelde benim sayfa adım 2 idi oraya getirdim sizde istedğiniz yere getirebilirsiniz oraya sayfa adınızı yazarak.He bu makroyu commandbutonun içine yazacaksınız benim makrı adım dosyagetirdi siz dilediğinizi yazabilirsiniz.Kolay gelsin.

 

[Sa.NaL]

Birde excele taşıdığım sütun harfleri yukarıdakiler sora gelen sayılarda not defterinin herhangi bir yerinde yazılan yazıları çağırma sayıları sayılarla oynayarak olayı kavrayacağınızdan eminim.Hadi ben okula gidiyom kaçar.Yine bişli olusa gece 23de burdayım

 

[devran]

Teşekkürler yapmaya çalışıcam

 

[usta07]

Dosyanız ekte;
tex dosyanız yolu "c:\per000028.txt" şeklinde yazılı istediğin gibi değiştirebilirsin.

Kolay gelsin. iyi akşamlar.