abuhanen10 قام بنشر يونيو 23 مشاركة قام بنشر يونيو 23 السلام عليكم في هذا الكود ارجوا تغيير انترنت اكسبلور الي الافتراضي ايا كان وشكرا مقدما Sub Logi1nNew_URL() Dim ie As Object Dim element As Object Dim str1 As String Dim str2 As String Dim str3 As String Dim lRow As Long With Sheets("Sheet1") str1 = .Range("ac2").Value: str2 = .Range("ad2").Value: str3 = .Range("ae2").Value End With Set ie = CreateObject("InternetExplorer.Application") With ie .Visible = True .Navigate "http://student.moe.gov.eg/new/serch_students.aspx" Do Until .ReadyState = 4: DoEvents: Loop On Error Resume Next .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox1").Value = str1 .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox2").Value = str2 .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = str3 For Each element In .Document.getElementsByTagName("input") If element.Type = "submit" Then element.Click: Exit For Next element End With End Sub رابط هذا التعليق شارك More sharing options...
Saleh Ahmed Rabie قام بنشر يونيو 24 مشاركة قام بنشر يونيو 24 وعليكم السلام Sub Logi1nNew_URL() Dim ie As Object Dim element As Object Dim str1 As String Dim str2 As String Dim str3 As String Dim lRow As Long ' Set Internet Explorer as default browser Set ie = CreateObject("Shell.Application").Windows("iexplore.exe") With Sheets("Sheet1") str1 = .Range("ac2").Value str2 = .Range("ad2").Value str3 = .Range("ae2").Value End With With ie .Visible = True .Navigate "http://student.moe.gov.eg/new/serch_students.aspx" Do Until .ReadyState = 4 DoEvents Loop On Error Resume Next .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox1").Value = str1 .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox2").Value = str2 .Document.All.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = str3 For Each element In .Document.getElementsByTagName("input") If element.Type = "submit" Then element.Click Exit For End If Next element End With End Sub رابط هذا التعليق شارك More sharing options...
2saad قام بنشر يونيو 24 مشاركة قام بنشر يونيو 24 لو سمحت ماذا يفعل هذا الكود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان