• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

dat uzantılı dosyadan veri alma

M

mat_net

Katılım
26 Aralık 2009
Mesajlar
9
Excel Vers. ve Dili
türkçe
iyi çalışmalar dat uzantılı dosyadan verileri almak istiyorum yardımcı olabilir misiniz

xls ile aşağıdaki kod ile alabiliyorum

Sub veri_al()
Dim pir As String
Dim ilk As Workbook
Dim son As Workbook
Set ilk = ActiveWorkbook

ilk.Sheets("Sayfa1").Activate
pir = InputBox("Okul Kodu", "Okul Kodunu Giriniz")
Range("r1").Value = pir

Workbooks.Open Filename:="C:\YKS\AYT\" & Range("r1").Value & ".xls"
Set son = ActiveWorkbook

son.Activate

Sheets("OkulAytTestSonucListesi").Range("b13:ba5000").Copy
ilk.Activate

Range("b3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
son.Close
ilk.Sheets("Sayfa2").Activate
Range("b2:ba5000").Copy
ilk.Sheets("Sayfa3").Activate
Range(Range("A1").Value).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ilk.Sheets("Sayfa4").Activate
Range("b1").Select

End Sub
 
DAT dosyanız, muhtemelen bir "text-metin" dosyasıdır. Örnek bir tane verirseniz, duruma bakılabilir....


Bilgi için aşağıdaki linke bakın;

Dat uzantılı dosyadan veri kopyalama

Merhaba arkadaşlar. Yapmak istediğim işlem için forumda arama yaptım ama örneklerin çoğu excelden veri alma ile ilgili. Ben dat uzantılı bir dosyadaki tüm karakterleri kopyalayıp excel sayfasında bir hücreye yapıştırmak istiyorum. Şöyle ki: Excel sayfasında kodu atadığım butona tıkladığımda...
www.excel.web.tr www.excel.web.tr


.
 
Dosyadaki veriler gelişigüzel ayrıştırılmış ..... içlerinden hangilerini A sütununa listelemek istiyorsunuz, listelenmiş bir örnek Excel dosyası eklemeniz gerekir.

.
 
benim için makro ile a1 e eklenmesi yeter.
hatta dosya içindeki 1den fazla dosyayı alt alta ekleyebilirse çok daha güzel olur
 
Muhterem, sizin ".dat" içeriği şöyle....

Kod: 
4153001931920087012B32BBADBAB  A B EE   A      ADABDEEADEBBABCD     D   C    D                   CBA DEDD    A      B  B C    C    C  AD                                               
4153001931920087412A12BBACBABC A    D                A AEBBA  D DAA ACD C  BAD ECCAEAAAEDCCAEBADECBADDB                                                                               
4153001931920086312B32ABCABBAECEDEA  DCB A        B DEB ADCBBDAA                  BA            EB ADDA       B    CA    E               DB  E                                         
4153001931920098912A12ACDEBBAB  C  EBD   A       C       CAABDABEBB DB  DAEA CCBDEBAE EBAEC D    B AD A                                                                               
4153001931920086812A22B                                          A                 ECB           C    C A D   B                  D    A        AD    B            A C      A DA B CA AC
415300193192  98712A22A                                                                                D A      B                    A         A C CEDB  A DA      C A    CDAA E D AAE



Her satırı alt alta hücreler aktarsak, içinden çıkamazsınız...... Muhtemelen eklediğiniz dat dosyasında gerçek veriler olmadığı için, anlamsız şeyler var.

.
 
aynen bunları makro ile çekebilirsem işim çok rahat olacak
optik tarayıcı dat ile kaydediyor
optik okuma yapmaya düşünüyorum.
 
Haluk' Alıntı:
Muhtemelen eklediğiniz dat dosyasında gerçek veriler olmadığı için, anlamsız şeyler var.
Genişletmek için tıkla ...
Merhaba üstat,
Anladığım kadarıyla bu dosya optik form okuyucunun ürettiği dosya. Her bir satır A sütununda bir hücreye alınıp oradan parçaal ile vs aldırılıp işlem yapılacaktır.
Örneğin ilk 11 karakter kimlik no, sonraki 3 karakter okul no, 51-70 karakterler arası Türkçe cevabı gibi... Öğrencinin boş bıraktığı seçenekler de boşluk ile ifade ediliyor.
 
ÖmerBey' Alıntı:
Merhaba üstat,
Anladığım kadarıyla bu dosya optik form okuyucunun ürettiği dosya. Her bir satır A sütununda bir hücreye alınıp oradan parçaal ile vs aldırılıp işlem yapılacaktır.
Örneğin ilk 11 karakter kimlik no, sonraki 3 karakter okul no, 51-70 karakterler arası Türkçe cevabı gibi... Öğrencinin boş bıraktığı seçenekler de boşluk ile ifade ediliyor.
Genişletmek için tıkla ...
aynen optik okuma yapıp değerlendirme yapmayı düşünüyorum
 
ÖmerBey' Alıntı:
Merhaba üstat,
Anladığım kadarıyla bu dosya optik form okuyucunun ürettiği dosya. Her bir satır A sütununda bir hücreye alınıp oradan parçaal ile vs aldırılıp işlem yapılacaktır.
Örneğin ilk 11 karakter kimlik no, sonraki 3 karakter okul no, 51-70 karakterler arası Türkçe cevabı gibi... Öğrencinin boş bıraktığı seçenekler de boşluk ile ifade ediliyor.
Genişletmek için tıkla ...


O zaman, hangi aralıklarda ne verisi olduğu belliyse; "dış veri al" komutuyla manuel yapılır.... Ya da yukarıda verdiğim linkte 13 No'lu mesajdaki kodda söz konusu aralıkları değiştirerek VBA ile veriler alınabilir.....


Capture.PNG

.
 
2 No'lu mesajda verdiğim linkte, 13 No'lu mesajdaki kodu kullanın ..... aralıkları kendinize göre düzeltin.

.
 
ilginiz için teşekkürler. ben şunu denedim şimdi onu yapacağım
Kod: 
Sub veri_al()
    Dim pir As String
    Dim ilk As Workbook
    Dim son As Workbook
    Set ilk = ActiveWorkbook
    
    ilk.Sheets("okuma").Activate
    pir = InputBox("Okul Kodu", "Okul Kodunu Giriniz")
Range("b1").Value = pir

    Workbooks.Open Filename:="C:\okuma\dat\" & Range("b1").Value & ".dat"
    Set son = ActiveWorkbook
    
    son.Activate
    
Range("a1:a5000").Copy
    ilk.Sheets("okuma").Activate
Range("a8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
        son.Close
  
End Sub
 
lgs denemesi için optik okumayı bitirdim
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst