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

Hvordan gemmes Excel-fil med celleværdi?

Har du nogensinde tænkt dig at gemme Excel-filen baseret på et celleindhold, når du bruger en projektmappe? For eksempel har du "Salgspris" i celle A1, og du vil gerne gemme projektmappen som navnet Salgspris. Selvfølgelig kan du skrive navnet i dialogboksen Gem som og derefter gemme det. Men dette vil være en ineffektiv metode i din mængde arbejde. I dag vil jeg tale om et hurtigt trick til at løse det.

Gem Excel-fil med specifik celleværdi ved hjælp af VBA-kode

Fanen Office Aktiver redigering og browsing med faner i Office, og gør dit arbejde meget lettere ...
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
  • Genbrug alt: Tilføj de mest anvendte eller komplekse formler, diagrammer og alt andet til dine favoritter, og genbrug dem hurtigt i fremtiden.
  • Mere end 20 tekstfunktioner: Uddrag nummer fra tekststreng; Uddrag eller fjern en del af teksterne; Konverter tal og valutaer til engelske ord.
  • Flet værktøjer: Flere arbejdsbøger og ark til én; Flet flere celler / rækker / kolonner uden at miste data; Flet duplikatrækker og sum.
  • Opdel værktøjer: Opdel data i flere ark baseret på værdi; Én projektmappe til flere Excel-, PDF- eller CSV-filer; En kolonne til flere kolonner.
  • Indsæt spring Skjulte / filtrerede rækker; Tæl og sum af baggrundsfarve; Send personaliserede e-mails til flere modtagere i bulk.
  • Superfilter: Opret avancerede filterskemaer og anvend dem på alle ark; Sort efter uge, dag, hyppighed og mere; filtre med fed, formler, kommentar ...
  • Mere end 300 kraftfulde funktioner; Arbejder med Office 2007-2021 og 365; Understøtter alle sprog; Nem implementering i din virksomhed eller organisation.

pil blå højre boble Gem Excel-fil med specifik celleværdi ved hjælp af VBA-kode

Følgende VBA-kode kan hjælpe dig med at gemme din projektmappe med en specificeret celleværdi. Gør som følger:

1. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Gem Excel-fil med en bestemt celleværdi

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. Og tryk derefter på F5 nøgle til at udføre koden, og din projektmappe er blevet navngivet som celleindholdet i celle A1. Se skærmbillede:

doc-gem-med-celle-værdi-1

Bemærkninger:

1. Du kan angive en hvilken som helst celleværdi som filnavnet ved bare at ændre A1 til anden cellehenvisning i ovenstående kode.

2. Din aktive projektmappe gemmes i mappen med C: \ Brugere \ dt \ Desktop \ mine oplysninger \ (det sidste skråstreg skal forblive, når du indsætter din placering til i stedet for den) placering, du kan ændre stien til dit behov.


Relaterede artikler:

Hvordan gemmes filen med dato og klokkeslæt i Excel?

Hvordan vises filsti i titellinjen eller værktøjslinjen i Excel?


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (33)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
modul gemmer ikke i .XlsX; tror det har noget med linje 7 at gøre;; ".xls", Filformat:=xlNormal; Også hvordan kan jeg ændre for at tage værdien fra 3 forskellige celler sammenkædet? for eksempel: fornavn, efternavn, dato; i linje 6 i koden?
Denne kommentar blev minimeret af moderatoren på webstedet
Dim filnavn som streng
Dim filnavn1 som streng
Dim filnavn2 som streng

