Új hozzászólás Aktív témák

• #20996 alfa20 senior tag

  Új Válasz 2014-03-19 08:08:07 #20996

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  alfa20

  senior tag

  Jó reggelt!

  Van nekem rész a makróban ami a mentésért felelős:

  Sub save()
  
  If Not ActiveWorkbook.Saved Then
  msg = "Kivánja menteni a táblázatot? "
  msg = msg & "'xxxxxxx-xxxxxxxxxxxxx_" & Date & "xlsm' néven?"
  ans = MsgBox(msg, vbQuestion + vbYesNo)
  Select Case ans
  Case vbYes
  ActiveWorkbook.SaveAs Filename:= _
  "xxxxxxx-xxxxxxxxxxxxx_" & Date & "xlsm" _
  , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
  Case vbNo
  ThisWorkbook.Saved = True
  Exit Sub
  End Select
  End If
  
  End Sub

  A lényeg, hogy a megadott név mögé teszi az aznapi dátumot aminek a formátuma: yyyy.mm.dd.
  be lehet állítani, hogy az év ne szerepeljen a fájl névben csak a hónap és a nap.
  Tehát így nézzen ki:
  xxxxxxx-xxxxxxxxxxxxx_.mmdd

  "Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)

Új hozzászólás Aktív témák