Excel'de internet sayfası açmak

[Altay3555]

Public IE As Object
Sub LinkAc()
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True 'True olursa web sayfası görüntülenir.
.Navigate "http://www.excel.web.tr" 'Web adresi açılıyor.
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
End With
Application.OnTime Now + TimeValue("00:00:10"), "Kapat"
End Sub


Selamlar
Yukarıdaki kod ile İnternet syafası açıyorum,lakin bu kodu Commandutton ile çalıştıramıyorum.

 

[hımmmmmmmm]

slm

böyle çalışıyor

Public IE As Object

Private Sub CommandButton1_Click()
LinkAc
End Sub
Sub LinkAc()
Set IE = CreateObject("InternetExplorer.Application")
With IE
  .Visible = True 'True olursa web sayfası görüntülenir.
  .Navigate "http://www.excel.web.tr" 'Web adresi açılıyor.
  'Do Until .ReadyState = 4: DoEvents: Loop
  'Do While .Busy: DoEvents: Loop
End With
 ' Application.OnTime Now + TimeValue("00:00:10"), "Kapat"
End Sub

 

[Altay3555]

Teşekkürler kardeşim.