Kapalı Dosyadan Veri Çekme

[bluefalcon]

Arkadaşlar forumda olan tüm arkadaşlara hayırlı geceler,

Ekte iki adet dosya gönderiyorum.Bu dosyalardan DATA dosyasında
şirkette kullanmakta olduğumuz kart giriş çıkışlarını takip ettiğimiz dosyalardan aldığım veriler var.Data dosyasında yer alan verilerin sadece nokta ismi (point name) PERSONEL GİRİŞ olanları Personel dosyasının giriş sahasına nokta ismi (point name) PERSONEL ÇIKIŞ olanları personel dosyasının çıkış sahasına aktarmak istiyorum. Ancak kaynak dosyadaki veriler biraz karışık yazılmış (tarih:27.11.2007 =>20071127 ----saatler ise 06:14:10 => 61410 gibi) Yardımcı olabilecek veya yorum yazan herkese teşekkür ederim.

 

[isfa5878]

sorunuı biraz daha açarmısın?

 

[Mahmut Kök]

Ekli örneği inceleyiniz. Sayfadaki düğmeye basarak, veri alacağınız excel belgesini seçiniz.

 

[isfa5878]

tam olarak istediğin..

 

[isfa5878]

istediğin cevap sn.mesleki ninki olabilir mi?

 

[bluefalcon]

Sn.mesleki arkadaşım, ilgine çok teşekkürler. Klavyene, gözüne, beynine sağlık. Süper olmuş bu veriyi excel haricindeki TAB uzantılı bir dosyadan çekebilir miyiz? Bu dosyanın uzantısını XLS yaptığımda aynen ekte verdiğim DATA dosyası çıkıyor karşıma.

 

[Mahmut Kök]

Sn.mesleki arkadaşım, ilgine çok teşekkürler. Klavyene, gözüne, beynine sağlık. Süper olmuş bu veriyi excel haricindeki TAB uzantılı bir dosyadan çekebilir miyiz? Bu dosyanın uzantısını XLS yaptığımda aynen ekte verdiğim DATA dosyası çıkıyor karşıma.

TAB uzantılı dosyanızı ekleyebilir misiniz?

 

[bluefalcon]

Dosyayı Ekte Gönderiyorum

Sayın mesleki arkadaşım dosyayı ekte gönderiyorum.PDKS programından aynen bu dosyayı alıyorum.Dikkat edersen sayfa adı da dosyanın adı ile aynı oluyor.İlgine tekrar teşekkür ederim.

 

[Mahmut Kök]

Ekli örneği kullanabilirsiniz. Veriyi doğrudan almak yerini, kodlarla önce excele dönüştürüp sonra verileri alıyor... Umarım işinize yarar.

 

[bluefalcon]

45.Satırda Takılıyor..

Mesleki arkadaşım çok teşekkürler program çalışıyor ancak "Workbooks("data1x").Close False" satırına geldiği anda SUBSCRIPT OUT OF RANGE diyor ve kalıyor.Sebebi ne olabilir acaba?

 

[Mahmut Kök]

Mesleki arkadaşım çok teşekkürler program çalışıyor ancak "Workbooks("data1x").Close False" satırına geldiği anda SUBSCRIPT OUT OF RANGE diyor ve kalıyor.Sebebi ne olabilir acaba?

Aşağıdaki gibi deneyiniz.

Workbooks("data1x[COLOR=red].xls[/COLOR]").Close False

 

[bluefalcon]

Kusura Bakma Gecenin Bu Saatinde...

Süper oldu teşekkürler çok çok çok saol.Yalnız aynı sicil numarasındaki kişilerin girişini ve çıkışını yan yana yazdırmamız mümkün mü?

Sicil Giriş Çıkış
40581 10.58.26 10.59.32

gibi mesela

 

[mesutsmo1]

benimde benzer bir dosyam var

bu dosya içerisinde istediklerimi yazdım aynı arkadaşın istediğiğine benzyor akat ben kod yazma ve uygulaa konusunda çok yeniyim acemi yani bu ilemler işlerim için çok önemli ilgilenirseniz şimdiden çok teşekkürler...

 

[baydeniro]

Paylaşım için teşekkürler.

 

[Mahmut Kök]

Süper oldu teşekkürler çok çok çok saol.Yalnız aynı sicil numarasındaki kişilerin girişini ve çıkışını yan yana yazdırmamız mümkün mü?

Sicil Giriş Çıkış
40581 10.58.26 10.59.32

gibi mesela

Kodlarınızı aşağıdaki gibi ayarlayarak deneyebilirsiniz.

...
For a = 1 To dst.RecordCount
sut = "C"
If dst("point_name") = "PERSONEL ÇIKIS " Then sut = "D"
tarih = Right(dst("date_occurred"), 2) & "." & Mid(dst("date_occurred"), 5, 2) & "." & Left(dst("date_occurred"), 4)
saat = dst("time_recorded")
saat = "00000" & saat
saat = Right(saat, 6)
saat = Left(saat, 2) & "." & Mid(saat, 3, 2) & "." & Right(saat, 2)
 
[COLOR=red]Set bul = Range("a1:a65536").Find(dst("card_no"))[/COLOR]
[COLOR=red]If bul Is Nothing Then[/COLOR]
[COLOR=red]sat = [a65536].End(3).Row + 1[/COLOR]
[COLOR=red]Else[/COLOR]
[COLOR=red]sat = Range("a1:a65536").Find(dst("card_no")).Row[/COLOR]
[COLOR=red]End If[/COLOR]
 
Cells(sat, "a") = dst("card_no")
Cells(sat, "b") = tarih
Cells(sat, sut) = saat
dst.MoveNext
Next
66
...

 

[Mahmut Kök]

bu dosya içerisinde istediklerimi yazdım aynı arkadaşın istediğiğine benzyor akat ben kod yazma ve uygulaa konusunda çok yeniyim acemi yani bu ilemler işlerim için çok önemli ilgilenirseniz şimdiden çok teşekkürler...

Dosyanızı ekleyebilirseniz yardımcı olamaya çalışalım.

 

[bluefalcon]

Mesleki arkadaşım çok teşekkürler.En derin saygılarımı sunuyorum.

 

[baydeniro]

Bluefalcon merhaba. İndirdiğim DATA dosyasını şimdi silemiyorum. Nasıl silebilirim. Bir de bu özellik nasıl yapılıyor, bilgi verirsen çok müteşekkir olurum.

 

[bluefalcon]

Program arkadaş çalışmaya devam ediyor

Merhaba,

Excel arka tarafta çalışmaya devam ediyor. CTRL+ALT+DEL'e bir kere basarsan Görev yöneticisi açılacaktır. Bu penceredeki excel.exe dosyalarının görevini sonlandırırsan DATA dosyasını silebilirsin.