txt den veri aktarma sorunu

[vurdumduymaz]

Merhaba arkadaşlar, aranıza yeni katıldım, öncelikle herkese Selamlar,

Forumda bayağı bir arama yaptım ama derdime çare olacak bir makro bulamadım.

Tam olarak şunu yapmak istiyorum;

bir klasorun içerisindeki txt dosyalarını tarayıp, her bir txt dosyasının adını A1 hücresine, o dosyanın tüm içeriğini B1 hücresine yazacak. Sonra diğer dosyaya geçip o dosyanın adını A2 hücresine, içeriğini de B2 hücresine yazacak, alt alta devam edecek..

Dosya adı ve içeriğini birer hücreye yazdırmak istiyorum kısaca.

500 den fazla dosya olduğu için tek tek uğraşmak imkansız

Umarım sorunumu anlatabilmişimdir,
Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

Saygılarımla...

 

[Skorpiyon]

Sayın vurdumduymaz,

Aşağıdaki linki inceleyiniz .

http://www.excel.web.tr/showthread.php?t=20363&highlight=%2Atxt%2A

 

[vurdumduymaz]

Sayın vurdumduymaz,

Aşağıdaki linki inceleyiniz .

http://www.excel.web.tr/showthread.php?t=20363&highlight=%2Atxt%2A

İlgin için teşekkürler Sertkaya, verdiginiz linkteki konuyu arama yaparken incelemiştim fakat orada verilen kodlar maalesef benim işimi görmüyor

verdiğiniz linkteki kodlardan farklı olarak benim ihtiyacım olan şey şu;

1- bir klasordeki butun txt dosyaları kendisi arayıp import edecek,
2- dosyaların adlarını da başka bir hucreye import edecek.

ayrıca import etmek istediğim dosyayı eklemeyi unutmuşum, özür dilerim...
dosyayı ekliyorum, ilgilenebilirseniz beni gerçekten çok büyük bir sıkıntıdan kurtaracaksınız,

tekrar teşekkürler,
Saygılarımla...

 

[Levent Menteşoğlu]

dosyaların bulunduğu klasörün yolunu verirmisiniz.

 

[vurdumduymaz]

dosyaların bulunduğu klasörün yolunu verirmisiniz.

klasor yolu:

C:\Documents and Settings\Administrator\Belgelerim\dosyalar\

teşekkürler,

saygılarımla...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub dosyakopyala()
klasor = "C:\Documents and Settings\Administrator\Belgelerim\dosyalar\"
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder(klasor).Files
c = c + 1
Cells(c, "a") = dosya.Name
ActiveSheet.QueryTables.Add(Connection:="TEXT;" & klasor & dosya.Name, Destination:=[z1]).Refresh 'BackgroundQuery:=False
Cells(c, "b") = [z65536].End(3).Value
[z:z].Delete
Next
End Sub

 

[vurdumduymaz]

teşekkürler leventm, tam istediğim gibi bir kod; ellerine sağlık.

bu dosyaların icinde cok uzun boyutlu olanlar da var; word belgesi ile 20-30 sayfa gibi.. onlar da doğal olarak yarım aktarılıyor, tek hucreye aktarmak istediğim zaman..

bu uzun boyutlu olan dosyaları; yarım kalmaması icin, bir yanındaki hucreye devam ettirebilir miyiz?

tekrar tesekkurler,

Saygılarımla...

 

[Levent Menteşoğlu]

teşekkürler leventm, tam istediğim gibi bir kod; ellerine sağlık.

bu dosyaların icinde cok uzun boyutlu olanlar da var; word belgesi ile 20-30 sayfa gibi.. onlar da doğal olarak yarım aktarılıyor, tek hucreye aktarmak istediğim zaman..

bu uzun boyutlu olan dosyaları; yarım kalmaması icin, bir yanındaki hucreye devam ettirebilir miyiz? ........

Rica ederim. Bu dosyalarınızdan birini örnek olarak eklermisiniz.

 

[vurdumduymaz]

Rica ederim. Bu dosyalarınızdan birini örnek olarak eklermisiniz.

dosyayı sıkıstırarak ekledim,

ayrıca bu dosyayı import etmeye calısırken karsılastıgım bir sorun daha var; en ustten birkac satır aldıktan sonra gerisini almıyor.

ona da bakabilirsen cok memnun olurum.

tesekkurler,

Saygılarımla...