EXCEL İLE BANKA KULLANICI GİRİŞİ LİSTESİ OLUŞTURMA

Excel programınıza Web Sayfalarından veri alarak çalışabileceğiniz bölüm.

EXCEL İLE BANKA KULLANICI GİRİŞİ LİSTESİ OLUŞTURMA

İleti#1)  bydogannn » 08 Tem 2018 16:02

Üstadlarım kolay gelsin,

Yardımınıza İhtiyacım var,

Şirkette birden fazla bankayla çalıştığımızdan her bankanın kullanıcı girişine otomatik olarak excel ile giriş yapmak istiyorum çoğu bankayı yaptım ama akbank ve ingbank'ta takıldım bir türlü olmuyor, kullanıcı koduna veriyi atamıyorum

İlgilenebilirseniz çok sevinirim


Kullandığım kodlar

1 -
Kod: Tümünü seç
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub ingbank()
Dim URL As String

Dim ie As Object

URL = "https://kurumsalinternetsubesi.ingbank.com.tr/WebApplication.UI/default.aspx?lang=tr-TR"

Set ie = CreateObject("InternetExplorer.Application")

With ie
.Navigate URL
.Visible = 1
ShowWindow ie.hwnd, 3

Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop


ie.Document.All("ctl00$mc$txtuserid").Value = Cells(13, "c").Value

Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop

'ie.Quit: Set ie = Nothing
End With

End Sub


2 -
Kod: Tümünü seç
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub ingbank()
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .Visible = True
        .Navigate "https://kurumsalinternetsubesi.ingbank.com.tr/WebApplication.UI/default.aspx?lang=tr-TR"
        Do While Not .ReadyState = 4: DoEvents: Loop
        .Document.getElementsByName("ctl00$mc$txtuserid")(0).Value = Cells(13, "c").Value

    End With
    Set ie = Nothing
End Sub







banka link ve kodlarıda aşağıdaki gibidir

https://kurumsalinternetsubesi.ingbank. ... lang=tr-TR

Kod: Tümünü seç
<input name="ctl00$mc$txtuserid" type="text" maxlength="8" id="txtuserid" class="medium has-keyboard has-keyboard-numeric f-left" onmouseout="VeriBranch_OnMouseOut('txtuserid');" autocomplete="off" placeholder="" data-allowspace="true" onpaste="if(HasNonnumeric(event)){return false;};" data-discardturkishcharacters="false" onmouseover="VeriBranch_OnMouseOver('txtuserid');" onclick="EnableKeyboard();" onblur="RemoveEscapedCharactersFromTextBox(this,'txtuserid', ['<','>','?'])" data-holder="" onfocus="VeriBranch_TextOnFocus('txtuserid','',this);" onkeyup="OnlyNumericControl(this);" onkeypress="PreventSpecialKeys(this,event);;" aria-labelledby="ctl00_mc_lblUserName" onkeydown="TextBoxFocusOnNavigation(this,event);if(!Only_Numeric(event)){return false;};" data-uppercase="false">
Kullanıcı avatarı
bydogannn
Yeni Başlamış
 
Kayıt: 12 Şub 2016 16:03
Meslek: muhasebe
Yaş: 29
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

Cevap: EXCEL İLE BANKA KULLANICI GİRİŞİ LİSTESİ OLUŞTURMA

İleti#2)  bydogannn » 09 Tem 2018 23:49

Örnek dosya ekteki gibidir, yardımlarınızı rica ediyorum
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
bydogannn
Yeni Başlamış
 
Kayıt: 12 Şub 2016 16:03
Meslek: muhasebe
Yaş: 29
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka


Forum Excel ile Web Sayfaları Veri İşlemleri

Online Kullanıcılar

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

Bumerang - Yazarkafe