SORU ve CEVAPLAR (Yazılabilir) > Çözülen Excel, Vba, Makro, Formül vb. Soruları SORU ve CEVAPLAR (Yazılabilir) > Çözülen Excel, Vba, Makro, Formül vb. Soruları
Web'ten veri alma hakkında
kky11:
Web'ten veri alma ayarlarından otomatik olarak belirli zaman aralıklarında veri alınması istenildiğinde alınan veriler excel sayfasında hangi hücre seçili ise hep o hücre üzerine alınıyor.
Benim istediğim ise;
Diyelim ki değişken bir web sayfasından 60 dakikada bir veri alma komutu verildiğinde alınan verilerin daha önce alınmış olan verilerin üzerine değil de, mesela alınan verilerin bittiği satırın altından itibaren kaydetmesi.Yani bir önceki aldığı veriyi bozmadan yada saklayarak yeni veriyi de aynı sayfada kaydetmesi.
Konu hakkında yardımcı olabilirseniz sevinirim.
şimdiden teşekkürler..
kky11:
Arkadaşlar yukarıya yazdığım sorunumun biraz acil olarak çözmem gerekiyor.Ancak ne denesem de başaramadım.Konu hakkında bilgisi olan arkadaşlar lütfen yardımcı olsun.
kolay gelsin.
Bülent Öztürk:
İbrahim bey, şu şekildeki web'ten veri alma kodları ile dediğiniz şekilde sonuç alabilirsiniz.
--- Kod: ---Sub ExcelceVeriAl()
konum = ActiveSheet.Range("A65536").End(3).Row + 2
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.excelce.net/forum/index.php", Destination:=Range("A" & konum))
.Name = "index"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertEntireRows
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 60
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Application.OnTime Now + TimeValue("01:00:00"), "ExcelceVeriAl"
End Sub
--- Kod sonu ---
kky11:
--- Alıntı yapılan: Bülent Öztürk - 05 Mayıs 2011, 23:44:02 ---İbrahim bey, şu şekildeki web'ten veri alma kodları ile dediğiniz şekilde sonuç alabilirsiniz.
--- Kod: ---Sub ExcelceVeriAl()
konum = ActiveSheet.Range("A65536").End(3).Row + 2
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.excelce.net/forum/index.php", Destination:=Range("A" & konum))
.Name = "index"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertEntireRows
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 60
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Application.OnTime Now + TimeValue("01:00:00"), "ExcelceVeriAl"
End Sub
--- Kod sonu ---
--- Alıntı sonu ---
Bülent bey,
Çok teşekkürler.. İlgilenip makroları yollamışsınız.Ancak ben makroları kullanmayı formül kullanmak kadar kolay olacağını sanmıştım.Malesef öyle değilmiş.
Eğer müsait olabilir iseniz sizden ricam ekte gönderdiğim dosyaya bana yolladığınız makroları yerleştirip tekrar bana göndermeniz.Dosyada biraz açıklama yapmak gereği duydum.Dosyaya 4 ayrı sayfa bulunmakta ve 4 ayrı adresten veri alınacaktır.Her sayfada veri alınacak adresleri belirttim.Sayfa0’ da resim ile de anlatmaya çalıştım.Umarım işinize yarar.
Tüm emekleriniz için çok çok teşekkür ederim.
Kolay gelsin...
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
Bülent Öztürk:
İbrahim bey, her link kendi sayfasında alt alta mı devam edecek, yoksa linklerden sırayla veri alınıp tek bir sayfada alt alta mı devam edecek?
Bir de sayfa satır sayısı dolduğunda ne olacak?
Navigasyon
[0] Mesajlar
[#] Sonraki Sayfa
Tam sürüme git