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

• #5992 Delila_1 veterán ulrik19 #5990

  Új Válasz 2010-01-12 11:58:02 #5992

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

  Hogy mind az első, mind az összes többi mentés korrekt legyen:

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

  Ez a 2007-nél régebbi verziókra vonatkozik, 2007-nél a levonás 16, és 5, a 4 jegyű kiterjesztés miatt.

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