GoogleChrome açma kapama makrosunda hata...

[vardar07]

Merhaba, Arkadaşlar aşağıdaki kodla google chrome de site açabiliyoruz ancak kapatma kodlarını bir türlü uyarlayamadım. Nasıl bir değişiklik gerekiyor.
Açmak için:

Sub linkac()
On Error Resume Next
Dim iURL
Dim objShell
iURL = "http://www.tff.org/default.aspx?pageID=198"
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "chrome.exe", iURL, "", "", 1
End Sub

Kapatma için:

With iURL
iURL.Quit: Set iURL = Nothing
End With

 

[Zeki Gürsoy]

Birinci prosedurde "iURL" değişkenine string veri (web adresi) atanmış. "chrome.exe" programına da "command line" olarak açılması istenmiş...

Bir string değişkene, bir nesne gibi "quit" komutu vermeniz ve nothing set etmeniz biraz düşündürücü...

Kapatma için şu yol izlenebilir:

iurl = "www....."

pid = shell("chrome.exe " & iurl)

shell "taskkill /pid " & pid

 

[vardar07]

Birinci prosedurde "iURL" değişkenine string veri (web adresi) atanmış. "chrome.exe" programına da "command line" olarak açılması istenmiş...

Bir string değişkene, bir nesne gibi "quit" komutu vermeniz ve nothing set etmeniz biraz düşündürücü...

Kapatma için şu yol izlenebilir:

Öncelikle ilginize teşekkürler. Kodlar halit beye ait orjinalinden alıntıdır. Kendimce kendime adapte etmeye çalışıyorum. vermiş olduğunuz kod'da kalıyor. Tekrar teşekkürler.

iurl = "www....."

[COLOR="Red"]pid = shell("chrome.exe " & iurl)[/COLOR]

shell "taskkill /pid " & pid

 

[vardar07]

Arkadaşlar konu günceldir.

 

[vardar07]

Merhaba. Bir bilenden yardım beklemekteyim.

 

[halit3]

googlechrome nesnesini aşağıdaki kod kapatıyor ancak sayfa veya sekme nasıl kapatılır bilmiyorum.

Shell ("taskkill /F /IM chrome.exe*")

 

[vardar07]

googlechrome nesnesini aşağıdaki kod kapatıyor ancak sayfa veya sekme nasıl kapatılır bilmiyorum.

Shell ("taskkill /F /IM chrome.exe*")

Merhaba Halit bey verdiğiniz kodu aşağıdaki gibi düzenleyince işlem tamam.
Yardımlarınıza teşekkürler.

Private Sub CommandButton2_Click()
iURL = "http://www.tff.org/default.aspx?pageID=198"
Shell ("taskkill /F /IM chrome.exe*")

End Sub

 

[halit3]

Merhaba Halit bey verdiğiniz kodu aşağıdaki gibi düzenleyince işlem tamam.
Yardımlarınıza teşekkürler.

Private Sub CommandButton2_Click()
iURL = "http://www.tff.org/default.aspx?pageID=198"
Shell ("taskkill /F /IM chrome.exe*")

End Sub

iyi çalışmalar