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

• #5989 Delila_1 veterán ulrik19 #5987

  Új Válasz 2010-01-12 11:44:17 #5989

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

  Erre az esetre

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

  Bár ezzel az a baj, hogy az első ilyen mentés után a fájlnév tartalmazza a mentés dátumát, a következő mentésnél 2, majd 3, végül n db dátum lesz a névben. Hacsak az
  FN = Left(...) sorban le nem vonjuk minden alkalommal az előző dátumot is.

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