Alternativne otvorenie zošitu excelu

[senior37]

Mám taký problem. Potrebujem do makra pomocou ktorého otváram iný zošit zapísať formuláciu, ktorá by uvedený zošit ovárala ale iba v prípade, že nie je už otvorený. Ak je už otvorený, tak by sa využil príkaz "Windows("iný zošit.xls").Activate". Dá sa to vôbec?

[Reklama]

[Pavel123]

Samozřejmě, že dá. Existuje kolekce otevřených sešitů. Mrkni do ní a když tam není tak otevři jinak aktivuj okno. Dej si někam na list tlačítko a přiřaď mu tento kód, zobrazí ti názvy všech korektně otevřených sešitů.

Kód: Vybrat vše

Private Sub CommandButton1_Click()
    Dim I As Integer
   
    For I = 1 To Application.Workbooks.Count
        MsgBox Application.Workbooks(I).Name
    Next I
   
End Sub


Pavel