Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Cum lipesc o lustra pe beton? Cum...

Achiziție boxa portabila sau...

Pareri despre DS 923+? Procesor R...

Samsung Galaxy S10 probleme DNS
 Extravalerianic și tiroidita...

Trigliceride ușor scazute - ...

Problema internet DIGI - zte zxhn...

Suport umbrele 80 - 100 cm
 Eroare calculator - Releu bujii O...

Plane (2023)

Nesimtire si/sau incompetenta?

Physical: 100 (2023)
 Este Kaufland și Carefour in...

The Three-Body Problem

SSD Lenovo este recunoscut doar i...

Identificare eroare centrala
 

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

Chirurgia spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

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