Mentés xlsm formátumban probléma

Mentés xlsm formátumban probléma
2017-10-04T16:01:29+02:00
2017-10-05T10:20:18+02:00
2022-12-04T19:45:43+01:00
Ptz
Sziasztok!
Egy újonnan létrehozott táblázatot szeretnék xlsm formátumban menteni.
Az alábbi kódom 2010-es excelben működik de 2016-ban már nem .
Mi lenne a helyes megoldás?
A kérdést mint abszolút kezdő tettem fel, így előre elnézést kérek, ha nem  teljesen egyértelmű az.
A kódrészlet:

FPath = ActiveWorkbook.Path
FName = Range("C1").Value & "_" & Range("E1").Value & "_" & Format(Date, "dd.mm.yy") & "_" & "LS" & Range("A1").Value & ".xlsm"
NewBook.SaveAs Filename:=FPath & " \ " & FName, FileFormat:=52
NewBook.Close
Mutasd a teljes hozzászólást!
Sziasztok!

Közben kiegészítettem az elérési útvonalat, meg volt egy fölösleges space a "backflash" után.
A legnagyobb probléma az FPath-nél volt, mert az ActiveWorkbook az új munkafüzet, aminek nem volt elérési útvonala.
Helyette lett a ThisWorkbook.
Így most működik.

FPath = ThisWorkbook.Path
FName = ThisWorkbook.Sheets("Szállító").Cells(1, 3).Value & "_" & ThisWorkbook.Sheets("Szállító").Cells(1, 5).Value & "_" & ThisWorkbook.Sheets("Szállító").Range("Datum").Value & "_" & "LS" & ThisWorkbook.Sheets("Szállító").Cells(1, 1).Value & ".xlsm"
SavePath = FPath & "" & FName

NewBook.SaveAs SavePath, xlOpenXMLWorkbookMacroEnabled
NewBook.Close

Nagyon köszönöm a segítségeteket!
Üdv.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd