Kısa Açıklama
İnternetten Veri Çekme Kodu Yazma isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
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
Ekli dosyayı görüntüle 17190
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
Ekli dosyayı görüntüle 17190
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
Ekli dosyalar