2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Fototrend
    Frissítve: 2023-11-13 08:31 Téma összefoglaló
    Fototrend

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • Delila_1 Delila_1 veterán
    #5992
    #5990 ulrik19
    Ú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
    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