Çözüldü İnternetten Veri Çekme Makrosu

feyzaorcun' Alıntı:

Merhaba iş yerinde kullandığım bir siteye excelden aldığım barcode verilerini yapıştırıp aratıyorum ve çıkan tabloyu excele yapıştırıp yaklaşık 400 kere aynı hücredeki operatör ıd numarasını alıyorum. Bu işlemi makroya dökmek istedim. yazdığım kodu ekliyorum. İşlemi yapıyor sayfaya giriyor gerekli sekmeyi açıyor fakat seçtiği halde barcodu yapıştırmadan işlemden çıkıyor. Sistemin ekran görüntüsü bu şekilde. Kodda bir sorun olduğunu düşünmüyorum aynı kodu websitesini youtube olarak değiştirdiğimde yapıştırma işlemini yapıyor çünkü. Önerisi olan yardımcı olan olursa çok sevinirim


Sub dfg()

p = Shell("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe", 1)
Application.Wait Now + TimeValue("00:00:02")

SendKeys "172.30.8.25", True
Application.Wait Now + TimeValue("00:00:02")
SendKeys "{enter}", True
Application.Wait Now + TimeValue("00:00:01")

For y = 1 To 7
SendKeys "{tab}", True
Next
Application.Wait Now + TimeValue("00:00:01")
SendKeys "{enter}", True

Range("C1").Select
Selection.Copy

SendKeys "^{v}", True


Application.Wait Now + TimeValue("00:00:02")
SendKeys "{enter}", True

End Sub

Genişletmek için tıklayın ...

Admin' Alıntı:

Merhaba,

Bunu deneyimlemek, olası bir sorun vs varsa görebilmek adına dosyayı eklemeniz faydalı olacaktır.
Sadece kodlarla bir çözüm üretmek zor oluyor.

Bilginize,

Genişletmek için tıklayın ...

Burhan.cesur' Alıntı:

@feyzaorcun merhaba,
İlgili bağlantıya bağlanamadığım için deneyemedim kodunuzu . kopyalama kısmına çok hızlı geliyor sürelerle oynamanız iyi olur onun dışında sayfa açıldıktan sonra yani yüklendikten sonra işleme başlatan bir do loop döngüsü var onu kullanın onun dışında hali hazırda bulunan html kütüphanesini kullanmanız sizin için çok daha iyi olacaktır böyle sitenin açılmasıyla felan uğraşmazsınız veya kopyala yapıştır gibi isterseniz onu bi araştırın size çok daha faydalı olacaktır.

Genişletmek için tıklayın ...