internetten excel e veri aktarımı

[atilcesur]

arkadaşlar merhaba, ben iddaa üzerine çok uğraştığım için bir program oluşturmaya karar verdim fakat gerekli uygulamaları bilmiyorum.
yapmak istediğim iddaa sitesinde mesela türkiye süper ligin sonuçlarını webden excel e çekmek istiyorum fakat, her defasında hata alıyorum. web den dış veri al bölümünden sayfa kısa yolunu yazıyorum git deyip alanı seçtikten sonra AL kısmına tıklıyorum ama sonuç hüsran almıyor ve hata veriyor. Başka ne yapabilirim yardımcı olursanız sevinirim. Bilgisayar bilgim çok az ona göre yazarsanız sevinirim.
Şimdiden teşekkürler.

 

[akmes]

arkadaşlar merhaba, ben iddaa üzerine çok uğraştığım için bir program oluşturmaya karar verdim fakat gerekli uygulamaları bilmiyorum.
yapmak istediğim iddaa sitesinde mesela türkiye süper ligin sonuçlarını webden excel e çekmek istiyorum fakat, her defasında hata alıyorum. web den dış veri al bölümünden sayfa kısa yolunu yazıyorum git deyip alanı seçtikten sonra AL kısmına tıklıyorum ama sonuç hüsran almıyor ve hata veriyor. Başka ne yapabilirim yardımcı olursanız sevinirim. Bilgisayar bilgim çok az ona göre yazarsanız sevinirim.
Şimdiden teşekkürler.

Merhaba, benim arşivimde aşağıdaki gibi bir makro var ama işe yarar mı bilmem sen üzerinde biraz uğraşarak belki halledebilirsin.kolay gelsin

Sub verilerial()
Cells.ClearContents
hafta = Val(InputBox("haftayı giriniz"))
Select Case Len(hafta)
Case 2
hafta = "0" & hafta
yil = 11
Case 3
hafta = hafta
yil = 11
End Select
deger = yil & hafta

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.tahminkolik.com/IddaaProgram.aspx?week=" & deger & "", Destination:=Range("$A$2"))
.Name = "IddaaProgram.aspx?week=" & deger & ""
.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 = "4"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

 

[akmes]

arkadaşlar merhaba, ben iddaa üzerine çok uğraştığım için bir program oluşturmaya karar verdim fakat gerekli uygulamaları bilmiyorum.
yapmak istediğim iddaa sitesinde mesela türkiye süper ligin sonuçlarını webden excel e çekmek istiyorum fakat, her defasında hata alıyorum. web den dış veri al bölümünden sayfa kısa yolunu yazıyorum git deyip alanı seçtikten sonra AL kısmına tıklıyorum ama sonuç hüsran almıyor ve hata veriyor. Başka ne yapabilirim yardımcı olursanız sevinirim. Bilgisayar bilgim çok az ona göre yazarsanız sevinirim.
Şimdiden teşekkürler.

Hatta ben sana bendeki dosyayı göndereyim tüm liglerin sonuçlarını alabiliyorsun.
veri al butonunu tıkla gelen pencereye şuan 243 olmalı 243 yaz son maç programına ulaşabilirsin.Kolay gelsin.

 

[atilcesur]

teşekkürler