Web'den Makro ile Veri Alma

[sonses10]

Merhaba değerli excel.web.tr sevenleri.

Takibini yapmakta olduğum bir sitenin ana sayfasında bulunan veri kümesini günde 1 sefer (örneğin gece 00,00) çekmek istiyorum. Çekmiş olduğum bilgiyi sürekli açık olacak excel dosyasına kayıt etmek istiyorum. Kaydı her seferinde mevcut dosyaya yeni sayfa açarak yapmasını istiyorum.

Aşağıdaki kodları araştırken buldum. Bunu denedim mevcut url ile sadece en altta eklenmiş olan veri alış saati vb kısımlar geliyor. Ancak hata almıyorum. Mevcut urlde değişiklik yapıyorum veri çekmek istediğim sitenin adını https://coinmarketcap.com/ yazıyorum. Ancak run time 1004 hatası alıyorum. Burada yapmam gereken diğer değişiklikler ile ilgili yardımcı olabilir misiniz_?

Sub ExcelceVeriAl()
Dim AktifSayfa As Worksheet
For i = 0 To 3
    sayfam = ("Sayfa" & i)
    Set AktifSayfa = ThisWorkbook.Worksheets(sayfam)
    Sheets(sayfam).Select
    konum = AktifSayfa.Range("A65536").End(3).Row + 2
    With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://www.bahisanaliz.com/banaliz_iddaavalue.php?git=od2&bh=" & i, Destination:=AktifSayfa.Range("A" & konum))
    .Name = "banaliz_iddaavalue.php?git=od2&bh=" & i
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "2"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    AktifSayfa.Range("B" & konum).Value = "Veri alış tarihi ve saati: " & FormatDateTime(VBA.Now, vbGeneralDate)
Next i
Application.OnTime Now + TimeValue("01:00:00"), "ExcelceVeriAl"
End Sub

 

[Mahmut Bayram]

http://www.excel.web.tr/f50/nternet-sunucusu-ya-da-ara-sunucu-konumlandyrylamyyor-hatasy-t157339.html

 

[sonses10]

Sayın Mahmut Bey,

Tam olarak verdiğiniz link ile ne yapamam gerekiyor. Siteyi normal tarayıcıda sorunsuz açabiliyorum. Excel dosyamda hata alıyorum. Muhtemelen eksik bir tanım var ve algılayamadım.

 

[Mahmut Bayram]

So mesajda vpn kullanarak internete bağlanmayı denemeniz öneriliyor.
Zannımca şirket veya meb hattından internete bağlanıldığı için hata alıyorsunuz.
1004 nolu hata. Bende de aynı hatayı verdi.
VPN kullanmadığım için sizi yönlendiremeyeceğim.

 

[sonses10]

Konuyla ilgili desteğe ihtiyacım var

 

[sonses10]

Bana destek olabilecek birisi var mı acaba. Forumdaki konulardan dosyaları inceledim. Her dosya kendine göre içerikleri güncelleyebiliyor. Hiç bir farklı web adresini indiremiyor. Bu durumda nasıl bir çözüm gerekiyor.

 

[4yaKuza]

Merhabalar forumda yeniyim bende bu şekil birşey araştırıyorum webdeki maçları excel dosyasına çekeceğim mesela