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

• #5984 Delila_1 veterán ulrik19 #5980

  Új Válasz 2010-01-12 11:25:59 #5984

  Ú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 ulrik19 #5980 üzenetére

  Ez lefordítva

  Sub DátumNév()
  Dim FN, utvonal
  utvonal = "C:\"
  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