webten sayfa kopyalama

[Orion1]

Merhaba.
VBA ile ie ile bir web sayfası açıyorum.
Bu sayfayı nasıl , hepsini seçerek kopyalayabilirim?
Teşekkür ederim.

 

[askm]

SendKeys "^a"
SendKeys "^c" ile kopyalayabilirsiniz yada sayfayı farklı kaydedebilirsiniz aynı yöntemle.

 

[halit3]

Farklı bir yaklaşım ile farklı bir uygulamayı yazıyorum.

Bir adet userform oluşturun ve üstüne WebBrowser1 nesnesi ekleyin birde CommandButton1 nesnesi ekleyiniz.

bu kodu çalıştırın

Private Sub CommandButton1_Click()

WebBrowser1.Silent = True

WebBrowser1.Navigate "http://www.excel.web.tr/index.php"
Do Until WebBrowser1.ReadyState = 4: DoEvents: Loop
Do While WebBrowser1.Busy: DoEvents: Loop

WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT

Range("a1").Select
ActiveSheet.Paste
Range("A1").Select

End Sub

 

[Orion1]

Merhaba sayın askm,Sayın halit3
Askm bey , bekleme kodlarını koyunca oldu.
Teşekkür ederim.
Halit bey kodlarınızı arşivime aldım.
Sizin kodlarınızda web browser kullanılarak yapılan güzel bir çözüm.
Teşekkür ederim.

 

[Haluk]

Evren Bey, alternatif olarak UserForm ve WebBrowser kullanmadan benzer yapıya sahip aşağıdaki kodu da kullanabilirsiniz.

Sub Test()
    Const OLECMDID_SELECTALL = 17
    Const OLECMDEXECOPT_DODEFAULT = 0
    Const OLECMDID_COPY = 12
    Dim IE As Object
    
    URL = "http://www.excel.web.tr/index.php"
    
    Set IE = CreateObject("InternetExplorer.Application")
    
    IE.Visible = False
    IE.navigate URL
    
    Do While IE.Busy: DoEvents: Loop
    Do While IE.readystate <> 4: DoEvents: Loop
                 
    IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
    IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
    IE.Quit
    
    Range("A1").Select
    ActiveSheet.Paste
    Set IE = Nothing
End Sub

.

 

[Orion1]

Haluk bey bu güzel kodlar için teşekkür ederim.
İyi geceler.

 

[Haluk]

Rica ederim Evren Bey, size de iyi geceler.

.