salvare conditionata

emmaribana
Mesaje: 20
Membru din: Dum Feb 21, 2016 10:36 pm

salvare conditionata

Mesaj de emmaribana » Mie Oct 03, 2018 12:33 am

Buna seara,
ma poate ajuta cineva cu un cod vba de salvare a workbookului cu preluarea denumirii din celulele B2 si B3, iar calea sa fie cea din celula B1(aceasta se schimba periodic).
Multumesc!
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

DR.ACCESS
Moderator
Moderator
Mesaje: 300
Membru din: Lun Sep 05, 2011 5:06 pm

Re: salvare conditionata

Mesaj de DR.ACCESS » Mar Noi 13, 2018 8:43 am

am salvat fisierul dumneavoastra(Book1) in format .xlsb
(sau il salvati .xlsm daca va estemai la indemana)
In VBA Editor, am introdus urmatorul cod ca eveniment pentru obiectul ThisWorkbook (in fereastra Project Explorer dati dublu click pe obiectul ThisWorkbook si introduceti codul)

Cod: Selectaţi tot

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveAs Filename:=Sheet1.Cells(1, 2).Value & "\" & Sheet1.Cells(2, 2).Value & Sheet1.Cells(3, 2).Value, FileFormat:=xlExcel12

End Sub
Daca doriti ca fisierul pe care il salvati sa aiba extensia .xlsx, in loc de xlExcel12 scrieti xlOpenXMLWorkbook
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
D. Tanase
MCT, MCTS
MOS Master Instructor

Scrie răspuns

Înapoi la “Visual Basic for Application (VBA) cu Excel - Intrebari tehnice”