Sign In
Create Account
Back to top |
Neurochirurgie minim invazivă
"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv. Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice. www.neurohope.ro |
cod vb care copiaza web page- blocat
Last Updated: Aug 22 2014 17:30, Started by
flaviu123
, Aug 22 2014 17:30
·
0
0
#1
Posted 22 August 2014 - 17:30
|
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
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users
-
- Change Theme
- English
- Mark Community Read
- Termene & conditii
- Confidentialitate
- Consimtamant
- Cookies
- Help
© 2001-2024 Softpedia. All rights reserved. Softpedia® and the Softpedia logo are registered trademarks of SoftNews Net SRL.
Ora implicita a Forumului Softpedia este ora standard a Romaniei (GMT+2). Mai multe informatii →
⚠ Postarile afisate pe Forumul Softpedia reprezinta o opinie subiectiva a membrilor care le-au publicat si nu a SoftNews Net SRL.