Veri Alma Makrosu

[Partdown]

Sub EKS()
On Error Resume Next

Sheets("sayfa1").Activate
Range("a:d").ClearContents

myConn = "URL;http://site.com" _

Range("aa5").Select
With Selection.QueryTable
.Connection = myConn
.Refresh BackgroundQuery:=False
End With

Range("t2:y2").Select
Selection.AutoFill Destination:=Range("t2:y4033"), Type:=xlFillDefault
Range("t2:y4033").Select
Call ordina
Sheets("giris").Activate

Range("d4").Select

MsgBox "Güncellendi...", vbInformation, "Liste Güncellendi"
End Sub

Merhaba Yukarıdaki Formatı

straddress = Sheets("Liste").Range("AF2").Value

Bu Şekilde Yukarıdaki gibi Excelde Yazılı Olan Bölümdeki Adrese Ayarlayabilirmiyiz yani


Direk Excelde sayfa1 kısmında bulunan linke göre sayfanın tamamını almasını istiyorum kısaca mesela sayfa1de a5 hücresindeki linke göre dügmeye bastıgım zaman hemen sayfanın tamamını çekicek seri bir şekilde çekerken bekletmicek

 

[Haluk]

URL'i görüp, sayfa yapısını inceledikten sonra uygun bir yöntem seçilmesi gerekir.

Mesajınızdaki QueryTable metodu çok hızlı çalışmaz.

.

 

[Partdown]

Nowgoal sitesinden alıcam bana hızlı bi veri alınan makro lazım sayfa 1de a5 hücresindeki linke göre veri alıcak örnek