MS Excel

Excel to čísluje automaticky, a pri vytváraní zvyšuje číslo, aj keď je 1-ka dostupná, lebo už súbor otvorený nieje. Dalo by sa to obabrať asi takto. Vytvorte si niekde na disku prázdny súbor s názvom, ktorý Vám Excel Automaticky ponúka ako prvý predvolený, teda v CZ "Sešit", v SK "Zošit" a uložte ho ako .xlsx. Potom z neho Vašim makrom vytvárajte nový, ako zo šablóny, a dostane vždy číslo 1 a bude neuložený a bez prípony, tak ako klasické vytvorenie nového zošitu Excelom. Len treba v makre najskôr otestovať prípadnú existenciu už predtým vytvoreného "Zošit".
Sub Vytvor_Zosit()
Dim WB As Workbook
On Error Resume Next
Set WB = Workbooks("Zošit1")
On Error GoTo 0
If WB Is Nothing Then
Workbooks.Add Template:="Z:\Zošit.xlsx"
Else
Set WB = Nothing
MsgBox "Môže byť otverený iba jeden súbor s názvom Zošit1", vbExclamation, "Chyba"
End If
End Subcitovat