web sitesinden dış veri

[altanson]

merhaba,

bir web sayfasından veri almak istiyorum fakat almak istediğim veriler ilgili sitede birden çok sayfada.

örneğin veri alacağım adres şöyle olsun;

http://www.site.com/data.php=p&1

verileri alacağım sayfalar 1'den 100'e kadar gidiyor mesela. nasıl bir makro yazmalıyım ki otomatik olarak bu verileri alabileyim.

Teşekkürler.

 

[ReBiwAr]

Merhaba,

Ekteki dosyada A1 hücresine 1 ile 100 arasında bir rakam yazıp güncelle makrosunu çalıştırırsanız istediğiniz veriyi çekebilirsiniz.:tongue:

Ancak dosyanın içindeki makrodaki adresi düzenleyiniz Tabi adreste değişken olan 1-100 arasını yazmayınız..

İyi Çalışmalar.

 

[altanson]

teşekkürler, çalışma sayfasına herhangi bir veri girmeden kod içerisinde kaçıncı sayfaya kadar veri çekeceğini belirtebilir miyiz?

bir de mesela 1. sayfadaki verileri getirdi. 2. sayfadan alacağı verileri 1. sayfadan alınan verilerin altına getirebilir miyiz?

 

[Evolver]

selam,
aşağıdaki kodları boş bir sayfanın kod bölümüne yapıştırın ve çalıştırın.deneyip sonucu haber verin.

Sub guncelle()
Dim a As Byte
Dim son As Long
Dim adr As String
adr = "http://www.site.com/data.php=p&"
For a = 1 To 100
    son = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
    With ActiveSheet.QueryTables.Add("URL;" & adr & a, Range("A" & son))
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
Next a
End Sub

 

[altanson]

teşekkürler, kod istediğim gibi çalışıyor fakat verilerin olduğu sayfanın tümünü getirmiyor. fakat aşağıdaki kodu kullanınca sayfadaki isetdiğim tüm verileri getiriyor. sizin verdiğiniz koda nasıl uyarlayabiliriz?

http://www.eksisozluk.com/index.asp?a=sr&kw=.&p=1

Sub guncelle2()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.site.com/data.php=p&1", Destination:=Range( _
"$A$1"))
.Name = "data.php="
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

 

[Evolver]

kodlar aşağıdadır.

Sub guncelle2()
Dim i As Byte
Dim son As Long
Dim adr As String
adr = "http://www.site.com/data.php=p&"
For i = 1 To 100
    son = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
    With ActiveSheet.QueryTables.Add("URL;" & adr & i, Range("A" & son))
        .Name = "data.php="
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
Next i
End Sub

 

[altanson]

çok teşekkürler, bu sefer sorunsuz çalışıyor.

 

[Evolver]

rica ederim
iyi çalışmalarr

 

[altanson]

tekrar bir sorum olacak. bu kod ile en fazla kaç döngü kurabiliyoruz. 500 yapınca "overflow" hatası veriyor...

 

[Evolver]

kodun 2. satırına dikkat ederseniz "dim i as byte" şeklinde bir satır var. buradaki "byte" ifadesini "long" olarak değiştirin. yani "Dim i as Long" yapın.

 

[altanson]

dediğiniz değişikliği yaptım ve "overflow" hatası vermiyor teşekkürler.

fakat şimdi de şöyle bir sorun var. For i = 1 To 50 satırını örneğin 5000 to 6000 olarak değiştirirsem sürekli aynı sayfayı (13. sayfa) getiriyor. 1 to 50 dersem sorun yok, sıralı olarak getiriyor.

 

[Evolver]

tamamda sizin almak istediğiniz sitede kaç sayfa varki.
demekki son sayfa 13 olduğu için döngünün sonuna kadar o sayfayı alıp duruyor

 

[altanson]

toplamda 30.000 civarında sayfa var. ilk sayfadan başlatınca problem yok istediğim sayfaları getiriyor. fakat aradaki sayfaları isteyince sürekli aynı sayfayı getiriyor...

 

[Evolver]

merak ettim hangi site olduğunu. sitenin adresi nedir bi bakmak istiyorum