Sign In
Create Account
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? |
Back to topAnunturi
Bun venit pe Forumul Softpedia!
▶ 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.