Note: The other languages of the website are Google-translated. Back to English

Cum se salvează fișierul Excel cu valoarea celulei?

Când utilizați un registru de lucru, v-ați gândit vreodată să salvați fișierul Excel pe baza unui conținut de celulă? De exemplu, aveți „Preț de vânzare” în celula A1 și doriți să salvați registrul de lucru sub numele Preț de vânzare. Desigur, puteți introduce numele în dialogul Salvare ca și apoi salvați-l. Dar aceasta va fi o metodă ineficientă în cantitatea dvs. de muncă. Astăzi, voi vorbi despre un truc rapid pentru a-l rezolva.

Salvați fișierul Excel cu valoare specifică a celulei utilizând codul VBA

Fila Office Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
  • Reutilizați orice: Adăugați cele mai utilizate sau complexe formule, diagrame și orice altceva la preferatele dvs. și reutilizați-le rapid în viitor.
  • Peste 20 de caracteristici text: Extrageți numărul din șirul de text; Extrageți sau eliminați o parte din texte; Conversia numerelor și valutelor în cuvinte în limba engleză.
  • Instrumente de îmbinare: Mai multe cărți de lucru și foi într-unul; Combinați mai multe celule / rânduri / coloane fără a pierde date; Combinați rândurile duplicate și suma.
  • Instrumente divizate: Împărțiți datele în mai multe foi bazate pe valoare; Un registru de lucru pentru mai multe fișiere Excel, PDF sau CSV; O coloană la mai multe coloane.
  • Lipiți săriți Rânduri ascunse / filtrate; Număr și sumă de Culoarea fundalului; Trimiteți e-mailuri personalizate către mai mulți destinatari în bloc.
  • Super Filtru: Creați scheme avansate de filtrare și aplicați oricăror foi; Sortează pe săptămână, zi, frecvență și multe altele; Filtru prin îndrăznețe, formule, comentarii ...
  • Peste 300 de caracteristici puternice; Funcționează cu Office 2007-2021 și 365; Suporta toate limbile; Implementare ușoară în întreprinderea sau organizația dvs.

săgeată albastru dreapta balon Salvați fișierul Excel cu valoare specifică a celulei utilizând codul VBA

Următorul cod VBA vă poate ajuta să vă salvați registrul de lucru cu o valoare specificată a celulei, procedați după cum urmează:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: Salvați fișierul Excel cu o valoare specifică a celulei

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. Și apoi apăsați F5 tasta pentru a executa codul, iar registrul dvs. de lucru a fost denumit conținutul celulei celulei A1. Vedeți captura de ecran:

doc-salvare-cu-celula-valoare-1

note:

1. Puteți specifica orice valoare a celulei ca nume de fișier doar modificând A1 la altă referință de celulă din codul de mai sus.

2. Cartea de lucru activă va fi salvată în dosarul din C: \ Utilizatori \ dt \ Desktop \ informațiile mele \ (ultima bară trebuie să rămână când lipiți locația în loc de ea) locație, puteți schimba calea în funcție de nevoile dvs.


Legate de articole:

Cum se salvează fișierul cu data și ora în Excel?

Cum se afișează calea fișierului în bara de titlu sau în bara de instrumente în Excel?


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (33)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
modulul nu salvează în .XlsX; cred că are ceva de-a face cu linia 7;; „.xls”, FileFormat:=xlNormal; De asemenea, cum pot modifica pentru a lua valoarea din 3 celule diferite concatenate? de exemplu: prenume, prenume, data; în rândul 6 al codului?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dim numele fișierului ca șir
Dim filename1 ca șir
Dim filename2 ca șir

