• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Web sayfasına mesaj göndermek

Katılım
4 Aralık 2011
Mesajlar
94
Excel Vers. ve Dili
2007 Türkçe
Merhaba Arkadaşlar
Ben okulun üye olduğu bir web sayfasından mesaj öğrenci velilerine mesaj göndermek istiyorum. Excel çalışma kitabının bir sayfasının C2 hücresine veli telefonu, D2 hücresine gönderilecek mesajı formüle getiriyorum. Bunları kopyala yapıştır ile Web sayfasındaki mesaj ve telefon kutularına aktarıca gönder butonları ile gönderiyorum. C2 ve D2 hücrelerindeki verileri Web sayfasına aktarabilir miyim?
 
Merhaba Arkadaşlar
Ben okulun üye olduğu bir web sayfasından mesaj öğrenci velilerine mesaj göndermek istiyorum. Excel çalışma kitabının bir sayfasının C2 hücresine veli telefonu, D2 hücresine gönderilecek mesajı formüle getiriyorum. Bunları kopyala yapıştır ile Web sayfasındaki mesaj ve telefon kutularına aktarıca gönder butonları ile gönderiyorum. C2 ve D2 hücrelerindeki verileri Web sayfasına aktarabilir miyim?

farklı yöntemler var, ancak bu linki inceleyebilirsiniz.
http://www.excel.web.tr/f125/webden-bilgi-sorgulama-ogs-kgs-orneoi-resimli-t109040.html

Diğer örnekler için
http://www.excel.web.tr/f125/
 
Merhaba uzun uğaştan sonra
Kod:
Sub giris()
Dim URL As String
Dim IE As Object
 Set IE = CreateObject("InternetExplorer.Application")
     IE.Visible = True
     IE.navigate "http://sms.smsege.com/index.php?sayfa=Coklu_SMS"
With IE

Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
Do Until IE.ReadyState = 4: DoEvents: Loop
With IE.document.all
.mesaj.Value = Cells(3, 7).Value
.numaralar.Value = Cells(3, 6).Value
.button2.Click
Do Until IE.ReadyState = 4: DoEvents: Loop
[COLOR="Red"].Table.Click[/COLOR]

End With
End With
End Sub
bu kodlarla çalışıyor fakat. son butona basamıyrorum.kaynak kodlar
Kod:
 <td height="30"><strong>Gönderilecek Kişi Sayısı </strong></td>
    <td>1</td>
  </tr>
  <tr>
    <td height="30"> </td>
    <td><input name="Submit" value="Gönderimi Onaylıyorum »" onclick="this.disabled=1; this.form.submit();this.value='Mesajınız Gönderiliyor...Lütfen bekleyiniz...'" type="submit"></td>
  </tr>
</tbody>
Web sayfası aşağıdaki gibi
http://imageshack.us/a/img526/9617/gnder.jpg
 
web sayfalarında kabartma butonlara nasıl basabiliriz
 
Aşağıdakilerden biri çalıştıracaktır.

Kod:
ie.document.all("submit").click

Kod:
ie.document.all.forms(0).submit
 
Geri
Üst