Excelde Webden Sorgulama Yapmak

[karahan5]

Arkadaşlar merhaba,
Bir konu hakkında sizden ciddi yardım istiyorum.
Şİrketimizi localhostunda bulunan verileri sorgulamak için bir excel çalışması yapmak istıyorum.Amacım excelde kayıtlı olan sutundakı bilgilere tıkladığımda sitede bulunan inputlara exceldeki bilgileri yazması ve sorgulaması.
Böyle bir çalışma için yardımcı olurmusunuz Acaba ?

Saygılarımla,

 

[karahan5]

Dosya eklemeyı unutmuşum.
İlgili dosyadaki gibi sütünda bilgiler mevcut.şu anda sadece TC numarasını süstüna yazdırabiliyorum.Sizden rica Ad-Soyad - ikinci ad - vs.. sütünda olan hepsini yazdırmak istıyorum.Bu konu hakkında yardım rica ediyorum.Toplu sorgulama olmayacak.

Bu arada web tasaru.exe dosyasını hazırlayan arkdaşımada burdan teşekkur etmek istıyorum.

 

[Mehmet Şahin]

Merhaba,
kimlik no'sunu yazdırıyorsanız diğer bilgileri de yazdırabilirsiniz. Yapmanız gereken sayfa açıkken sağ klikle view source'u açmak ve ilgili bilgilerin hangi elemanlarda olduğunu bulmak ve koda eklemektir. Bir diğer yol da çalışma zamanında sorguyu duraklatıp "IE.document" objesini watches pencerinde özellik ve değerleriyle incelemektir. Bunun için kod penceresinde IE.document yazısını seçip, sağ klikle "Add Watch" seçmektir. Kolay gelsin.

 

[karahan5]

Hocam Ellerine sağlık.
Yanlız şöyle bir sıkıntım var.Şuan kullandığım bilgisayarda makro gayet güzel çalışıyor , fakat başka bir bilgisayarda çalıştırmaya kaltığımda "Run-time error'2147023179(800706b5)
Automatic Eroor
The interface is Unknown

Hatası alıyorum.Başka bir bilgisayarda neden çalıştıramıyorum makroyu?

 

[karahan5]

Makroda bu şekildedir.
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Sub giris()
Dim URL As String
Dim IE As Object


URL = "www.xxx.com"
Set IE = CreateObject("InternetExplorer.Application")


With IE
.Navigate URL
.Visible = 1
ShowWindow IE.hwnd, 6

For r = 2 To Cells(Rows.Count, "B").End(3).Row
.Navigate URL


Do Until IE.ReadyState = 4: DoEvents: Loop
IE.document.all("ctl00$ContentPlaceHolder1$kimlikno").Value = Cells(r, "C")
IE.document.all("ctl00$ContentPlaceHolder1$ilkad").Value = Cells(r, "D")
IE.document.all("ctl00$ContentPlaceHolder1$ikinciad").Value = Cells(r, "E")
IE.document.all("ctl00$ContentPlaceHolder1$soyad").Value = Cells(r, "F")
IE.document.all("ctl00$ContentPlaceHolder1$babaad").Value = Cells(r, "G")
IE.document.all("ctl00$ContentPlaceHolder1$dogumtarih").Value = Cells(r, "H")
IE.document.all("ctl00$ContentPlaceHolder1$dogumyer").Value = Cells(r, "I")
IE.document.all("ctl00$ContentPlaceHolder1$Button2").Click




Next
'IE.Quit: Set IE = Nothing

End With


MsgBox ("SORGULAMA YAPILMIŞTIR ")
End Sub