Excel 2007 Macro w/ AppActivate = Run-time error '5': Invalid procedure call or argument
Greetings,
Any clue why we get this in an Excel 2007 macro, see below. Run-time error '5': Invalid procedure call or argument when running the macro below. The ping starts & runs fine, it's just we get the error message? Per... Sub X_x() ' ' X_x Macro ' ' Keyboard Shortcut: Ctrl+x ' Dim ReturnValue ReturnValue = Shell("c:\windows\system32\ping.exe 4.2.2.2 -t") AppActivate ReturnValue End Sub |
Excel 2007 Macro w/ AppActivate = Run-time error '5': Invalid proc
If you are looking to have the focus on the command window try;
Dim ReturnValue ReturnValue = Shell("c:\windows\system32\ping.exe 4.2.2.2 -t", vbNormalFocus) If this post helps click Yes --------------- Jacob Skaria "Per Moeller-Olsen" wrote: Greetings, Any clue why we get this in an Excel 2007 macro, see below. Run-time error '5': Invalid procedure call or argument when running the macro below. The ping starts & runs fine, it's just we get the error message? Per... Sub X_x() ' ' X_x Macro ' ' Keyboard Shortcut: Ctrl+x ' Dim ReturnValue ReturnValue = Shell("c:\windows\system32\ping.exe 4.2.2.2 -t") AppActivate ReturnValue End Sub |
Excel 2007 Macro w/ AppActivate = Run-time error '5': Invalid proc
With these two lines
On Error Resume Next AppActivate ReturnValue rather than just this one AppActivate ReturnValue no errors displayed any longer & the stuff is running. It's a little hacked I think? I tried your suggestion, did not make any difference as far as I could tell. Per... "Jacob Skaria" wrote in message ... If you are looking to have the focus on the command window try; Dim ReturnValue ReturnValue = Shell("c:\windows\system32\ping.exe 4.2.2.2 -t", vbNormalFocus) If this post helps click Yes --------------- Jacob Skaria "Per Moeller-Olsen" wrote: Greetings, Any clue why we get this in an Excel 2007 macro, see below. Run-time error '5': Invalid procedure call or argument when running the macro below. The ping starts & runs fine, it's just we get the error message? Per... Sub X_x() ' ' X_x Macro ' ' Keyboard Shortcut: Ctrl+x ' Dim ReturnValue ReturnValue = Shell("c:\windows\system32\ping.exe 4.2.2.2 -t") AppActivate ReturnValue End Sub |
Excel 2007 Macro w/ AppActivate = Run-time error '5': Invalid procedure call or argument
Why not just use
Dim ReturnValue As Long ReturnValue = Shell("c:\windows\system32\ping.exe -t 4.2.2.2", vbNormalFocus) Cordially, Chip Pearson Microsoft Most Valuable Professional Excel Product Group, 1998 - 2009 Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Sat, 25 Apr 2009 15:38:12 -0700, "Per Moeller-Olsen" wrote: Greetings, Any clue why we get this in an Excel 2007 macro, see below. Run-time error '5': Invalid procedure call or argument when running the macro below. The ping starts & runs fine, it's just we get the error message? Per... Sub X_x() ' ' X_x Macro ' ' Keyboard Shortcut: Ctrl+x ' Dim ReturnValue ReturnValue = Shell("c:\windows\system32\ping.exe 4.2.2.2 -t") AppActivate ReturnValue End Sub |
Excel 2007 Macro w/ AppActivate = Run-time error '5': Invalid procedure call or argument
So no need for AppActivate ReturnValue? Per...
"Chip Pearson" wrote in message ... Why not just use Dim ReturnValue As Long ReturnValue = Shell("c:\windows\system32\ping.exe -t 4.2.2.2", vbNormalFocus) Cordially, Chip Pearson Microsoft Most Valuable Professional Excel Product Group, 1998 - 2009 Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Sat, 25 Apr 2009 15:38:12 -0700, "Per Moeller-Olsen" wrote: Greetings, Any clue why we get this in an Excel 2007 macro, see below. Run-time error '5': Invalid procedure call or argument when running the macro below. The ping starts & runs fine, it's just we get the error message? Per... Sub X_x() ' ' X_x Macro ' ' Keyboard Shortcut: Ctrl+x ' Dim ReturnValue ReturnValue = Shell("c:\windows\system32\ping.exe 4.2.2.2 -t") AppActivate ReturnValue End Sub |
All times are GMT +1. The time now is 10:05 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com