Txt Dosyadan Veri Aktarma

[peker]

Selam arkadaşlar! Öncelikle bu forumu bize sunan ve emeği geçen herkese teşekkür ederim. Sorunum şu.. Elimde her gün için hazırlanmış Txt uzantılı rapor dosyaları mevcut. Ben bunları Excele aktarmak istiyorum (makro ile çünkü çok fazla) Forumda arama yaptım ama ulaşamadım. şimdiden teşekkür ederim . Saygılar. Örnek Txt dosyası ektedir

 

[peker]

Anlaşılmayan bir şey mi var? Yoksa çözümü mü yok bu sorunun arkadaşlar? Umutsuzluğa kapıldım sanırım.

 

[Leoncio]

Merhaba;
Aşağıdaki tarzda bişey olabilir.
sub ac()
ChDir "C:\"
Workbooks.OpenText Filename:="C:\GRKASAISLEM.txt", Origin:=xlWindows, StartRow :=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(12, 1))
End Sub

 

[peker]

Sayın Leventer ilginize çok teşekkür ederim. Çok Yardımcı oldunuz. Gerçekten Sağ olun. Sayenizde oldu bu iş. İyi çalışmalar.

 

[Leoncio]

Rica ederim

 

[peker]

SAYIN LEVENTER .. tamam dosyayı aktarıyor ama bunu aynı dosya içindeki sheet 'e atma imkanımız varmı acaba. Workbooks.OpenText Filename yerine baska bir komut gelmesi lazım sanırım. Eger imkan var ise yardım edermisiniz. tsk ederim

 

[Leoncio]

SAYIN LEVENTER .. tamam dosyayı aktarıyor ama bunu aynı dosya içindeki sheet 'e atma imkanımız varmı acaba. Workbooks.OpenText Filename yerine baska bir komut gelmesi lazım sanırım. Eger imkan var ise yardım edermisiniz. tsk ederim

Kodları istediğiniz dosya içindeki modüle yazarsanız o dosyaya kaydeder.

 

[peker]

Ok. Cok Tesekkurler. Sagolun

 

[umut343434]

hocam peki aktadığımız verileri sutunlara nasıl dağıtıyoruz

 

[BirTürk1]

peki bunun tam tersini yaparken hangi kodları kullanmalıyız.
teşekkürler

 

[Leoncio]

peki bunun tam tersini yaparken hangi kodları kullanmalıyız.
teşekkürler

Sayın BirTürk; Arama motorundan arattırırsanız konu ile ilgili birçok örneğini bulabilirsiniz.

Eğer bulduğunuz sonuçlar ihtiyacınıza cevap vermez ise ayrı bir başlık açarak soruyu sorunuz. Forumdan arkadaşlar yardımcı olailirler.