Bu dosya, Excel içinde açılan bir Userform'un internet tarayıcısı gibi kullanılmasını gösteren makrolu bir örnektir. Form üzerindeki WebBrowser denetimi bir web sayfasını açar; ileri, geri ve giriş düğmeleriyle sayfa içinde gezilir.
Dosyanın içeriği
- Sayfa1: R20 hücresinde "VBA Userform ile Web Sayfası Görüntüleme" başlığı bulunur. Sayfada formül yoktur.
- Module1: XD makrosunu içerir. Makro UserForm1 formunu açar.
- UserForm1: WebBrowser1 denetimi ile dört CommandButton düğmesi barındırır.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya veri gönderme işlemi yoktur; yalnızca formdaki tarayıcı denetimi bir web adresine bağlanır.- XD: UserForm1 formunu görüntüler. Dosyayı çalıştırma noktasıdır.
- UserForm_Initialize: Form açılırken WebBrowser1 denetimini exceldestek.com adresine yönlendirir.
- WebBrowser1_ProgressChange: Sayfa yüklenirken form başlığına açık sayfanın adını yazar. Sayfa yükleniyorsa CommandButton1 gizlenir, yükleme bitince yeniden görünür.
- CommandButton1_Click: Tarayıcı meşgulse 1 saniye bekler. Ardından sayfadaki "username" ve "password" alanlarına kodda yazılı değerleri ("Kullanıcı Adı" ve "Şifre") girer, SendKeys ile TAB tuşunu gönderir ve "Login" düğmesine tıklar. Bu alan adları yalnızca bu adlarla tanımlı giriş formlarında çalışır.
- CommandButton2_Click: Bir sonraki sayfaya gider (GoForward).
- CommandButton3_Click: Bir önceki sayfaya döner (GoBack).
- CommandButton4_Click: Çalışmayı sonlandırır (End).
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Alt+F8 ile XD makrosunu çalıştırın; form açılır ve site yüklenir.
- İleri ve geri düğmeleriyle sayfalar arasında gezin.
- Otomatik giriş için Visual Basic düzenleyicisinde UserForm1 kodundaki "Kullanıcı Adı" ve "Şifre" metinlerini kendi bilgilerinizle değiştirin; sayfa yüklendikten sonra giriş düğmesine basın.
- İstediğiniz web adresi için UserForm_Initialize içindeki Navigate adresini değiştirin.
