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

55116_vzor_vyber-z-ok-konta_v.1.1.zip (20kB, staženo 7x)

citovat

lubo(29.6.2023 9:15)#055117

Nezavíráte náhodou sešit ve kterém je kód? Před zavřením kopie otevřete vzor.citovat

elninoslov(29.6.2023 10:33)#055119

Áno, presne o to sa pokúša. Je zaujímavé, že nastavenie tých príznakov xlReadOnly/xlReadWrite spôsobí ReOpen, viď príloha

Snáď to chápem správne.citovat

Honza127(3.7.2023 23:05)#055154

For elninoslov:
Wow, funguje to. Moc děkuji.
Honzacitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.