pune data dupa numele fisierului
-
- Mesaje: 44
- Membru din: Dum Aug 27, 2017 4:37 pm
pune data dupa numele fisierului
Buna ziua,
as dori ca la fiecare salvare a fisierului, dupa denumire, sa fie adaugata si data si ora.
De exemplu am fisierele :
Scoala19.xlsm
Scoala19.xlsx
vreau ca dupa salvare, sa arate astfel:
Scoala19_06.10.2018.11:15.xlsm
Scoala19_06/10/2018.11:15.xlsx
Multumesc anticipat raspunsurilor voastre
as dori ca la fiecare salvare a fisierului, dupa denumire, sa fie adaugata si data si ora.
De exemplu am fisierele :
Scoala19.xlsm
Scoala19.xlsx
vreau ca dupa salvare, sa arate astfel:
Scoala19_06.10.2018.11:15.xlsm
Scoala19_06/10/2018.11:15.xlsx
Multumesc anticipat raspunsurilor voastre
Re: pune data dupa numele fisierului
Salut,
Sa intelegem ca ai fisierele, dar doresti ca dupa ce lucrezi in ele, sa fie sa fie salvate sub denumirea:
Scoala19_06.10.2018.11:15.xlsm
sau asa
Scoala19_06/10/2018.11:15.xlsx
Poate ceva de genul:
ActiveWorkbook.SaveAs cale & numefis &"_"& Format(Now(), "dd.mm.yyyy hh.mm") & ".xlsm"
PS De ce fisierele .xlsm sa fie cu punct iar fisierele .xlsx sa fie cu /
Sa intelegem ca ai fisierele, dar doresti ca dupa ce lucrezi in ele, sa fie sa fie salvate sub denumirea:
Scoala19_06.10.2018.11:15.xlsm
sau asa
Scoala19_06/10/2018.11:15.xlsx
Poate ceva de genul:
ActiveWorkbook.SaveAs cale & numefis &"_"& Format(Now(), "dd.mm.yyyy hh.mm") & ".xlsm"
PS De ce fisierele .xlsm sa fie cu punct iar fisierele .xlsx sa fie cu /
"I don’t pretend we have all the answers. But the questions are certainly worth thinking about."
Sir Arthur C. Clarke
Sir Arthur C. Clarke
Re: pune data dupa numele fisierului
Aici in loc de NOW()pune DATE()
ActiveWorkbook.SaveAs cale & numefis &"_"& Format(Now(), "dd.mm.yyyy hh.mm") & ".xlsm"
adica
ActiveWorkbook.SaveAs cale & numefis &"_"& Format(Date(), "dd.mm.yyyy hh.mm") & ".xlsm"
Sau poti folosi direct:
ActiveWorkbook.SaveAs cale & numefis &"_"& Now() & ".xlsm".
Cel mai simplu ar fi sa pui intr-o celula denumirea noului fisier la salvare sa ia numele de acolo.
ActiveWorkbook.SaveAs cale & numefis &"_"& Format(Now(), "dd.mm.yyyy hh.mm") & ".xlsm"
adica
ActiveWorkbook.SaveAs cale & numefis &"_"& Format(Date(), "dd.mm.yyyy hh.mm") & ".xlsm"
Sau poti folosi direct:
ActiveWorkbook.SaveAs cale & numefis &"_"& Now() & ".xlsm".
Cel mai simplu ar fi sa pui intr-o celula denumirea noului fisier la salvare sa ia numele de acolo.
"I don’t pretend we have all the answers. But the questions are certainly worth thinking about."
Sir Arthur C. Clarke
Sir Arthur C. Clarke
-
- Mesaje: 44
- Membru din: Dum Aug 27, 2017 4:37 pm
Re: pune data dupa numele fisierului
Multumesc frumos! As vrea asa cum spuneti, dar nu stiu cum sa fac. Atasez fisierul,unde am pus denumirea in sheet 3, A1 si data in B1.
Multumesc!
Multumesc!
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: pune data dupa numele fisierului
Sa inteleg ca doresti sa se ia numele fisierului, din celula A1, din Sheet3?
De data din B1 nu este nevoie ptr ca se ia data din sistem.
Pune intrun modul codul:
De data din B1 nu este nevoie ptr ca se ia data din sistem.
Pune intrun modul codul:
Cod: Selectaţi tot
Sub SalvareFisier()
cale = "D:\Site\ITLearning" & "\" '<--- aici inlocuieste calea unde vei salva fisierul.
numefis = Sheets("Sheet3").[A1]
ActiveWorkbook.SaveAs cale & numefis & "_" & Format(Now(), "dd.mm.yyyy hh.mm") & ".xlsm"
End Sub
"I don’t pretend we have all the answers. But the questions are certainly worth thinking about."
Sir Arthur C. Clarke
Sir Arthur C. Clarke
-
- Mesaje: 44
- Membru din: Dum Aug 27, 2017 4:37 pm
Re: pune data dupa numele fisierului
Multumesc din suflet!