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

• #5988 Delila_1 veterán Pulsar #5978

  Új Válasz 2010-01-12 11:41:33 #5988

  Ú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

  

  Delila_1

  veterán

  válasz Pulsar #5978 üzenetére

  ... és hogy a füzet előző neve se maradjon ki:

  Sub MentésElőzőnévÉsDátumNévvel()
  Dim FN, utvonal
  utvonal = "C:\"
  FN = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
  FN = FN & "_" & Left(ActiveWorkbook.BuiltinDocumentProperties("Creation date").Value, 11)
  ActiveWorkbook.SaveAs Filename:=utvonal & FN & "xls"
  End Sub

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