Alternativne otvorenie zošitu excelu
Napsal: 23 srp 2007 18:07
od 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?
Napsal: 25 srp 2007 05:59
od 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