MS Excel

Téma: VBA - zavření sešitu a následné otevření

Zaslal/a Honza127 28.6.2023 20:44

Ahoj,
peru se s tímto:
Potřebuji, aby VBA uložil kopii Vzorového sešitu a kopii zavřel, v následujícím kroku zavřel původní vzorový sešit bez uložení změn a dále původní vzorový sešit otevřel.
Může se to zdát podivné, ale v ukládané kopii došlo k několika krokům, které brání dalšímu použití Vzorového sešitu.

Neumím vyřešit to, že po zavření vzorového sešitu již nedojde k jeho otevření. Viz předposlední řádek makra níže.
Nevíte někdo co s tím?
(celá procedura se spouští tlačítkem ve Vzorovém sešitu)
Děkuju,
Honza

Sub Vytvor_kopii_souboru()
'vytvoří kopii souboru s požadovaným názvem

CestaAdresare = ThisWorkbook.Path
FPrijmeni = Sheets("Výběr z OK konta").Range("B5").Text
FJmeno = Sheets("Výběr z OK konta").Range("B4").Text

'nebude chtit nic potvrzovat
Application.DisplayAlerts = False
Application.ScreenUpdating = False

ActiveWorkbook.Sheets.Copy
ActiveWorkbook.SaveAs Filename:=CestaAdresare & "\Výběr z OK konta_" & FJmeno & "_" & FPrijmeni & ".xlsx"
ActiveWorkbook.Close

Application.DisplayAlerts = True

'zavře původní sešit bez uložení změn
Workbooks("_VZOR_vyber z OK konta_v.1.1.xlsm").Close False

'otevře původni vzor i s datovým spojením
Workbooks.Open Filename:=CestaAdresare & "\_VZOR_vyber z OK konta_v.1.1.xlsm"

End Sub

Zaslat odpověď >

elninoslov(29.6.2023 0:31)#055116

Zdá sa to byť nemožné (logike odporujúce) ale predsa na stackoverflow ... prípadne zaujímavo vyzerá aj na extendedoffice ... no idem už spať, neskúšam.

EDIT: Tak som použil ten posledný spôsob. Napr. takto:

Příloha: zip