Tekrar merhaba hocam, yanlış anlamadıysam tarifinizi bu şekilde yaptım modulleri fakat durdurma işleminde takılmaya devam ediyor ve
Excel tekrardan açılıyor.
Merhaba hocam, lütfen kusura bakmayın çok vaktinizi aldım. Tarifinizi yanlış anlamadıysam eğer bu şekilde düzenledim fakat aynı sorunu yaşıyorum.
doküman ektedir.
6. mesajdaki kodların hepsi aynı modülde olacak
Zaman public olarak modülün en başına eklenecek
sub/yordam içinde Zaman tanımlanmayacak
kısacası 6. mesajdaki kodların hepsini sırasıyla kopyalayıp yeni bir modüle ekleyin
çalıştırmak için OtomatikIslem
durdurmak için IslemDurdur yordamları çağrılabilir, kapatıldığında çalışmaması için workbook_close olayından çağrılabilir
Not: debug.print satırları sadece soncu ekrana yazdırarak çalışıp çalışmadığını görmek için kullandığım kodlar o satırlar silinebilir
Merhaba, iş ile ilgili data kontrolü yaptım bir site var buraya veri gönderme - arama butonuna tıklama ve veri çekme şeklinde işlem yapmam gerekiyor. Aşağıdaki kodu yazdım çalıştırmak için butona bastığımda hata veriyor hatada (Dim doc As HTMLDocument) alanını gösteriyor. Desteğinizi rica ederim.
Dim IE As Object
Dim doc As HTMLDocument
Dim sURL As String
Dim lastRowS As Long, lastRowT As Long, lastRowU As Long
sURL = "örnek"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.navigate sURL
Do While .Busy Or .readyState <> 4
DoEvents
Loop
Set doc = .document
End With
doc.getElementById("ctl00_cphDetail_txtPlaka").Value = ThisWorkbook.Sheets("Örnek").Range("V1").Value
doc.getElementById("ctl00_cphDetail_btnAracBul").Click
Do While IE.Busy Or IE.readyState <> 4
DoEvents
Loop
lastRowS = ThisWorkbook.Sheets("Örnek").Cells(Rows.Count, "S").End(xlUp).Row + 1
ThisWorkbook.Sheets("Örnek").Cells(lastRowS, "S").Value = doc.getElementById("ctl00_cphDetail_txtTescilTarihi").Value
lastRowT = ThisWorkbook.Sheets("Örnek").Cells(Rows.Count, "T").End(xlUp).Row + 1
ThisWorkbook.Sheets("Örnek").Cells(lastRowT, "T").Value = doc.getElementById("ctl00_cphDetail_txtAracTipi").Value
lastRowU = ThisWorkbook.Sheets("Örnek").Cells(Rows.Count, "U").End(xlUp).Row + 1
ThisWorkbook.Sheets("Örnek").Cells(lastRowU, "U").Value = doc.getElementById("ctl00_cphDetail_txtLastikEbadi").Value
IE.Quit
Set IE = Nothing
Sorunuzu kendi açmış olduğunuz konu dahi olsa, kapanmış ve alakası olmayan bir konuya yorum olarak değil yeni konu açarak ve örneğinizle iletiniz.