Sign In
Create Account
Back to top |
Chirurgia cranio-cerebrală minim invazivă
Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne. Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale. 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.