< 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

VBA macro kopírovanie oblasti

elninoslov • 21.8. 0:23

VBA macro kopírovanie oblasti

marjankaj • 20.8. 22:23

VBA macro kopírovanie oblasti

Anonym • 20.8. 18:45

Denní plán směn - poslední úpravy

pk-wall • 20.8. 9:35

Denní plán směn - poslední úpravy

elninoslov • 20.8. 9:30

Denní plán směn - poslední úpravy

pk-wall • 20.8. 7:56

Počet incidentů v roce

elninoslov • 19.8. 14:06