İnternet Sitesinden Veri Çekmek

telmih01 · 4 Ekim 2014

Öncelikle Herkese İyi Bayramlar.
Forumda arama yaptım ancak sadece e-okul için yapılmış çalışmaları görebildim o çalışmaları kendi dosyama uyarlayamadım.

Bir internet sitesinde belli bir kurala göre sorgulama yapabiliyorum ancak bu sorgulamam neticesinde görünen verileri excele aktaramıyorum.
Benim yazdığım kodlar şu şekilde;

Dim URL As String
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "********************"
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
Application.WindowState = xlMaximized
.erisimno.Value = Cells(1, 2).Text
.Image3.Click
End With
End With
MsgBox ("Hazırla")
Application.WindowState = xlMinimized
Application.Wait (Now + TimeValue("0:00:1"))
Cells(51, 1).Value = IE.Document.all.formitem(1).Value
Cells(52, 1).Value = IE.Document.all.formitem(2).Value
Cells(53, 1).Value = IE.Document.all.formitem(3).Value
Cells(54, 1).Value = IE.Document.all.formitem(4).Value
....

Sayfanın Kaynak Kodu ise;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<link rel="stylesheet" type="text/css" media="all" href="styles/calendar-tas.css" title="win2k-cold-1" />
<link href="styles/style1.css" rel="stylesheet" type="text/css">

<table width="740" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="listTop" height="25" colspan="2">*********** ( 04/10/2014 11:12:55 )</td>
</tr>
<tr>
<td class="formColHeading" width="30%">************</td>
<td class="formitem">***********</td>
</tr>
<tr>
<td class="formColHeading">*********</td>
<td class="formitem">************</td>
</tr>
<tr>
<td class="formColHeading">********</td>
<td class="formitem">***********</td>
</tr>
<tr>
<td class="formColHeading">**********</td>
<td class="formitem">***********</td>
</tr>
<tr>
<td class="formColHeading">**********</td>
<td class="formitem">*********************</td>
</tr>
<tr>
<td class="formColHeading">**************</td>
<td class="formitem">**************</td>
</tr>
<tr>
<td class="formColHeading">************</td>
<td class="formitem">**************</td>
</tr>
<tr>
<td class="formColHeading">************</td>
<td class="formitem">**********</td>
</tr>
<tr>
<td class="formColHeading">*************</td>
<td class="formitem"*************</td>
</tr>
<tr>
<td class="formColHeading">************</td>
<td class="formitem">**************</td>
</tr>
<tr>
<td class="formColHeading">***********</td>
<td class="formitem">***********</td>
</tr>

<tr>
<td class="listTop" height="25" colspan="3">
Sonuçlar Bilgi Amaçlıdır.
</td>
</tr>
</table>

olarak görünüyor.

Yardımlarınızı bekliyorum şimdiden teşekkür ederim.

telmih01 · 7 Ekim 2014

İlgilenen herkese teşekkür ederim. Sorunu çözdüm.

İnternet Sitesinden Veri Çekmek

telmih01

telmih01