- Katılım
- 3 Mart 2010
- Mesajlar
- 25
- Excel Vers. ve Dili
- 2007 Türkçe
- Altın Üyelik Bitiş Tarihi
- 25.05.2018
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_?
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_?
Kod:
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