• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

internetten excele veri alma

  • Konbuyu başlatan Konbuyu başlatan cumay
  • Başlangıç tarihi Başlangıç tarihi
C

cumay

Katılım
12 Mart 2005
Mesajlar
90
sevgili üstadlar

benim sorunum şu şekilde

Bir sitede aşağıdaki şekilde yaptıracağım sorgulamaları, excelde ayrı ayrı sayfalara yapıştırmak istiyorum. (internet select all/copy, excel paste olarak)

http://www.example.com/havadurumu.asp?sehirno=1
http://www.example.com/havadurumu.asp?sehirno=2
http://www.example.com/havadurumu.asp?sehirno=3
http://www.example.com/havadurumu.asp?sehirno=4
http://www.example.com/havadurumu.asp?sehirno=5


önce birinci sayfayı sorgulayıp, sayfayı tümünü seç ve kopyala yapıp, excel de sayfa 1 e yapıştırmak, sonra ikinci sorguyu çalıştırıp, sayfanın tamamını kopyalayıp, sonra excel de sayfa 2 ye yapıştırmak ... istiyorum. yardımcı olursanız sevinirim.
 
veri al

arkadaşım bunu yapmak için ilk önce yeni bir makro deyip görsel olarak veri alırsan internetten inceleyip yapabilirsin... ya da örnek dosya yollar mısın...
 
yeni makro ile denedim sadece paste kısmını verdi.

şimdi şöyle izah edeyim ben size
makro "http://www.example.com/havadurumu.asp?sehirno=" & sayac (for sayac = 1 to 20) sorgulu asp web sayfasını açacak bu sorguya göre oluşan sayfayı tümden kopyalayıp excelde sayfa1 e
sayac = 2 için sayfa2 ye
sayac = 3 için sayfa3 e ...
bu sayfalardaki verileri ben sonra kullanılabilir bir hale getireceğim. benim için önemli olan asp sorgularını çalıştırmak ve bu sayfaları kopyalayıp yapıştırmak.
 
deneme

arkadaşım bu kodları dener misin
Sub disverial()
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.example.com/havadurumu.asp?sehirno=", _
Destination:=Range("A1"))
.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
 
üstadım teşekkürler

ancak makroyu excel içinde dış veri al olarak çalıştırdığımda sayfa boş çıkıyor. "sayfada bilgi bulunamadı" gibi bir ibare çıkartıyor. ama internet explorer ı açıp adresi girdiğimde bu kez sayfa dolu olarak geliyor. Yapılabilir mi bilmiyorum ancak excel içinde öyle bir makro oluşturmam gerekiyor ki, internet explorer ı excelden bağımsız olarak açacak explorer a adresi girip sayfanın oluşmasını bekleyecek ve oluşan explorer sayfasını kopyalayıp benim excel dosyasına yapıştıracak. böyle bir şey mümkün mü?
 
adres

arkadaşım adresi tam olarak verir misin ?
ayrıca zaten excel bu işlemleri dediğiniz gibi gerçekleştiriyor...
 
Son düzenleme:
error

arkadaşım sitenin anasayfasında bir hata var fakat diğer bir sayfada herhangi bir sorun yok diğerlerinden aldım fakat anasayfada bir sorun var...
 
sevgili dostum anasayfada sorun yok ancak ben

Sub disverial()
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.soccerdb.com/SoccerDB.Web/live/live.aspx?date=26.04.2007", Destination:=Range("A1"))
.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

kodunu çalıştırdığımda excel sayfasında maç sonuçları görünmüyor

ama http://www.soccerdb.com/SoccerDB.Web/live/live.aspx?date=26.04.2007 adresini explorer a yapıştırdığımda çıkıyor

http://www.soccerdb.com/SoccerDB.Web/live/live.aspx?date=26.04.2007
 
bu nasıl bir iş anlamadım gitti. excel içinden boş geliyor explorer da açınca maç sonuçları geliyor. excel de çözümü yok mu bu işin?
 
Sub disverial()
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.soccerdb.com/SoccerDB.Web/live/live.aspx?date=26.04.2007", Destination:=Range("A1"))
.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

kodunu çalıştırdığımda excel sayfasında maç sonuçları görünmüyor

ama http://www.soccerdb.com/SoccerDB.Web...ate=26.04.2007 adresini explorer a yapıştırdığımda çıkıyor

http://www.soccerdb.com/SoccerDB.Web...ate=26.04.2007
 
acil yardım

merhaba arkadaşlar. iddaa'da geçmiş maç sonuçlarını excelle makrolu veya makrosuz nasıl ve nerden çekebilirim. sahadan.comda çekiyorum ancak maç sonuçlarını tarih olarak işliyor excel yani 1-1 biten bir maçı 1 ocak olarak gösteriyor.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst