< návrat zpět

MS Excel


Téma: msg.exe rss

Zaslal/a 17.5.2016 9:53

Jeza.mDobrý den,

prosím jestli někdo může ve VB vyzkoušet příkaz
MsgBox Dir("C:\Windows\System32\msg.exe")
Jestli message box vrátí msg.exe, nebo jestli bude prázdný.

Z nějakého důvodu daný soubor přes průzkumníka vidím, ale VBA, ani VB ho nevidí. Když zkusím jakýkoliv jiný soubor ve stejné složce, tak message box vrátí název.

S tím souvisí otázka, jestli někoho nenapadne, kde by mohl být háček.

Dělám aplikaci ve VB, kde potřebuji aby se za jistých podmínek sama ukončila a hodila uživateli hlášku, nicméně ta hláška nesmí být z dané aplikace, protože aplikaci potřebuji ukončit.
Myslel jsem že využiju funkce windows a soubor msg.exe, který sám o sobě funguje (přes příkaz spustit, či příkazový řádek), ale když ho VBA, ani VB nevidí, tak je to blbý :-/. Možností je volat externí script s hláškou, ale je to zas soubor navíc :-/.
Tak kdyby někdo poradil jak to vyřešit elegantně bez dalších souborů, tak bych byl rád :-).

Díky
M@

Zaslat odpověď >

icon #031530
eLCHa
Mám to také prázdné. Možná je třeba volat to jako admin.

2 možnosti:
Sub sub1()
Application.Visible = False
MsgBox "Kuk", , "Kukacka"
ActiveWorkbook.Saved = True
Application.Quit
End Sub

A tahle se mi líbí ;)Sub sub2()
Call Shell("C:\windows\system32\mshta.exe ""javascript:var sh=new ActiveXObject('WScript.Shell'); sh.Popup('Kuk', 0, 'Kukacka', 64 ); close()""")
ActiveWorkbook.Saved = True
Application.Quit
End Sub
Je možné nastavit interval, kdy se MsgBox sám zavře ;) - to první číslocitovat
#031532
Jeza.m
Ta druhá je super :-), sice mimo mé chápání, ale funguje jak má :-).
Potřebuju změnou hodnoty v DB ukončit aplikaci na všech pc kde je spuštěná, abych mohl přepsat exe soubor, no a nechtěl jsem to utnout bez hlášky, ale hláška přímo z programu by mi zas nedovolila jeho ukončení, proto jsem hledal externí možnosti hlášky, což první volba byla msg.exe, která bohužel zklamala, ale Vaše možnost č. 2 to zachránila :-).

Díky
M@citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje