Makro ile internete bağlanmak

[Leoncio]

Merhaba;
Aşağıdaki kod ile internette bir sayfa açabiliyorum.

ac = Shell("explorer.exe http://www.excel.web.tr/index.php", vbMaximizedFocus)

Yapmak istediğim; Her sabah 5 internet sayfasına girerek mevzuatı takip ediyorum. Bunları makroya bağlasam 5 yanyana sekme halinde açabilirmiyim.

Örneğin aşağıdaki sayfaları
1- http://www.resmigazete.gov.tr/default.aspx
2- http://www.istanbulsmmmodasi.org.tr/Index.asp
3- http://www.isvesosyalguvenlik.com/

 

[Murat OSMA]

A1 hücresinden itibaren alt alta web sayfalarını yazın ve makroyu çalıştırın.

■ Açık olan tarayıcı da görüntülemek için;

Sub Web_Sayfası_Aç()
    Dim i%
    For i = 1 To Range("A65536").End(3).Row
        If Cells(i, 1) <> "" Then
           Shell "explorer.exe  " & Cells(i, 1) & "", 1
        End If
    Next i
    i = Empty
End Sub

■ Ayrı bir tarayıcı da (IE) açmak için;

Sub Web_Sayfası_Aç()
    Dim i%
    For i = 1 To Range("A65536").End(3).Row
        If Cells(i, 1) <> "" Then
           Shell "C:\Program Files\Internet Explorer\iexplore.exe " & Cells(i, 1) & "", 1
        End If
    Next i
    i = emty
End Sub

 

[Leoncio]

Merhaba,

Google Chrome ile ayrı ayrı sayfalarda değilde yan sekmeler ile açabilirmiyiz.

Shell "C:\Program Files\Internet Explorer\iexplore.exe " & Cells(i,

Burada iexplore.exe yerine chrome.exe yolunu bulduramadım?

 

[Murat OSMA]

Zaten Chrome kullanıyorsanız ilk önerdiğim kodu kullanabilirsiniz.

Chrome harici bir tarayıcı kullanıyorsanız ikinci önerdiğim kodu kullanabilirsiniz, ama bildiğiniz üzere yolu değiştirmeniz gerekecek.

Bilgisayarınızın arama kısmına Chrome yazıp arattığınızda çıkan Chrome simgesine sağ tıklayıp Özellikleri seçerseniz orada Chrome'un yolunu görebilirsiniz.

Büyük ihtimalle yolu bu olmalı;
"C:\Program Files\Google\Chrome\Application\chrome.exe"

 

[Leoncio]

Murat Bey;

Tamamdır. Çok teşekkür ederim. Sağolun.

 

[Murat OSMA]

Rica ederim, iyi günler.

 

[Leoncio]

Konuya tamam dedim ilave bir sorum olacak;
bat. dosyası açmak istersem aşağıdaki gibi yapıyorum. İlki çalıştığında diğerini kapatıyor. Yan yana nasıl yapabilirim?

start http://www.bddk.org.tr/websitesi/default.aspx

start http://www.istanbulsmmmodasi.org.tr/Index.asp

 

[Murat OSMA]

Hangi tarayıcıyı kullanıyorsunuz ?

Ben ek'teki bat dosyalarını açtığımda ikisi de ayrı ayrı açılıyor. Bir sorun göremedim.

 

[Leoncio]

Hangi tarayıcıyı kullanıyorsunuz ?

Ben ek'teki bat dosyalarını açtığımda ikisi de ayrı ayrı açılıyor. Bir sorun göremedim.

Murat bey;
a.bat ve b.bat olarak iki dosyayı tek dosyada yapabilirmiyiz. yani a.bat iki web sayfasını da açsın. Ayni makro ile yaptınız gibi.

 

[Emir Hüseyin Çoban]

Murat bey;
a.bat ve b.bat olarak iki dosyayı tek dosyada yapabilirmiyiz. yani a.bat iki web sayfasını da açsın. Ayni makro ile yaptınız gibi.

. . .

a.bat dosyasında bir satır alta geçip yeni kodu yazın.

start http://www.bddk.org.tr/websitesi/default.aspx
start http://www.istanbulsmmmodasi.org.tr/Index.asp

. . .

 

[Murat OSMA]

İki adresi de tek .bat dosyasında alt alta yazın.



*Hüseyin Bey mesajınızı görmedim, kusura bakmayın.

 

[Leoncio]

. . .

a.bat dosyasında bir satır alta geçip yeni kodu yazın.

start http://www.bddk.org.tr/websitesi/default.aspx
start http://www.istanbulsmmmodasi.org.tr/Index.asp

. . .

Hüseyin bey,
Siz ekteki dosyayı test ettiniz mi? Bunu denemiştim. Burada son adresi açıyor. Ben ikisinide yan yana açmak istiyorum. Teşekkürler.

 

[Emir Hüseyin Çoban]

Hüseyin bey,
Siz ekteki dosyayı test ettiniz mi? Bunu denemiştim. Burada son adresi açıyor. Ben ikisinide yan yana açmak istiyorum. Teşekkürler.

. . .

Bendeki işlem sonucu bu şekilde. Sorun görünmüyor.

. . .

 

[Leoncio]

. . .

Bendeki işlem sonucu bu şekilde. Sorun görünmüyor.

. . .

Hüseyin bey;
Ben Google\Chrome\ veya Internet Explorer\ ile bağlanıyorum. Bunlardan olabilir mi?

 

[Leoncio]

Hüseyin Bey; Yazdım ama mesajımı göremedim. Tekrar yazıyorum.
Bağlantımı Internet Explorer veya Google\Chrome\ ile yapıyorum. Sizin eklentinizde Firefox gördüm. Ondan olabilir mi?

Sizin eklediğiniz dosyayı tekrar çalıştırdım. Son adres;

start http://www.istanbulsmmmodasi.org.tr/Index.asp

çıkıyor.

 

[Emir Hüseyin Çoban]

. . .

Google Chrome ile denedim, 2 sayfayıda açtı.

. . .

 

[Leoncio]

Konu ile ilgili sizleri çok yordum. Öncelikle teşekkür ederim. Aşağıdaki şekilde yazarak hallettim. Sağolun.

"C:\Program Files\Google\Chrome\Application\chrome.exe" "http://www.istanbulsmmmodasi.org.tr/Index.asp" "http://www.bddk.org.tr/websitesi/default.aspx"

 

[Makss12]

Merhabalar,
Koda ek bir sorum olacak asagidaki kod ile acilan sayfalardaki pdf sayfalarinida klasore kayit yapacak sekilde nasil ekleme yapabiliriz ?

Sub Web_Sayfası_Aç()

Dim i%
For i = 1 To Range("A65536").End(3).Row
If Cells(i, 1) <> "" Then
Shell "explorer.exe " & Cells(i, 1) & "", 1
End If
Next i
i = Empty


End Sub

Bu konuda yardimci olursaniz sevinirim
Tesekkurler