Sti = "C:\Users\dt\Desktop\mine oplysninger\"
filnavn = Range("A1")
filnavn1 = Område("A2")
filnavn2 = Område("A3")
ActiveWorkbook.SaveAs filnavn:=Sti & filnavn & "-" & filnavn1 & "-" & filnavn2 ".xls", Filformat:=xlNormal
Denne kommentar blev minimeret af moderatoren på webstedet
Chris. Du kan sammenkæde det i en separat celle og derefter henvise til den celle som din filnavnsværdi.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Min vil kun gemme som stien og filnavnet. Jeg ønsker kun at gemme filnavnet fra cellen. Kan du hjælpe mig?
Denne kommentar blev minimeret af moderatoren på webstedet
Det her er ret fedt... men der ser ud til at være en fejl, som jeg ikke ved, hvordan jeg skal rette. Jeg bruger dette i en makroaktiveret skabelon. Jeg åbner skabelonen, jeg foretager ændringer/opdateringer, jeg trykker på F5 for at køre makroen... og... en "Gå til" dialogboks dukker op og forventer, at jeg indtaster en "reference". Men hvis jeg trykker ALT F11, og SÅ tryk F5, den nye .xls-fil gemmes som forventet. Skal jeg altid åbne Visual Basic-modulet for at køre denne "gem"-procedure?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har en skabelon, som jeg ikke ønsker at blive skrevet over, så brugeren er forpligtet til at gemme filen navngivet efter dato indtastet i et af felterne. Jeg ønsker ikke, at brugeren skal åbne værktøjer og derefter vælge / køre makro. De kan lige så godt indtaste filnavnet.
Denne kommentar blev minimeret af moderatoren på webstedet
du kan tilføje =NOW() som en parameter til dit filnavn i cellen, før du udpakker det i makroen (og også placere en standardknap i hjørnet af siden, så den ansatte ikke skal åbne nogen værktøjer
Denne kommentar blev minimeret af moderatoren på webstedet
I er livreddere. Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg skal gemme som en .csv-fil. hvordan ville jeg ændre dette for at få det til at gemme som en .csv-fil? Private Sub filename_cellvalue() 'Opdater 20141112 Dim Path As String Dim filnavn As String Path = "C:\Doorlister\import\DoorJob\" filnavn = Range("AC2") ActiveWorkbook.SaveAs filnavn:=Sti & filnavn & ".xls ", FileFormat:=xlNormal End Sub På forhånd tak for din hjælp!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg tror jeg gjorde noget forkert herinde...

Det giver mig en fejl i linjen Sheets ("shitname"). Vælg

Sandsynligvis gjorde jeg noget forkert, da jeg navngav "shitname" som cellen K10

Jeg vil ændre arket til et andet ark, der hedder præcis som cellen K10


' gicsel Makro
'
' Tastaturgenvej: Ctrl+Shift+C
'
Selection.Copy
Sheets ("debagat"). Vælg
Rows("8:8"). Vælg
ActiveSheet.Paste
Dim sti som streng
Sti = "C:\cgxml\"
Dim filnavn som streng
filnavn = Range("A8")
Dim shitname As String
shitname = Range("K10")
Sheets("shitname"). Vælg
Application.CutCopyMode = False
ActiveWorkbook.SaveAs filnavn:=Sti & filnavn & ".xml", FileFormat:=xltxt, CreateBackup:=False
Sheets ("TOTAL"). Vælg
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Dette fungerer godt... Tak, men jeg skal gemme som PDF... Nogen tanker?

Tak

Chris
Denne kommentar blev minimeret af moderatoren på webstedet
samme som ovenfor, men erstat ActiveWorkbook.SaveAs med: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filnavn:= _"C:\input filnavn.pdf", Kvalitet:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=Sandt
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for din feedback, hjalp mig meget.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Hvad skal jeg tilføje, hvis jeg ville gemme det aktive regneark, men bruge ark 1-celleværdien?
Denne kommentar blev minimeret af moderatoren på webstedet
Please hjælp... Jeg har formået at gøre alt. Men det gemmer dokumenterne i Mine dokumenter i stedet for den angivne server...



Privat Sub CommandButton1_Click ()
Dim sti som streng
Dim filnavn1 som streng
Dim filnavn2 som streng
Dim filnavn3 som streng
Dim filnavn4 som streng
Dim filnavn5 som streng
Sti = "J:\Protection Services\Documents\Booysendal security"
Filnavn1 = Område("A2")
Filnavn2 = Område("B2")
Filnavn3 = Område("C2")
Filnavn4 = Område("D2")
Filnavn5 = Område("E2")
ActiveWorkbook.SaveAs Filnavn:=Filnavn1 & "-" & Filnavn2 & "-" & Filnavn3 & "-" & Filnavn4 & "-" & Filnavn5 & ".xls", Filformat:=xlNormal
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Tilføj en omvendt skråstreg efter sikkerhed og før citatet... ...sikkerhed\"
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad hvis du vil, du bare vil definere filnavnet, men har mulighed for at vælge filstien, hver gang du gemmer?

Du kan også angive flere celler til filnavnet. Cellerne flettes også sammen.

Gem til forskellige filstier hver gang

Brug flere celler til filnavnet
Denne kommentar blev minimeret af moderatoren på webstedet
Ok, så jeg fik det til at fungere godt ved at bruge en i ark-knap. Nu vil jeg gerne have, at den bare gemmer normalt efter den første lagring som. Kan dette lade sig gøre? Bruger du den samme gem-knap?
Tak Bruce
Denne kommentar blev minimeret af moderatoren på webstedet
hvordan man opretter en makro for at gemme flere ark som med deres celleværdier som filnavne
Tak,
Rajiv
Denne kommentar blev minimeret af moderatoren på webstedet
Hej alle!

Hvordan kan man gemme gentagne input i de samme celler, i andre celler, med en makro?

I ark1 indtaster jeg data i A1, B1, C1, n gange på en dag. I ark2 skal jeg gemme alle disse poster i A2, B2, C2, A3, B3, C3 osv. Tnx!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej venner,
Jeg har et problem og ville blive glad hvis der er nogen der kan hjælpe mig
Jeg har en fil på drev "F" og mappen "ABS" - mit filnavn er "Listdata"
I en Excel-fil på mit skrivebord vil jeg have celler(4,4) til at hente data fra "ABS" ark(1) og celle (2,2)
Nedenstående kode
Sub Macro1 ()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listedata & ".xlsx" & Sheets(1).Cells(2, 2).Value
End Sub
men det virker ikke korrekt
Tak venner
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg prøver at bruge denne kode, men når jeg prøver at udføre, får jeg en runtime 1004 fejl, og den fremhæver række 7 som ugyldig: ActiveWorkbook.SaveAs filnavn:=Sti & filnavn & ".xls", FileFormat:=xlNormal
Hvordan kan jeg løse dette? Jeg bruger office 365
Denne kommentar blev minimeret af moderatoren på webstedet
Se en célula de referencia estiver em uma outra planilha já aberta? Como faço?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej. Jeg er meget spændt på, at det kunne fungere, men for mig er det at sige "BASIC runtime error. Sob-procedure eller funktionsprocedure ikke defineret." og pil, der angiver linje 6. Hvad skal jeg gøre?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har en kontrolknap til at gemme som PDF med et specifikt navn til en bestemt placering, der allerede fungerer, men jeg vil ændre koden, da filnavnet er navnet på det aktive ark plus værdien af ​​en bestemt celle fra et andet ark. Hvordan gør jeg det? Dette er hvad jeg har til at gemme som PDF:


Privat Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
filnavn:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = Falsk
Application.ScreenUpdating = True
End Sub

Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
kan nogen hjælpe med en løsning, jeg har formået at få output korrekt, hvis cellen ikke er tom

Private Sub Saveas()

Dim sti som streng

Dim filnavn1 som streng



sti = "C:\Bruger\Compwork\"



filnavn1 = sti & Range("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTError "

Application.DisplayAlerts = False

ActiveWorkbook.Saveas filnavn1, FileFormat:=52, CreateBackup:=False

ThisWorkbook.Worksheets("rapport").ExportAsFixedFormat Type:=x1typePDF, Filnavn:=filnavn1

Application.DisplayAlerts = True

ActiveWorkbook.Close



End Sub



Men mit problem er, at jeg gerne vil gemme et filnavn uden at efterlade et mellemrum, hvis celleværdien for eksempel er NULL, hvis G6-værdien er tom, vil jeg gerne have outputtet "G4-H7 VTError".
Er der en måde at gribe dette an på?


Tak.
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL