< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#055116
elninoslov
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: zip55116_vzor_vyber-z-ok-konta_v.1.1.zip (20kB, staženo 6x)
citovat
#055117
avatar
Nezavíráte náhodou sešit ve kterém je kód? Před zavřením kopie otevřete vzor.citovat
#055119
elninoslov
Áno, presne o to sa pokúša. Je zaujímavé, že nastavenie tých príznakov xlReadOnly/xlReadWrite spôsobí ReOpen, viď príloha 9
Snáď to chápem správne.citovat
#055154
avatar
For elninoslov:
Wow, funguje to. Moc děkuji.
Honzacitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35