E FAURA UYGULAMASI GİRİŞ YAPMIYOR

Excel hakkındaki soru ya da paylaşımlarınıza kategori bulamadıysanız bu alana yazabilirsiniz.

E FAURA UYGULAMASI GİRİŞ YAPMIYOR

İleti#1)  yurttutan » 08 Oca 2020 13:39

Kod: Tümünü seç
Sub giris()
Dim URL As String
Dim HTML_Body As Object
URL = "https://earsivportal.efatura.gov.tr/intragiris.html"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.all("userid").Value = Cells(9, "D")
IE.Document.all("password").Value = Cells(10, "D")
IE.Document.forms(0).submit
End With
Set IE = Nothing
Set HTML_Body = Nothing
MsgBox ("Bitti  ")
End Sub

Hocam portala gidiyor şifreyi yazıyor ama giriş yapmıyor ben giriş dersem giriyor
nerde hata yaptım hocam yardım
isteyim kendisi giriş yapması
yardımlarınızı bekliyorum
Kullanıcı avatarı
yurttutan
Yeni Başlamış
 
Kayıt: 10 Şub 2017 11:01
Meslek: mali müşavir
Yaş: 49
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Nevşehir

Cevap: E FAURA UYGULAMASI GİRİŞ YAPMIYOR

İleti#2)  Tarkan VURAL » 21 Oca 2020 10:02

Merhaba,

IE.Document.forms(0).submit yerine IE.Document.all("action").Click kullanarak deneyiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27123
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: E FAURA UYGULAMASI GİRİŞ YAPMIYOR

İleti#3)  yurttutan » 24 Oca 2020 17:33

Tarkan VURAL yazdı:Merhaba,

IE.Document.forms(0).submit yerine IE.Document.all("action").Click kullanarak deneyiniz.


hocam teşekürler
Kullanıcı avatarı
yurttutan
Yeni Başlamış
 
Kayıt: 10 Şub 2017 11:01
Meslek: mali müşavir
Yaş: 49
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Nevşehir

Cevap: E FAURA UYGULAMASI GİRİŞ YAPMIYOR

İleti#4)  yurttutan » 24 Oca 2020 17:35

Sub giris()
Dim URL As String
Dim HTML_Body As Object
URL = "https://portal.defterbeyan.gov.tr/auth/login"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Do Until IE.ReadyState <> 6: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.all("username").Value = Cells(1, "b")
IE.Document.all("password").Value = Cells(2, "c")
IE.Document.getElementsByTagName("button")(0).Click
End With
Set IE = Nothing
Set HTML_Body = Nothing
End Sub


hocam burda b1 ve c1 hücreleri yazmıyor nerede yanlışlık var hocam yardım ederseniz sevinirim
Kullanıcı avatarı
yurttutan
Yeni Başlamış
 
Kayıt: 10 Şub 2017 11:01
Meslek: mali müşavir
Yaş: 49
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Nevşehir

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: E FAURA UYGULAMASI GİRİŞ YAPMIYOR

İleti#5)  Erkan Akayay » 24 Oca 2020 21:28

Aşağıdaki düzeltmeleri yapın.
Kod: Tümünü seç
IE.Document.all("username").Value = Cells(1, "b").Value
IE.Document.all("password").Value = Cells(1, "c").Value   ' C1 hücresi diyorsanız


Diğer konu ise bu satır ile doğrulama kodu girmeden girişbutonuna basıyorsunuz. Siteye giriş yapmaz ve kullanıcı adı ile şifreyi girmemiş gibi görürsünüz.

IE.Document.getElementsByTagName("button")(0).Click
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 49
İleti: 4063
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: E FAURA UYGULAMASI GİRİŞ YAPMIYOR

İleti#6)  yurttutan » 25 Oca 2020 09:48

hocam teşekürederim çalıştı
Kullanıcı avatarı
yurttutan
Yeni Başlamış
 
Kayıt: 10 Şub 2017 11:01
Meslek: mali müşavir
Yaş: 49
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Nevşehir

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Diğer Excel İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe