• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Uložení aktivního listu do souboru/formátu xlsm

Zaslal/a Anonym 27.5.2019 16:04

Ahoj, nedaří se mi uložit aktivní list do xlsm souboru. Lépe řečeno, soubor se uloží, ale nejde otevřít.

Poradí prosím někdo, co s tím?

děkuji moc

Private Sub CommandButton2_Click()

Dim filename As Variant

q = Worksheets("protokol").Range("E4").Value
nove_jmeno = "Protokol_" + CStr(q)
ThisWorkbook.Worksheets("protokol").Copy

With ActiveSheet.UsedRange
.Value = .Value
End With

ActiveWorkbook.SaveCopyAs filename:="C:\prace\protokolle\" & nove_jmeno & ".xlsm"
If filename = False Then Exit Sub
cele_jmeno = filename

ActiveWorkbook.SaveAs (cele_jmeno)
ActiveWorkbook.Close False
End Sub

Zaslat odpověď >

---

JoKe(27.5.2019 16:56)#043431

ActiveWorkbook.SaveAs Filename:=jmeno, FileFormat:=52citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse