AccessTr.neT
Userform üzerinde web sayfası açmak hakkında - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Userform üzerinde web sayfası açmak hakkında (/konu-userform-uzerinde-web-sayfasi-acmak-hakkinda.html)

Sayfalar: 1 2


Userform üzerinde web sayfası açmak hakkında - drummers - 23/09/2010

Ekli dosyamda userform1 de "sorgulamalar" sekmesinde web browser bulunmakta.

Yapmak istediğim şudur.

1 - ListBox4 ten herhangi bir firmaya tıkladığımda https://intvd.gib.gov.tr/internetvd/dispatch2?cmd=IVD_LOGINPAGE adresini açacak.

2 - Tıkladığım firmanın "data" sekmesi "AW" sütunundaki kullanıcı kodunu açılan sitedeki "Kullanıcı Kodu" bölümüne yapıştıracak

3 - Tıkladığım firmanın "data" sekmesi "AX" sütunundaki kullanıcı parolasını açılan sitedeki "Parola" bölümüne yapıştıracak

4 - Tıkladığım firmanın "data" sekmesi "AY" sütunundaki internet şifresini açılan sitedeki "Şifre" bölümüne yapıştıracak

5- açılan sitedeki "Giriş" tuşuna basacak

Dosyanın açılış şifresi:
Kullanıcı : Admin
Şifre: 1

Not: Sayın ogulcan92 bu konuda bana daha önce yardımcı olmuştu fakat onun verdiği kodları bu çalışmama uyarlayamadığımdan sorumu tekrardan açmak zorunda kaldım

Şimdiden teşekkürler


Cvp: Userform üzerinde web sayfası açmak hakkında - ogulcan92 - 23/09/2010

Sn:drummers
Dosyanız istediğiniz şekilde düzenlenmiştir.


Cvp: Userform üzerinde web sayfası açmak hakkında - drummers - 23/09/2010

yalnız şöyle bir uyarı alıyorum.

Run time error "-2147467259 880004005)':
Method ' Navigate' of object 'IWebBrovser2' failed

Birde dosyamı ilk açtığımda about:blank olarak gelse firmayı tıkladığımda ilgili linke gitse sanırım daha mantıklı olacak. Sebebi ise açılışı hızlandırmak..

Teşekürler.


Cvp: Userform üzerinde web sayfası açmak hakkında - ogulcan92 - 23/09/2010

Sn:drummers
Formun initalizesindeki WebBrowser1.Navigate ile başlayan kodu ya siliniz yada aşağıdaki şekilde değiştiriniz.Diğer sorununuza gelin bende herhangi bir hata vermiyor.

WebBrowser1.Navigate "about:blank"



Cvp: Userform üzerinde web sayfası açmak hakkında - drummers - 23/09/2010

Run time error "-2147467259 880004005)':
Method ' Navigate' of object 'IWebBrovser2' failed

uyarısını diğer sayfalarda "excele dön" butonuna basınca veriyor.

"about:blank" işi tamamdır..



Cvp: Userform üzerinde web sayfası açmak hakkında - ogulcan92 - 23/09/2010

Sn:drummers
Cari Bilgileri sekmesinde Excele Dön butonunda bu hatayı vermektedir.Sebebi ise kodun son satırındaki UserForm_Initialize komutudur.Aşağıdaki kodu userform initalizeden silip activesin yazınız.

WebBrowser1.Navigate "about:blank"