- Katılım
- 20 Aralık 2008
- Mesajlar
- 73
- Excel Vers. ve Dili
- office 2003
türkçe
Arkadaşlar merhaba,
İnternet Explorer programı haricinde veri gönderebileceğim başka bir tarayıcı varmı. Excelle uyumlu başka bir tarayıcı arıyorum.
Mozilla ve Chrome denedim olmadı. komut gönderemiyorum.
örnek kod
Dim URL As String
Dim IE As Object
URL = "https://onlinetahsilat.sgk.gov.tr/WebTahsilat/index.jsf"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate URL
With IE
.Visible = True
.Navigate URL
apiShowWindow IE.hwnd, 3
Do While .ReadyState <> 4: Loop
With .document.all
On Error Resume Next
.j_username.Value = "veri1"
.isyeri_kod.Value = "veri2"
'.loginform.onsubmit
burda farklı tarayıcı kullanmak istiyorum
İnternet Explorer programı haricinde veri gönderebileceğim başka bir tarayıcı varmı. Excelle uyumlu başka bir tarayıcı arıyorum.
Mozilla ve Chrome denedim olmadı. komut gönderemiyorum.
örnek kod
Dim URL As String
Dim IE As Object
URL = "https://onlinetahsilat.sgk.gov.tr/WebTahsilat/index.jsf"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate URL
With IE
.Visible = True
.Navigate URL
apiShowWindow IE.hwnd, 3
Do While .ReadyState <> 4: Loop
With .document.all
On Error Resume Next
.j_username.Value = "veri1"
.isyeri_kod.Value = "veri2"
'.loginform.onsubmit
burda farklı tarayıcı kullanmak istiyorum
