makro ile excele veri almak - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: makro ile excele veri almak (/konu-makro-ile-excele-veri-almak.html) |
makro ile excele veri almak - siyahhayis - 10/12/2015 http://www.flashscore.com/match/I7JkNVHe/#odds-comparison;ht-ft;full-time bu lınkın verilerini makro ile excele almak istiyorum. Yardımcı olursanız sevinirim. Cvp: makro ile excele veri almak - atoz112 - 11/12/2015 sayın siyahhayis, Site Kuralları sayfasında yazılı hususları tekrar incelemenizi temenni etmekle birlikte, lütfen örnek uygulamanızı ekleyiniz. son olarak, bir fikir vermesi amacı ile daha önceden mevcut olan aşağıda bağlantısı yazılı konuyu da inceleyebilirsiniz. Webten Veri Alma bilginize...iyi çalışmalar,saygılar. Cvp: makro ile excele veri almak - siyahhayis - 11/12/2015 ÖRNEK ÇALIŞMA DOSYAM AŞAĞIDA. FAKAT HEP Dim IE As New InternetExplorer HATASI VERIYOR. BEN GOOGLE CHROME KULLANIYORUM AMA BUNUNLA DA İLGİLİ DEĞİL SANIRIM. İE DENDE AÇTIM OLMADI. ADRESTE RENK ILE ISARETLI BOLUM ÖZEL DEGERLER. BU HER MAÇ ICIN DEGISIYOR. BUNU BEN BULABILIYORUM. Sub Test() Dim URL As String Dim IE As New InternetExplorer Dim HTMLdoc As HTMLDocument Dim dictObj As Object: Set dictObj = CreateObject("Scripting.Dictionary") Dim tRowID As String URL = "http://www.flashscore.com/match/02yaghdh/#odds-comparison;ht-ft;full-time" With IE .Navigate URL .Visible = True Do Until .ReadyState = READYSTATE_COMPLETE: DoEvents: Loop Set HTMLdoc = .Document End With With HTMLdoc 'Target the set of tables. Set tblSet = .getElementById("fs-results") 'Index starts at 0. World Cup Playoffs is (0), World Cup is (1), 'Qualifiers is (2), etc... Targeting tbody right away, as there is 'only one (1) tbody tag per row anyway. Set mTbl = tblSet.getElementsByTagName("tbody")(1) Set tRows = mTbl.getElementsByTagName("tr") With dictObj 'If if value is not yet in dictionary, store it. For Each tRow In tRows 'Remove the first four (4) characters. tRowID = Mid(tRow.getAttribute("id"), 5) If Not .Exists(tRowID) Then .Add tRowID, Empty End If Next tRow End With End With 'Print out each of the ID values. For Each Key In dictObj Debug.Print Key Next Key Set IE = Nothing End Sub Cvp: makro ile excele veri almak - siyahhayis - 11/12/2015 FORMULUN IÇINDE INGILIZCE AÇIKLAMALARIDA MEVCUTTUR. SILMEDIM. SIMDIDEN TEŞEKKUR EDERIM. Cvp: makro ile excele veri almak - atoz112 - 05/06/2016 sayın siyahhayis, konu takibiniz açısından,hatırlatma anlamında; konunuz ile ilgili son gelişme ne durumdadır. şüphesiz,işlemleriniz tamamlanmış ve sorununuzu çözmüş de olabilirsiniz.site içi aramalarınız neticesinde sitede yer alan konuları ve örnekleri incelemelerinizin sonucu ile bazı gelişimler elde etmiş de olabilirsiniz...bilgilendirmek ister misiniz lütfen.teşekkürler. son olarak; lütfen örnek uygulamanızı ekleyiniz. bilginize...iyi çalışmalar,saygılar. |