Re: excel internet explorer interaction appearance
- From: r <r@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Thu, 2 Jul 2009 11:28:03 -0700
you could use a UserForm modaless ...
it is easy to build one similar to a msgbox
try ...
Sub test_IE()
Dim myURL As String
Dim myie As Object
Const READYSTATE_COMPLETE As Long = 4
Set myie = CreateObject("InternetExplorer.Application")
myURL = "http://www.google.com"
myie.Navigate myURL
Do While myie.Busy Or myie.readyState <> READYSTATE_COMPLETE
DoEvents
Sleep 500
Loop
UserForm1.Show 0
myie.Visible = True
'myIE.Quit
End Sub
--
Come e dove incollare il codice:
http://www.rondebruin.nl/code.htm
Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/index.php/Excel-VBA/UsedRange-eccezioni-e-alternative.html
"Walter Briscoe" wrote:
In message <38A743C1-72D6-41B2-AC0D-9FB90738B80C@xxxxxxxxxxxxx> of Thu,.
2 Jul 2009 06:58:01 in microsoft.public.excel.programming, r
<r@xxxxxxxxxxxxxxxxxxxxxxxxx> writes
try ...
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test_IE()
[snip]
myIE.navigate myURL
Do While myIE.Busy Or myIE.readyState <> READYSTATE_COMPLETE
DoEvents
Sleep 500
Loop
'myIE.Quit
End Sub
[snip]
I did and still have a race condition. ;(
Sometimes the Excel Msgbox has focus and sometimes IE.
However, I am really excited to have access to Sleep(). ;)
I had failed to find anything in VBA help for sleep, delay, timer, etc.
Your showing a hook to "standard" MS library functions gives me power!
What I want is:
Excel has a MsgBox on top of a fullscreen window.
IE is visible and has focus.
I am prepared to accept that I can't get what I want.
It would probably need threads of control in Excel and, even if that was
possible, the reward would not justify the effort.
[snip]
regards
r
Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/index.php/Excel-VBA/UsedRange-
eccezioni-e-alternative.html
I did look at in in Babelfish, but did NOT understand your intention.
I DID see you use vbscript.regexp. I am familiar with UNIX regular
expressions and find them very helpful. It was a revelation to me that
such functionality is easily found from VBA.
[snip]
Scuzzi, no parliamo Italiano!
Molto grazie!
--
Walter Briscoe
- References:
- excel internet explorer interaction appearance
- From: Walter Briscoe
- RE: excel internet explorer interaction appearance
- From: r
- Re: excel internet explorer interaction appearance
- From: Walter Briscoe
- excel internet explorer interaction appearance
- Prev by Date: Re: Finding next unhidden row
- Next by Date: How do I reduce 10 Sub() into 1 Sub()?
- Previous by thread: Re: excel internet explorer interaction appearance
- Next by thread: elliptic integrals in excel?
- Index(es):
Relevant Pages
|