pune data dupa numele fisierului

Ce este nou in Microsoft Excel 2013?
Informatii despre cum se utilizeaza Microsoft Excel 2013
Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
verbavolant
Mesaje: 44
Membru din: Dum Aug 27, 2017 4:37 pm

pune data dupa numele fisierului

Mesaj de verbavolant » Sâm Oct 06, 2018 10:17 am

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 :)

Indigo-99
Mesaje: 60
Membru din: Dum Sep 02, 2018 8:21 am

Re: pune data dupa numele fisierului

Mesaj de Indigo-99 » Sâm Oct 06, 2018 2:25 pm

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 /
"I don’t pretend we have all the answers. But the questions are certainly worth thinking about."
Sir Arthur C. Clarke

Indigo-99
Mesaje: 60
Membru din: Dum Sep 02, 2018 8:21 am

Re: pune data dupa numele fisierului

Mesaj de Indigo-99 » Sâm Oct 06, 2018 2:50 pm

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.
"I don’t pretend we have all the answers. But the questions are certainly worth thinking about."
Sir Arthur C. Clarke

verbavolant
Mesaje: 44
Membru din: Dum Aug 27, 2017 4:37 pm

Re: pune data dupa numele fisierului

Mesaj de verbavolant » Lun Oct 08, 2018 4:35 pm

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!
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

Indigo-99
Mesaje: 60
Membru din: Dum Sep 02, 2018 8:21 am

Re: pune data dupa numele fisierului

Mesaj de Indigo-99 » Lun Oct 08, 2018 5:24 pm

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:

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

verbavolant
Mesaje: 44
Membru din: Dum Aug 27, 2017 4:37 pm

Re: pune data dupa numele fisierului

Mesaj de verbavolant » Joi Oct 11, 2018 1:56 pm

Multumesc din suflet!

Scrie răspuns

Înapoi la “Intrebari despre Excel 2013”