İsim Soyisim' i html dosyasında bulma

[gunay.harun]

Herkese selamlar.
Ekteki excel dosyasındaki alt alta yazılı isim soyisimleri html dosyasında aratmak istiyorum. Yardımlarınız için teşekkürler.

 

[alicimri]

html dosyası, internet üzerinde mi, yoksa bilgisayarınızda mı.

 

[gunay.harun]

html dosyası, internet üzerinde mi, yoksa bilgisayarınızda mı.

Bilgisayarımda

 

[gunay.harun]

Yardımlarınızı bekliyorum

 

[alicimri]

Aratmak derken ne kast ediyorsunuz, isimin html dosyasında olup olmadığını mı?
html dosyasının bir örneğini tcdosya gibi bir dosya yükleme sitesine eklerseniz.

 

[gunay.harun]

Aratmak derken ne kast ediyorsunuz, isimin html dosyasında olup olmadığını mı?
html dosyasının bir örneğini tcdosya gibi bir dosya yükleme sitesine eklerseniz.

Mesela bir internet sitesinde, ya da excel sayfasında ctrl+f yapıp aratıyoruz ve sayfada buluyoruz ya onun gibi. Exceldeki yazılı isimleri html dosyasındaki isimler içinde artmasını ve bulmasını istiyorum. Mümkün mü acaba

 

[gunay.harun]

Aratmak derken ne kast ediyorsunuz, isimin html dosyasında olup olmadığını mı?
html dosyasının bir örneğini tcdosya gibi bir dosya yükleme sitesine eklerseniz.

Html dosyayı yüklemeye izin vermiyor site

 

[Haluk]

"Zip" veya "Rar" yapıp, öyle yükleyin...

.

 

[alicimri]

dene.html bir dosyanın D sürücüsünde olduğunu varsaydım. İsimin bulunduğu bir hücreyi seçip aşağıdaki kodu çalıştırın.

Sub OpenIE()
Set a = ActiveCell
 a = Replace(a, "i", "I")
 son = Len(a)
For i = 1 To son
b = b & "{" & Mid(a, i, 1) & "}"
Next
yol = "D:"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(yol)
For Each oFile In oFolder.Files
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate yol & "\" & oFile.Name
IE.Visible = True
Application.Wait (Now + TimeSerial(0, 0, 2))
SendKeys "^f", True
SendKeys b, True
MsgBox oFile.Name
Set IE = Nothing
Next oFile
End Sub

 

[Haluk]

Sub Test()
    Dim HTTP As Object, URL As String
    
    URL = "https://www.w3schools.com/html/html_tables.asp"
  
    Set HTTP = CreateObject("MSXML2.XMLHTTP")
  
    HTTP.Open "GET", URL, False
    HTTP.send
    
    If HTTP.Status = 200 Then
        If InStr(1, HTTP.responseText, "Alfreds Futterkiste") > 0 Then
            MsgBox "Alfreds Futterkiste .... bulundu"
        Else
            MsgBox "Alfreds Futterkiste .... bulunamadi"
        End If
        
        If InStr(1, HTTP.responseText, "Bill Gates") > 0 Then
            MsgBox "Bill Gates .... bulundu"
        Else
            MsgBox "Bill Gates .... bulunamadi"
        End If
    End If
        
    Set HTML = Nothing
    Set HTTP = Nothing
End Sub

.

 

[gunay.harun]

dene.html bir dosyanın D sürücüsünde olduğunu varsaydım. İsimin bulunduğu bir hücreyi seçip aşağıdaki kodu çalıştırın.

Sub OpenIE()
Set a = ActiveCell
a = Replace(a, "i", "I")
son = Len(a)
For i = 1 To son
b = b & "{" & Mid(a, i, 1) & "}"
Next
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "D:\dene.html"
IE.Visible = True
Application.Wait (Now + TimeSerial(0, 0, 2))
SendKeys "^f", True
SendKeys b, True
End Sub

Ali hocam denedim oldu çok teşekkürederim. Birde bir şey daha sormak istiyorum html dosyası birden fazla bunları nasıl birleştirebilirim? Yazdığınız makro ile tek dosyada hepsini aratmış olurum.

 

[alicimri]

Bu dosyalar aynı klasörde mi aynı veriyi, kaç html varsa hepsinde mi arayacak

 

[gunay.harun]

Bu dosyalar aynı klasörde mi aynı veriyi, kaç html varsa hepsinde mi arayacak

Evet hocam aynı klasörde ve hepsinde arayacak. Çözüm olarak html dosyalarını birleştirmek geldi aklıma ama internette öyle bir bilgiye ulaşamadım.

 

[alicimri]

# deki kodları değiştirdim. Tüm dosyaları teker açıyor arıyor. açık dosyayı kapatınca diğerine geçiyor. duraksama vermesi için (görmeniz için) bir Msgbox da açık olan dosyanın adını yazıyor.
html dosyalarını birleştirmekten ne kast ediyorsunuz.

 

[gunay.harun]

# deki kodları değiştirdim. Tüm dosyaları teker açıyor arıyor. açık dosyayı kapatınca diğerine geçiyor. duraksama vermesi için (görmeniz için) bir Msgbox da açık olan dosyanın adını yazıyor.
html dosyalarını birleştirmekten ne kast ediyorsunuz.

Yani 20 adet ayrı ayrı html dosyası var. Bunları tek bir html dosyası yapabilseydik sizin ilk yazdığınız makro ile tek html dosyasını aratmış olurduk

 

[alicimri]

Olur olmasına, fantezi olur.
html dosyaları nihayetinde metin dosyası, txt dosyaları gibi Excel de teker teker açıp başka bir html dosyası oluşturulup ona aktarılabilir.
Ancak veriler hangi tagların içinde görmek lazım veriler, tcdosya gibi bir paylaşım sitesine bir örnek dosya ekleyin deneyeyim.