Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Visual Basic - Basic - PicBasic ve Türevleri 
Web Sayfasını Excel"E Aktarma - VBA MACRO Web Sayfasını Excel"E Aktarma - VBA MACRO
-
Excelin kendi içinde böyle bir kısım mevcut yalnız ben bunu, VBA macroyla yapmak istiyorum. Bir çok örneği inceledim genel prensip aynı ama her örnek belirttiği web sitedinde çalışıyor. Aşağıda vereceğim kodlarda olay bitiyor sanırım yardımcı olabilecek olan var mı?
Misal
Sub anemo()
Dim x As Long
Const AdresUrl As String = "http://meteor.gov.tr/tahmin/il-ve-ilceler.aspx?m=kocaeli"
x = 1635009
Sheets("Sayfa3").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & AdresUrl, Destination:=Cells(1, 1))
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = False
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Sheets("Sayfa3").Select
End Sub
Bu kodlama çalışıyor ama sitenin adını değiştirdiğimizde sıçıyor. şu en sondaki kısımda bir olay dönüyor ama anlamadım.
-
aynı şeyi xmlhttp yöntemleri ile yapsan daha kolay olur.
vba nın kendi toollarından değilde xmhttp dll ini indirip system32 nin içine reg ettikten sonra xmlhttp ile sayfa kodunu alıp resim lerle birlikte excell belgesine aktabilirsin.
asp de aynı yöntemle youtubeden video yolu çekme işini yapıyorduk ama excelde standart makro dışında internetle uğraşmadım. nette baktığım kadarıyla kod örnekleri var.
http://stackoverflow.com/questions/551613/vba-check-for-active-internet-connection
bağlantı varmı yokmu kontrol etmek içinde aşağıda örnekler var.
http://vbnet.mvps.org/index.html?code/network/internetgetconnectedstate.htm
inşallah sonuca ulaşırsın:)
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla