Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Durata estimata de viata a unei i...

Identificare filet butelie r290

Sifon pe circuitul frigorific.

Cel mai adormit Hard Disk.
 Salariu minim european in Romania

verificare specificatii lapgop Asus

Problema cu o camera Panasonic MD...

Probleme cu reddit
 Problema sunet boxa noua

Despre proiectarea drumurilor urb...

Final Cut Camera

Z6III vs Z8
 Foloseste careva CFD-uri si sa ai...

Un calculator ieftin ?!

macbook pro 16 VS AMD Laptop

Sistem ON-GRID fara curent din re...
 

cod vb care copiaza web page- blocat

- - - - -
  • Please log in to reply
No replies to this topic

#1
flaviu123

flaviu123

    Junior Member

  • Grup: Members
  • Posts: 25
  • Înscris: 12.07.2012
Buna seara baieti!

Sub GetIE()

Dim shellWins As ShellWindows
Dim IE As InternetExplorer
Dim HL As Hyperlink
Set shellWins = New ShellWindows

'If shellWins.Count > 0 Then
' Get IE
'Set IE = shellWins.Item(0)
'Else
' Create IE
Set IE = New InternetExplorer
IE.Visible = True
'End If
vAddr = ActiveCell.Hyperlinks(1).Address
IE.Navigate vAddr
While IE.Busy
DoEvents
Wend
With ActiveSheets
	 Range("K1").Select

	 IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
	 IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
.Paste
End With
IE.Quit
Set IE = Nothing
Set shellWins = Nothing
End Sub


Codul se blocheaza la:

IE.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
IE.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT


Oare unde am gresit?

Anunturi

Bun venit pe Forumul Softpedia!

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate