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)

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.