• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Açılan Sitede başka adrese girmek

Katılım
4 Ağustos 2008
Mesajlar
117
Excel Vers. ve Dili
Türkçe
Merhaba;

Kod:
Sub ABC1()
Dim adres As String
adres = Sayfa1.Range("IV1").Text
Shell ("C:\Program Files\Internet Explorer\iexplore.exe " & adres)
End Sub
ile çalışan makrom var istediğim bu internet sayfasını açtıktan sonra

http://ebildirge.ssk.gov.tr/WPEB/amp/ToAnaMenu

adresine girsin ama o açılan sayfada yani makromdaki sayfa açılacak açıldıktan sonra http://ebildirge.ssk.gov.tr/WPEB/amp/ToAnaMenu sayfasına girecek nasıl yapmalıyım.?

Yardımlarınız için teşekkürler..
 
Aradaki şifre ve doğrulama işlemini yapmak gerekir.

Fakat bu adımları geçmek zor.
 
Sayın Recep bey;

Ben şifre doğrulama işlemini yaptım. Takıldığım nokta örneğin
Sub ABC1()
Dim adres As String
adres = "http://www.google.com.tr"
Shell ("C:\Program Files\Internet Explorer\iexplore.exe " & adres)
End Sub
diye makroya tıkladığımızda açılan sayfada google açılmadan "www.excel.web.tr" adresine gireceğiz yani işlem önce google yazıp tıklamış gibi olacağız ardından googleyi silip excel.web.tr yazıp enterlemiş gibi olmak yeni sayfada değil aynı sayfada bilmem anlatabildim mi?
 
Sorunu tam olarak anladımmı bilmiyorum ama ben şöyle yaptım;

Sub ABC1()
Dim adres As String
adres = Worksheets("Sayfa1").Range("IV1").Text
Shell ("C:\Program Files\Internet Explorer\iexplore.exe " & adres)
End Sub

IV1 hücresine yazdığım adres direkt olarak açılıyor.
 
Sayın sailor01;

:) Bende öyle yapıyorum zaten istediğim o "IV1" hücresindeki adresi açtığında aynı sayfada başka adresi açmak IV1 dekini iptal edip üzerine
 
Henüz daha çözüm bulamadım.Siz 2.adresinde aynı explorer penceresinde açılmasını istiyorsunuz sanırım? Biraz zor gibi.....
 
Sayın Recep İpek,

Excel de olabilir mi bilmiyorum hiç denemedim ama excel sayfası üstüne bir explorer active x nesnesi eklerseniz o zaman kod yazarak aynı pencereye arka arkaya değişik web sayfalarına erişim mümkün olur diye düşünüyorum.

İyi çalışmalar
 
Geri
Üst