< návrat zpět

MS Excel


Téma: Pokud není otevřen Test2.xlsm spusť makro rss

Zaslal/a 30.1.2018 9:49

Dobrý den, nevím si rady, jak místo chybné hlášky, že nemůže Test2.xlsm najít, aby bylo spuštěno makro, které se jmenuje aha, toto makro se bude v závislosti upravovat. Cílem zde je, aby mi to reagovalo na chybu, že nelze Test2.xlsm aktivovat spuštěním jiného makra, moc děkuji. :)

Sub RunEveryTwoMinutes()
ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"
Application.Windows("Test2.xlsm").Activate

On Error Resume Next
If Err = 0 Then Call aha
end sub

Sub aha()
MsgBox ("Není otevřený důležitý soubor pro nahrání dat")
End Sub

Zaslat odpověď >

#039270
avatar
Můžeš využít například příkaz: "On Error GoTo", který dáš před pokus o aktivování souboru Test2.xlsm, a v případě chyby se odkázat na příslušnou část kódu.
P.citovat
#039271
elninoslov
A test chyby musí byť na <>0, nie na =0.

Sub RunEveryTwoMinutes()
ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"

On Error Resume Next
Application.Windows("Test2.xlsm").Activate

If Err <> 0 Then Call aha
end sub


Ak chcete iba otestovať či je súbor s daným názvom otvorený, a nie ho pritom aktivovať, tak napr.
Sub RunEveryTwoMinutes()
Dim Test As Boolean

ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"

On Error Resume Next
Test = Application.Windows("Test2.xlsm").Visible

If Err <> 0 Then Call aha
end sub


alebo použite Workbooks:
Sub RunEveryTwoMinutes()
ActiveWorkbook.Save
Application.Ontime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"

On Error Resume Next
If Len(Workbooks("Test2.xlsm").Name) = 0 Then Call aha
end sub
citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Nefunkční makro

misocko • 12.12. 22:06

Nefunkční makro

Stalker • 12.12. 12:53

Vytvoření nového řádku v Tabulce

AL • 12.12. 12:13

Vytvoření nového řádku v Tabulce

Klamerka • 12.12. 11:53

Vytvoření nového řádku v Tabulce

AL • 12.12. 11:38

Nefunkční makro

marjankaj • 12.12. 11:05

Vytvoření nového řádku v Tabulce

Klamerka • 12.12. 11:03