Cale = „C:\Utilizatori\dt\Desktop\informațiile mele\”
nume de fișier = Interval ("A1")
filename1 = Interval ("A2")
filename2 = Interval ("A3")
ActiveWorkbook.SaveAs filename:=Cale și nume fișier & „-” și nume fișier1 și „-” și nume fișier2 „.xls”, FileFormat:=xlNormal
Acest comentariu a fost redus la minimum de moderatorul de pe site
Chris. Puteți să o concatinați într-o celulă separată și apoi să faceți referire la acea celulă pentru a fi valoarea numelui fișierului.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, al meu se va salva doar ca cale și nume de fișier. Vreau doar ca numele fișierului referit din celulă să fie salvat. Poti, te rog, sa ma ajuti?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este destul de mișto... dar se pare că există o eroare pe care nu sunt sigur cum să o corectez. Folosesc acest lucru într-un șablon cu macro-activat. Deschid șablonul, fac modificări/actualizări, apăs pe F5 pentru a rula macro-ul... și... apare o casetă de dialog „Go To” în care se așteaptă să introduc o „referință”. Totuși, dacă apes ALT F11, apoi apăsați F5, noul fișier .xls este salvat așa cum era de așteptat. Trebuie să deschid întotdeauna modulul Visual Basic pentru a rula această procedură de „salvare”?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am un șablon pe care nu vreau să fie scris, astfel încât utilizatorul trebuie să salveze fișierul numit după data introdusă într-unul dintre câmpuri. Nu vreau ca utilizatorul să fie nevoit să deschidă instrumente, apoi să selecteze / ruleze macro. Ar putea la fel de bine să introducă numele fișierului.
Acest comentariu a fost redus la minimum de moderatorul de pe site
puteți adăuga =ACUM() ca parametru la numele fișierului din celulă înainte de a-l extrage în Macro (și, de asemenea, plasați un buton standard în colțul paginii, astfel încât angajatul să nu fie nevoit să deschidă niciun instrument
Acest comentariu a fost redus la minimum de moderatorul de pe site
Voi băieți sunteți salvatori. Mulțumiri!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Trebuie să salvez ca fișier .csv. cum aș schimba acest lucru pentru a-l salva ca fișier .csv? Private Sub filename_cellvalue() 'Update 20141112 Dim Path As String Dim filename As String Path = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs filename:=Cale și nume fișier & ".xls ", FileFormat:=xlNormal End Sub Vă mulțumim anticipat pentru ajutor!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cred ca am gresit ceva aici...

Îmi dă o eroare în linia Sheets ("shitname"). Select

Probabil că am greșit ceva când am numit „numele de rahat” ca celula K10

vreau să schimb foaia cu o altă foaie care se numește exact ca celula K10


' Gicsel Macro
'
' Comandă rapidă de la tastatură: Ctrl+Shift+C
'
Selectare.Copiere
Foi ("debagat").Select
Rânduri ("8:8").Selectați
ActiveSheet.Paste
Dim Path As String
Cale = „C:\cgxml\”
Dim numele fișierului ca șir
nume de fișier = Interval ("A8")
Dim shitname As String
shitname = Range("K10")
Sheets(„shitname”).Selectați
Application.CutCopyMode = Fals
ActiveWorkbook.SaveAs filename:=Cale și nume fișier & „.xml”, FileFormat:=xltxt, CreateBackup:=False
Foi de calcul(„TOTAL”).Selectați
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează grozav... Mulțumesc, dar trebuie să salvez ca PDF... Ai păreri?

mulțumesc

Chris
Acest comentariu a fost redus la minimum de moderatorul de pe site
la fel ca mai sus, dar înlocuiți ActiveWorkbook.SaveAs cu: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input fileenamne.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=Adevărat
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc pentru feedback, m-a ajutat foarte mult.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,
Ce ar trebui să adaug dacă vreau să salvez foaia de lucru activă, dar folosind valoarea celulei din foaia 1?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă rog ajutați... Am reușit să fac totul. Dar salvează documentele în Documentele mele în loc de serverul specificat...



Sub CommandButton privat 1_Click()
Dim Path As String
Dim FileName1 ca șir
Dim FileName2 ca șir
Dim FileName3 ca șir
Dim FileName4 ca șir
Dim FileName5 ca șir
Cale = „J:\Protection Services\Documents\Booysendal security”
FileName1 = Interval ("A2")
FileName2 = Interval ("B2")
FileName3 = Interval ("C2")
FileName4 = Interval ("D2")
FileName5 = Interval ("E2")
ActiveWorkbook.SaveAs Filename:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Adăugați o bară oblică inversă după securitate și înainte de citat... ...securitate\"
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ce se întâmplă dacă doriți să definiți numele fișierului, dar aveți opțiunea de a alege calea fișierului de fiecare dată când salvați?

De asemenea, puteți specifica mai multe celule pentru numele fișierului. Celulele sunt, de asemenea, îmbinate.

Salvați pe căi de fișiere diferite de fiecare dată

Utilizați mai multe celule pentru numele fișierului
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ok, așa că am reușit să funcționeze bine folosind un buton în foaie. Acum aș dori să salveze în mod normal după salvarea inițială ca. Se poate face asta? Folosești același buton de salvare?
Mulțumesc Bruce
Acest comentariu a fost redus la minimum de moderatorul de pe site
cum să creați o macrocomandă pentru a salva mai multe foi ca și valorile celulelor lor ca nume de fișiere
Multumesc,
Rajiv
Acest comentariu a fost redus la minimum de moderatorul de pe site
salutare tuturor!

Cum se poate salva intrarea repetitivă în aceleași celule, în alte celule, cu o macrocomandă?

În foaia1, am introdus date în A1, B1, C1, de n ori într-o zi. În sheet2, trebuie să salvez toate aceste înregistrări, în A2, B2, C2, A3, B3, C3, etc. Tnx!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut prieteni,
Am o problemă și m-aș bucura dacă există cineva care să mă ajute
Am un fișier pe unitatea „F” și folderul „ABS” - numele meu de fișier este „Listdata”
Într-un fișier Excel de pe desktop vreau ca celulele (4,4) să recupereze date din foaia „ABS” (1) și celula (2,2)
Codul de mai jos
Sub Macro1()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
End Sub
dar nu functioneaza corect
Mulțumesc prieteni
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Încerc să folosesc acest cod, dar când încerc să execut, primesc o eroare de rulare 1004 și evidențiază rândul 7 ca nevalid: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
Cum pot rezolva asta? Folosesc Office 365
Acest comentariu a fost redus la minimum de moderatorul de pe site
Se a célula de referință estiver em uma outra planilha já deschisă? Como faço?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut. Sunt foarte încântat că ar putea funcționa, dar pentru mine se spune „Eroare de rulare de bază. Procedura de suspin sau procedura de funcție nu este definită”. și săgeata care indică linia 6. Ce ar trebui să fac?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am un buton de control pentru salvarea ca PDF cu un nume specific într-o anumită locație care funcționează deja, dar vreau să modific codul, deoarece numele fișierului este numele foii active plus valoarea unei anumite celule dintr-o altă foaie. Cum să fac asta? Iată ce am pentru a salva ca PDF:


Sub CommandButton privat 1_Click()
Application.ScreenUpdating = Fals
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
filename:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = False
Application.ScreenUpdating = Adevărat
End Sub

Mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Poate cineva să ajute cu o soluție, am reușit să obțin rezultatul corect dacă celula nu este goală

Private Sub Saveas()

Dim calea ca șir

Dim filename1 ca șir



cale = "C:\Utilizator\Compwork\"



filename1 = cale & Interval("G4") & " " & "-" & " " & Interval ("G6") & " " & "-" & " " & Interval ("H7") & " " & "VTError "

Application.DisplayAlerts = Fals

ActiveWorkbook.Saveas nume de fișier1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets(„raport”).ExportAsFixedFormat Type:=x1typePDF, Filename:=filename1

Application.DisplayAlerts = Adevărat

ActiveWorkbook.Închide



End Sub



Cu toate acestea, problema mea este că aș dori să salvez un nume de fișier fără a lăsa un spațiu dacă valoarea celulei este NULL, de exemplu, dacă valoarea G6 este goală, atunci îmi place să iasă „G4-H7 VTError”.
Există vreo modalitate de a aborda asta?


Multumesc.
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL