salvare foaie in alt fisier,xlsx

salvare foaie in alt fisier,xlsx

Mesajde Laslau Petre » Dum Iun 03, 2018 9:21 am

Buna ziua,
Am creat un buton care salveaza fisierul, cu numele unei casute din fisier, intr-un anume folder.
As dori sa salvez in acel folder doar un singur sheet din fisier, cu numele unei casute din fisier. Ideal ar fi o parte din sheet.
Butonului i-am alocat urmatorul cod:

Private Sub CommandButton1_Click()
Dim path As String
Dim filename1 As String

path = "C:\Users\cem 110\Desktop\cereri\"
filename1 = Range("a8").Text
Application.DisplayAlerts = False
ActiveSheet.SaveAs Filename:=path & filename1 & ".xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True

End Sub
Multumesc!
Laslau Petre
 
Mesaje: 2
Membru din: Dum Iun 03, 2018 9:00 am

Re: salvare foaie in alt fisier,xlsx

Mesajde csaba1960 » Vin Iun 08, 2018 3:35 pm

Buna

Ai o soluție in atașament.
Path-ul si numele fișierului am trecut ca parametrii in prima pagina.
Pagina pe care o salvezi, il alegi după numărul sau. In celula B3, este un Data Validation, pentru a impiedica sa scrii altceva decât cifre, momentan limitat la 10, daca e cazul o modifici.
Din pagina aleasa este salvata doar parte selectata prealabil.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
csaba1960
Moderator
Moderator
 
Mesaje: 152
Membru din: Mie Feb 02, 2011 4:05 pm
Localitate: Cluj-Napoca

Re: salvare foaie in alt fisier,xlsx

Mesajde Laslau Petre » Mar Iun 12, 2018 9:10 pm

Multumesc Csaba!
Laslau Petre
 
Mesaje: 2
Membru din: Dum Iun 03, 2018 9:00 am


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

Cine este conectat

Utilizatorii ce navighează pe acest forum: Niciun utilizator înregistrat şi 2 vizitatori

cron