Jak přiřadit jméno sešitu aby zůstal otevřený?

[atari]

Mám toto makro, které vytvoří 15 souborů, přiřadí jméno a uloží (zavře). Potřebuji to upravit tak, aby se přiřadilo jméno, ale všech 15 souborů aby zústalo otevřených. Nějak mě nic nenapadá. Je to možné nějak udělat? (Napadlo mě zase dalším makrem to vše otevřít, ale to už je takové divoké..)

Kód: Vybrat vše

Sub aaa()
For i = 1 To 15
Call zpracuj_data
ActiveWorkbook.SaveAs Filename:=i
Next i
End Sub

[Reklama]

[karel.laska]

Zdravím,

možná to bude tím, že vlastně ten sešit nezavíráte, ale uložíte vždy novou verzi.
Pokud budete chtít tento excel ponechat otevřený, budete jej nejspíš opět makrem otevřít.

S pozdravem Karel Láska

[guest]

Workbooks.Add a Save

nebo

SaveCopyAs