[Excel 2003] Activate Window tbv een Shell command?

Pagina: 1
Acties:

Acties:
  • 0 Henk 'm!

  • Da_maniaC
  • Registratie: September 2004
  • Laatst online: 31-05 14:58

Da_maniaC

a.k.a. The Sequenz Pounder

Topicstarter
Ik ben met een Excel sheet bezig welke nogal wat macro's gebruikt.
Nu heb ik 1 button welke middels shell een *.cmd file aanroept en vervolgens een runtime heeft van een seconden of 15-20.
Wat me echter opvalt is dat het cmd venster niet op de voorgrond staat wanneer het draait.
Nu ben ik hier en daar aan het zoeken geweest hoe ik de window Active kan maken, zodat deze gedurende de draaitijd wel op de voorgrond komt te staan, maar het wil me niet lukken. :)
(Ik wil simpelweg dat de gebruiker kan zien waar hij op zit te wachten).

Ik gebruik de volgende code/macro om de shell aan te roepen:
code:
1
2
3
4
5
6
7
Sub Statistique()


cmd = Shell("U:\Server\Op\Mijn\Werk\DownLoadStatResult.cmd")


End Sub


Ik heb via internet al verschillende "Appactive" en "Activate.Window" codes geprobeerd maar krijg geen enkele juist aan de praat.

Inventory | Instagram: @sequenzpounder | http://www.zdaemon.org | ZDaemon! Client/Server port for DOOM!


Acties:
  • 0 Henk 'm!

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

Check de parameters van Shell() even: het werkt hier prima met vbNormalFocus.Tenminste, in XLS2010. Ik heb geen OFF2003 meer om te proberen.

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Acties:
  • 0 Henk 'm!

  • Reptile209
  • Registratie: Juni 2001
  • Laatst online: 10:49

Reptile209

- gers -

Yup, klopt F_J_K. Example code uit de help van Shell():
Visual Basic:
1
2
3
4
' Specifying 1 as the second argument opens the application in 
' normal size and gives it the focus.
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)    ' Run Calculator.

Zo scherp als een voetbal!


Acties:
  • 0 Henk 'm!

  • Da_maniaC
  • Registratie: September 2004
  • Laatst online: 31-05 14:58

Da_maniaC

a.k.a. The Sequenz Pounder

Topicstarter
Thanks voor de uitleg mensen. :)
VbNormalFocus did the trick!

Nu heb ik eigenlijk nog 1 functie in VBA welke ik niet aan de gang krijg (formule):
Als ik dit tenminste in hetzelfde topic mag plaatsen :)

De volgende regel geeft een Syntax error en ik begrijp niet waarom:

code:
1
Range("R2").Formula = "=IF(AND(B2>=TIMEVALUE("23:00"),B2<=TIMEVALUE("23:59"),D2=290,Q2=521)),1,0)"

[ Voor 72% gewijzigd door Da_maniaC op 06-05-2011 09:56 ]

Inventory | Instagram: @sequenzpounder | http://www.zdaemon.org | ZDaemon! Client/Server port for DOOM!


Acties:
  • 0 Henk 'm!

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

Zonder te proberen: gokje, komma <> puntkomma.

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Acties:
  • 0 Henk 'm!

Anoniem: 113297

formule via vba : altijd komma, ongeacht de taalinstellingen.

de aanhalingstekens binnen de formule dienen verdubbeld. ;)

Acties:
  • 0 Henk 'm!

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

Ugh, ik had net verkeerd om in m'n hoofd. * F_J_K schaamt zich in een hoekje.

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Acties:
  • 0 Henk 'm!

  • Da_maniaC
  • Registratie: September 2004
  • Laatst online: 31-05 14:58

Da_maniaC

a.k.a. The Sequenz Pounder

Topicstarter
Anoniem: 113297 schreef op vrijdag 06 mei 2011 @ 10:33:
formule via vba : altijd komma, ongeacht de taalinstellingen.

de aanhalingstekens binnen de formule dienen verdubbeld. ;)
Thanks! :)

Inventory | Instagram: @sequenzpounder | http://www.zdaemon.org | ZDaemon! Client/Server port for DOOM!

Pagina: 1