Metin belgesinden veri alma makrosu

[whirlybird]

Merhaba,
Günlük satış işleri ile uğraşmaktayım, kasiyer MSDOS (mavi ekran satış programı)'nda günlük satışlarını yaptıktan sonra stok kayıtlarını almak için MSDOS'tan metin belgesi olarak çıkış yapmaktayım.(Çıkış yaptığım zaman metin belgesi o günü tarihi ile adlandırılmaktadır.) Metin belgesi içerisinde 12 haneli rakamlar oluşmaktadır.248312062014 şeklinde alt alta bir sürü rakam oluşmaktadır. Bu rakamları metni sütunlara dönüştür ile 2483-12-06-2014 şeklinde ayrı ayrı sütunlara ayırarak yeni bir excel sayfası oluşturarak o günün tarihin ile kayıt etmekteyim.

Bu MSDOS'un metin çıktısını(metin belgesini) otomatik excele çekip orada otomatik metni stünlara dönüştürüp o günün tarihi isminde excel olarak kayıt edebilecek bir makro yapılabilir mi?

Not: yeni kayıt edilecek(en son aşama) excel sütunları başlıklı olacak şekilde olmalı. Örneğin : 2483'ün sütun başlığı stok no, 12 'nin sütun başlığı gün, 06'nın sütun başlığı ay, 2014'ün sütun başlığı yıl şeklinde.

 

[Necdet]

Merhaba,

Örnek dosya olması yanıtın hızlanmasını sağlar.

 

[whirlybird]

Tekrar Merhaba, öncelikle ilginize teşekkür ederim, örnek olarak bir şey yüklemek isterim ancak çalıştığım bilgisayar dışa kapalı bir bilgisayar yani hiç bir şekilde veri paylaşımı yapamıyorum. Dolayısı ile başka ne şekilde yardımcı olabilirim?

 

[whirlybird]

Daha açık olarak yazmam gerektiğimi düşündüm,
D\...\senetler\14 Haz. 14.txt yoluyla farklı bir program ile her gün düzenli olarak bir metin belgesi kaydedilmektedir. (yani yarın 15 Haz.14.txt olarak metin belgesi kaydedilecektir.) yaptığım işlem şu ben o metin belgesi içerisindeki sayıları alıp metni sutünlara dönüştür yaparak istediğim forma yazınca yeni bir excel sayfası ile o günün tarihi başlığı ile d\....\satışlar yoluna kayıt etmekteyim.

Benim aradığı makro kodu, D\....\senetler klasörü içerisindeki her hangi bir metin belgesi içeriğini boş bir excel sayfasına aktaracak sonra o verileri metne sütunlara dönüştür yaparak, istenilen forma verileri yapıştırıp, o günün tarihi ile exceli D\...\satışlar klasörüne kayıt edecek.(metin belgesi içerisinde 256932214062014 şeklinde rakamlar bulunuyor ben metini sütunlara dönüştürerek 256-932-22-14-06-2014 şeklinde ayırıp forma yapıştırıyorum.)

şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linkteki kodu deneyin.

Txt dosyasından veri almak

 

[whirlybird]

Sayın, Korhan Ayhan ilginize teşekkür ederim; lakin bu konuyu açmadan önce çok detaylı araştırma yapmıştım dolayısıyla bu konuyu 2 gün önce okumuştum ne var ki burada ufak bir sıkıntı benim soruma cevap olmuyor.
Sorun şu konudaki arkadaşlar belirli bir yol göstererek yapmışlar ancak benim istediğim şey ise D\....\Senetler yolunun içerisindeki herhangi(Her gün değişecek) metin belgesi. Yani sabit bir isimli metin belgesi değildir. konuda anlatılan sabit bit metin belgesidir.

 

[whirlybird]

Sayın korhan, aklıma bir şekil geldi fakat uygulamaya sokamadım kod hakkında belki yardımınız dokunabilir,

Sub Hangi_Dosya_Secildi()
On Error GoTo hata
ChDir "D:\senet\"

dosya = Application.GetOpenFilename(FileFilter:="," & _
"*.txt;*", _
Title:="Lütfen dosya seçimi yapınız") ' uzantı eklemeleri yapabilirsiniz
If dosya = False Then ' eğer vazgeçe basarsanız
MsgBox "Dosya seçme işleminden vazgeçildi"
Exit Sub
On Error Resume Next
AppActivate (Shell("D:\senet\13.Haz.14.txt", 5))
On Error GoTo 0
End If

hata:
MsgBox "Klasör bulunamdı", vbCritical, "UYARI"
End Sub

Yukarıdaki kod ilgili klasöre gidip dosyayı seçmemi istemektedir, ardından dosya seçildikten sonra(ben istediğim metin belgesini seçeceğim) otomatik metni sütunlara dönüştür yaparak bu günün tarihinde kaydedebilir mi?

 

[Korhan Ayhan]

Siz örnek dosyalarınızı (txt ve xls) ekleyin. Kodlar konusunda yardımcı olalım.

Xls dosyasında verilerinizin nasıl olmasını istediğinizide belirtmeyi unutmayın.