Skip to main content

AccessTr.neT


EXCEL İLE WEBDEN TOPLU SORGULAMA YAPMAK

EXCEL İLE WEBDEN TOPLU SORGULAMA YAPMAK

Çözüldü #1
MERHABA ARKADAŞLAR,
TTNETİN SAYFASINDAKİ FATURA SORGULAMA EKRANINDAN ELİMDE Excel DOSYASI HALİNDE OLAN ADSL NUMARALARI İLE TOPLU HALDE FATURA SORGULAMAK İSTİYORUM.BUNU EXCELDEN MAKROLARLA YAPMA ŞANSIMIZ VARMI?
BURDA BİRÇOK KONUYU GEZDİM LAKİN İSTEDİĞİM GİBİ BİR DOSYA BULAMADIM.YARDIMCI OLABİLECEK OLAN VARMI?
Cevapla
Çözüldü #2
Sn turuncumx forumumuza hoşgeldiniz. Lütfen Site Kuralları gereği mesajınızın tamamını büyük harfle yazmayınız.

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
Çözüldü #3
Sn:turuncumx
Sizin sorunuzada Sn:Muhammet Aytaş'ın bir başka arkadaşımıza verdiği cevabı örnek olarak vereyim.Muhammet arkadışımızada ayrıca verdiği cevap için teşekkürler.

Visual Basic Code
Dim Web As Object
Sub SorgulaB()
Dim Son As Integer, Say As Integer
Son = ActiveSheet.Range("A65536").End(xlUp).Row
Set Web = CreateObject("InternetExplorer.application")
Web.Navigate "http://www.ailehekimibul.com"
For Say = 2 To Son
Denetle ActiveSheet.Range("A" & Say).Value, Say
Next
Set Web = Nothing
MsgBox "İşlem tamam.", vbInformation, "Sonuç"
End Sub

Sub Denetle(TC, Say)
On Error GoTo Hata
Web.Navigate "http://www.ailehekimibul.com"
Do While Web.Busy: DoEvents: Loop
Do While Web.ReadyState <> 4: DoEvents: Loop
Web.Document.getElementById("tc").Value = TC
Web.Document.getElementById("Sorgula").Click

Do While Web.Busy: DoEvents: Loop
Do While Web.ReadyState <> 4: DoEvents: Loop

With ActiveSheet
.Range("B" & Say).Value = Web.Document.all.tags("table").Item(6).Rows(1).Cells(1).innerText
.Range("C" & Say).Value = Web.Document.all.tags("table").Item(6).Rows(2).Cells(1).innerText
.Range("D" & Say).Value = Web.Document.all.tags("table").Item(6).Rows(3).Cells(1).innerText
.Range("E" & Say).Value = Web.Document.all.tags("table").Item(6).Rows(4).Cells(1).innerText
End With
Exit Sub
Hata:
Range("A1") = Err.Number
If Err.Number = 91 Then
Err.Clear
Do While Web.Busy: DoEvents: Loop
Do While Web.ReadyState <> 4: DoEvents: Loop
If InStr(Web.Document.all.tags("table").Item(2).innerText, "SORGULADIĞINIZ KİŞİNİN") > 0 Then Exit Sub
Resume
Else: Exit Sub
End If
End Sub
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
#4
http://www.clkakdeniz.com/sayfa.asp?mdl=borcSorgulama bu adresten toplu bir şekilde excel'de abone numaralarını girerek sorgu yapmak istiyorum yardımcı olurmusunuz ???
Cevapla
#5
sayın Hülya ve Ender Seçilir,

Kurallar hk.

yukarıdaki bağlantıda ve 1.maddede yer alan kuralı hatırlatarak,talebinizi yeni konu açarak oluşturunuz lütfen.böylece,hem kapatılmış bir konunun içerik açısından artmamasını hem de yeni konu dahil ederek konu çeşitliliğini sağlamış olursunuz.

ayrıca,konuya dair öncesinde oluşturduğunuz eğer bir çalışma da mevcutsa bunu da konunuza dahil ediniz.
ilginize teşekkürler.

iyi çalışmalar,
saygılar.
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da