excelden paket programa veri gönderme

[incsoft]

Arkadaşlar excelde hazırlanan formdan belirtilen alandan verileri alarak başka bir ekrana veri gönderme işlemini ne şekilde gerçekleştirebiliriz?

Örnek bir sorumu resimde gönderdim.

Teşekkürler..

 

[Korhan Ayhan]

Sendkeys komutunu araştırınız.

 

[incsoft]

Sendkeys komutunu araştırınız.

Korhan bey bu şekilde kullandığım bir komutum var ancak hızından dolayı komutlar çoğunlukla karıştığından dolayı farklı alanlara farklı verileri aktarabiliyor. Kodda mümkünse bazı değişiklikler yapabilme imkanınız varmıdır? Teşekkürler..


'Private Sub CommandButton1_Click()

Sub YILLIKizin1()
AppActivate "Kullanılan İzinler", True
For d = 414 To 416
SendKeys "{f4}", True
'Sleep (1200)
newHour = Hour(Now()) '5 sn bekleme yaptırıyor
newMinute = Minute(Now())
newSecond = Second(Now()) + 2 'süre miktari saniye olarak
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

SendKeys "{f9}", True
'Sleep (2200)
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 4
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
SendKeys Sheets("YILLIKİZİN1").Cells(d, 1), True
'Sleep (1500)
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
SendKeys "{ENTER}", True
Sleep (1000)
SendKeys "{f9}", True
Sleep (1000)
SendKeys Sheets("YILLIKİZİN1").Cells(d, 5), True
Sleep (600)
SendKeys "{ENTER}", True
Sleep (600)
SendKeys Sheets("YILLIKİZİN1").Cells(d, 3), True
Sleep (600)
SendKeys "{ENTER}", True
Sleep (600)
SendKeys Sheets("YILLIKİZİN1").Cells(d, 4), True
Sleep (300)
SendKeys "{ENTER}", True
Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
'SendKeys "{ENTER}", True
'Sleep (300)
SendKeys "{f2}", True
Sleep (1000)
Next
End Sub

 

[incsoft]

arkadaşlar 1 çözüm yokmudur?

 

[Korhan Ayhan]

@asri beyin daha önce forumda değindiği Autoit diye bir yöntem vardı. Onu araştırın isterseniz.

 

[incsoft]

@asri beyin daha önce forumda değindiği Autoit diye bir yöntem vardı. Onu araştırın isterseniz.

bakıyımda Korhan bey fazla profesyonel değilim bu konuda.

Teşekkürler..

 

[Korhan Ayhan]

Merhaba,

Bu tarz özel talepler için şu aşamada sadece önerilerde bulunabiliriz. Genellikle uygulanan yöntem Sendkeys yöntemidir. Fakat siz bu yöntemde sıkıntı olduğunu belirtmişsiniz.

Bu sıkıntıları detaylı açıklamanız gerekir ki konuya ilgi duyanlar cevap verebilsinler.

Bir ara dediğim gibi @asri bey bu konuyla ilgili olarak birkaç başlıkta cevap vermişti. Uyguladığı yöntemin oldukça başarılı olduğuna değinmişti.

Ben de size bu uygulamayı incelemenizi önerdim. Benim mesajımın ardından 2 dakika sonra "profesyonel değilim" şeklinde mesaj yazdınız.

İlgili konuyu araştırdınız mı? Konuyu araştırmanız gerekir ki zorluklarını ve avantajlarını görün. Hangi yöntem sizin için uygunsa onu kullanmayı tercih edin.

Sonrasında bizler yine elimizden geldiğince destek olmaya çalışırız.

 

[mustilem23]

merhaba ,

İnceleyebilir misin . sorunun aynı benimle autoit sayesinde çözdüm işim %50 i bu program ile çözer hale geldim.

https://www.excel.web.tr/threads/makro-ile-pc-den-bulunan-programa-teklif-olusturtma.156556/

 

[Asri]

Arkadaşlar excelde hazırlanan formdan belirtilen alandan verileri alarak başka bir ekrana veri gönderme işlemini ne şekilde gerçekleştirebiliriz?

Örnek bir sorumu resimde gönderdim.

Teşekkürler..

Merhaba,

Öncelikle sorunuz açık ve net değil, bu yüzden cevaplarda tam çözüm olarak gelemiyor.
Soruyu örnek excel dosyamdaki şu alanları, programdaki şu alanlara aktarmak istiyorum gibi detaylandırabilirseniz yardımcı olunabilir.
Autoit ile yapılacak ise programın bir kısmının resmi değil de tam pencere resmi gerekli. Pencere başlıkları kullanılarak sendkey işleminde başka programlara gönderimi engellemiş olursunuz. Ayrıca bir anlan girilip diğer alana geçildiğinde tab ile mi, enter ile mi? ok tuşları ile mi geçiş yapılıyor detaylı bilgi verilmeli.

Onaylama ve kayıt sırasında ekrana mesaj kutusu geliyor mu? Bu kutularda onaylamak için klavyeden hangi tuşlara kaç defa basılyor v.b.

@Korhan Ayhan ın belirttiği gibi bu yöntem üzerinde çalıştığınız programı kontrol edebildiği için çok kararlıdır.

Biraz araştırma ve denemeler ile kısa zamanda işlemleri gerçekleştirebilirsiniz.

@mustilem23 ün verdiği konu başlığında excel den okuma ve başka programa yazma örneği mevcut.

İyi çalışmalar.

 

[yasin85]

Sn. @mustilem23 ,
Sn. @asri Bey ile yapmış olduğunuz forum yazışmaları okudum yapılan çalışmanın en son excel halini bizler için paylaşırmısınız.