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

• Delila_1 veterán

  #5992

  #5990 ulrik19

  2010-01-12 11:58:02

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #5990 ulrik19

  #5990 ulrik19

  húha, egyre inkább nem értem

  ha mindig az abszolút eredeti file-ból futtatja ezt a kódot, akkor mindig ugyanazon a file-néven fogja elmenteni (mert ugye a létrehozási dátum nem változik)

  ha mindig az újonnan létrejött file-ból futtatja, akkor meg egyre hosszabb filenév lesz, mert mindig hozzáfűzi a dátumot.

  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