Soru excelden veri alıp xpathe gönderme

Excel Verilerini Alma Sorunu:​

• Excel Dosyasının Doğru Açıldığından Emin Olun: Set wb = Application.ActiveWorkbook ve Set ws = wb.Sheets("belge") satırları, yalnızca aktif olan workbook ve belirli sheet üzerinde çalışır. Emin olmak için wb ve ws değişkenlerinin doğruluğunu kontrol edin.
• Hücre Aralığı ve İçerik Kontrolü: For Each cell In ws.Range("A37:A43") gibi kod satırlarında, hücre aralığında ve içeriğinde doğru veri olduğundan emin olun. D1- ve diğer metinlerin doğru şekilde yerleştirildiğinden emin olun.

Güvenlik Uyarısı ve URL Açma Sorunu:​

• İlgili Tarayıcı Ayarlarını Yapın: Tarayıcı ayarlarından güvenli olmayan içerik veya SSL sertifikaları ile ilgili ayarları kontrol edin.
• Selenium için Özel Profil Kullanımı: Selenium ile tarayıcı açarken özel profil kullanarak bu tür güvenlik uyarılarını bypass edebilirsiniz. Örnek olarak:

1. Error Handling: Hatalar için On Error kullanarak belirli bir durum yakalama ve hataları raporlama.
2. Verilen Print ve Debug: Debug.Print satırlarını kullanarak hangi aşamada problem yaşandığını görmek.

tiranxxx' Alıntı:

merhaba,

şimdi selenium basic driver ve diğer ayarlamaları yaptım.şirket içeresinde intranet sayfamı açıyorum.excelden bu açılan sayfaya excel dosyamdan veri atıyorum.ancak excelden veriyi alırken sanki hiç veri yokmuş gibi hiçbir veri alamıyorum sayfadaki form alanlarım boş kalıyor.yapay zeka ile yaptığım mako kodları aşağıdaki gibi.excel dosyamda belge sheetimdeki bazı verileri almaya çalışıyorum.

2.sorunum da çoğu zaman makro urlyi açarken hata alıyorum.sanki güvenli olmayan bir cihaz browseri kontrol ediyormuş da bilgisayar buna izin vermiyor güvenli değil diye buna bir çözüm bulabilir misiniz?

teşekkürler.

HTML:

Kod:

İçeriği görebilmek için Giriş yap ya da üye ol.

Ekli dosyayı görüntüle 31813

Genişletmek için tıkla...

tiranxxx' Alıntı:

For Each cell In ws.Range("A90:A150") ' A90 ile A150 arasındaki hücreler üzerinde işlem yapılır ' "Gerçekleşen İthalat(USD)" metni aranır If InStr(Trim(cell.Text), "Gerçekleşen İthalat(USD)") > 0 Then ' Alt hücredeki veriyi alalım targetValue = cell.Offset(1, 0).Value ' Sayıya dönüştürmeden mevcut değeri al Debug.Print "Alt Hücre: " & cell.Offset(1, 0).Address & " | Değer: " & targetValue ' Sayıyı doğru şekilde XPath'e gönderelim driver.FindElementByXPath("/html/body/form/div[3]/table/tbody/tr[3]/td/div/table/tbody/tr[2]/td/table/tbody/tr[7]/td[3]/input").SendKeys targetValue Exit For ' Veriyi bulduğunda döngüyü sonlandır End If Next cell

Genişletmek için tıkla...