- Katılım
- 6 Ocak 2016
- Mesajlar
- 210
- Excel Vers. ve Dili
- 2010 türkçe
- Altın Üyelik Bitiş Tarihi
- 01-07-2021
Ü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 -
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-
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
<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">
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 -
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-
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
<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">