• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

Soru internetten veri çekerken windows uyarılarının engellenmesi

Jaggedtr

Yeni Üye
Katılım
5 Ocak 2023
Mesajlar
27
Aldığı beğeni
0
Excel V
Office 365 TR
Yazdığım bir kodla bir ürünün farklı sitelerden fiyat bilgisini çekiyorum. genelde her site için (sanırım çerez) güvenlik uyarısı alıyorum. b unu engellemenin bir yolu varmıdır
 

Ekli dosyalar

  • Ekran Alıntısı.PNG
    Ekran Alıntısı.PNG
    23.3 KB · Gösterim: 12
Kodunuzu paylaşmanız iyi olurdu...İşimiz kolaylaşırdı...
Aşağıdaki gibi bir yaklaşım belki çözüm olur...
Ya da ekteki ayarlar...

Kod:
    Dim oIE As InternetExplorer
    Dim oHDoc As HTMLDocument
      
    Set oIE = New InternetExplorer
    
    With oIE
        .Visible = False
        .Navigate Web_URL
    End With
    
    Do While oIE.Busy = True Or oIE.ReadyState <> 4
        DoEvents
    Loop
    
    Set oHDoc = oIE.Document
    
    With oHDoc
        .......
        
    End With
    
    Do While oIE.ReadyState <> READYSTATE_COMPLETE Or oIE.Busy: DoEvents: Loop
    
    ......
    
    oIE.Quit
    
    Set oIE = Nothing
    Set oHDoc = Nothing
 

Ekli dosyalar

  • 1.jpg
    1.jpg
    95.4 KB · Gösterim: 8
  • 2.jpg
    2.jpg
    83.5 KB · Gösterim: 9
Kodunuzu paylaşmanız iyi olurdu...İşimiz kolaylaşırdı...
Aşağıdaki gibi bir yaklaşım belki çözüm olur...
Ya da ekteki ayarlar...

Kod:
    Dim oIE As InternetExplorer
    Dim oHDoc As HTMLDocument
     
    Set oIE = New InternetExplorer
   
    With oIE
        .Visible = False
        .Navigate Web_URL
    End With
   
    Do While oIE.Busy = True Or oIE.ReadyState <> 4
        DoEvents
    Loop
   
    Set oHDoc = oIE.Document
   
    With oHDoc
        .......
       
    End With
   
    Do While oIE.ReadyState <> READYSTATE_COMPLETE Or oIE.Busy: DoEvents: Loop
   
    ......
   
    oIE.Quit
   
    Set oIE = Nothing
    Set oHDoc = Nothing
windows ayarları ile belki yapabilirim ama bu güvenliğimi neredeyse tamamen kapatır o yüzden kod la yapmayı deniyorum
 

Ekli dosyalar

Uyarıları pasif yapma yönetimini de kullanarak
Kod:
Application.DisplayAlerts = False
1. Tanımlama yerine 2. tanımlamayı dener misiniz
Kod:
Dim XMLreq As New MSXML2.XMLHTTP60
Dim XMLreq As New MSXML2.ServerXMLHTTP60
 
Geri
Üst