Merhaba,
İlgili kod ile excel deki verileri web e aktarabiliyorum. Ancak veri aktarıldıktan sonra 2 işlem geriye kalıyor.
.document.getElementsbyname("TICKETID")(0).Value = Range("A2")
.document.getElementsbyname("ATANACAK")(0).Value = Range("B2")
Bu kodlar çalıştıktan sonra;
x adında butona tıklayacak daha sonra formu tamamlayacak. Yani 2 butona tıklaması gerekiyor.
Yukarıdaki kodlar butonların kodları. 1. butonda ID, Name özelliği olmaması sebebiyle tıklatamadım. Sanırım Value ">>" özelliğiyle bulup tıklatmak lazım. Çözemedim.
Şimdiden cevaplar için teşekkür ederim.
İyi çalışmalar.
Kod:
basla = Timer: While (Timer - basla) < 0.5: Wend
Set ie = VBA.CreateObject("internetexplorer.application")
URL = "https://site.com/atama.asp"
With ie
.Navigate URL
.Visible = True
Do While .Busy: DoEvents: Loop: Do While Not .readyState = 4: DoEvents: Loop
basla = Timer: While (Timer - basla) < 0.5: Wend
.document.getElementsbyname("TICKETID")(0).Value = Range("A2")
.document.getElementsbyname("ATANACAK")(0).Value = Range("B2")
End With
.document.getElementsbyname("TICKETID")(0).Value = Range("A2")
.document.getElementsbyname("ATANACAK")(0).Value = Range("B2")
Bu kodlar çalıştıktan sonra;
x adında butona tıklayacak daha sonra formu tamamlayacak. Yani 2 butona tıklaması gerekiyor.
Kod:
<input type="button" onclick="return AtanacaklaraEkle();" value=">>">
<input class="BUTTON" type="submit" name="Submit" value=" Kaydet ">
Şimdiden cevaplar için teşekkür ederim.
İyi çalışmalar.