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

Hur sparar man Excel-filer med cellvärde?

Har du någonsin funderat på att spara Excel-filen baserat på ett cellinnehåll när du använder en arbetsbok? Du har till exempel ”Försäljningspris” i cell A1 och du vill spara arbetsboken som namnet Försäljningspris. Naturligtvis kan du skriva namnet i dialogrutan Spara som och sedan spara det. Men detta kommer att vara en ineffektiv metod i ditt arbete. Idag ska jag prata om ett snabbt trick för att lösa det.

Spara Excel-fil med specifikt cellvärde med hjälp av VBA-kod

Fliken Office Aktiverar flikredigering och surfning i Office, och gör ditt arbete mycket enklare ...
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
  • Återanvänd allt: Lägg till de mest använda eller komplexa formlerna, diagrammen och allt annat till dina favoriter och återanvänd dem snabbt i framtiden.
  • Mer än 20 textfunktioner: Extrahera nummer från textsträng; Extrahera eller ta bort en del av texterna; Konvertera siffror och valutor till engelska ord.
  • Sammanfoga verktyg: Flera arbetsböcker och ark till en; Slå ihop flera celler / rader / kolumner utan att förlora data; Slå samman duplicerade rader och summa.
  • Dela verktyg: Dela data i flera ark baserat på värde; En arbetsbok för flera Excel-, PDF- eller CSV-filer; En kolumn till flera kolumner.
  • Klistra över Dolda / filtrerade rader; Räkna och summa av bakgrundsfärg; Skicka personliga e-postmeddelanden till flera mottagare i bulk.
  • Superfilter: Skapa avancerade filterscheman och tillämpas på alla ark; Svart per vecka, dag, frekvens och mer; Filter med fetstil, formler, kommentarer ...
  • Mer än 300 kraftfulla funktioner; Fungerar med Office 2007-2021 och 365; Stöder alla språk; Enkel implementering i ditt företag eller organisation.

pil blå höger bubbla Spara Excel-fil med specifikt cellvärde med hjälp av VBA-kod

Följande VBA-kod kan hjälpa dig att spara din arbetsbok med ett angivet cellvärde, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Spara Excel-fil med specifikt cellvärde

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. Och tryck sedan på F5 nyckel för att köra koden och din arbetsbok har fått namnet på cellinnehållet i cell A1. Se skärmdump:

doc-spara-med-cell-värde-1

Anmärkningar:

1. Du kan ange valfritt cellvärde som filnamn genom att bara ändra A1 till annan cellreferens i ovanstående kod.

2. Din aktiva arbetsbok sparas i mappen C: \ Användare \ dt \ Skrivbord \ min information \ (den sista snedstrecket måste vara kvar när du klistrar in din plats till istället för den) plats, du kan ändra sökvägen efter dina behov.


Relaterade artiklar:

Hur sparar jag filen med datum och tid i Excel?

Hur visar jag filsökväg i namnlisten eller verktygsfältet i Excel?


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (33)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
modulen sparar inte i .XlsX; tror att det har med rad 7 att göra;; ".xls", Filformat:=xlNormal; Också hur kan jag ändra för att ta värdet från 3 olika celler sammanlänkade? till exempel: förnamn, efternamn, datum; på rad 6 i koden?
Denna kommentar minimerades av moderatoren på webbplatsen
Dim filnamn som sträng
Dim filnamn1 som sträng
Dim filnamn2 som sträng

Sökväg = "C:\Users\dt\Desktop\min information\"
filnamn = Range("A1")
filnamn1 = Range("A2")
filnamn2 = Range("A3")
ActiveWorkbook.SaveAs filnamn:=Sökväg & filnamn & "-" & filnamn1 & "-" & filnamn2 ".xls", Filformat:=xlNormal
Denna kommentar minimerades av moderatoren på webbplatsen
Chris. Du kan sammanfoga den i en separat cell och sedan referera till den cellen som ditt filnamnsvärde.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Min sparas bara som sökväg och filnamn. Jag vill bara att filnamnet som refereras från cellen ska sparas. Kan du vara snäll och hjälpa mig?
Denna kommentar minimerades av moderatoren på webbplatsen
Det här är ganska coolt... men det verkar finnas en bugg som jag inte vet hur jag ska rätta till. Jag använder detta i en makroaktiverad mall. Jag öppnar mallen, jag gör ändringar/uppdateringar, jag trycker på F5 för att köra makrot... och... en "Gå till"-dialogruta dyker upp och förväntar mig att jag ska knappa in en "referens". Men om jag trycker ALT F11, och tryck sedan på F5, den nya .xls-filen sparas som förväntat. Behöver jag alltid öppna Visual Basic-modulen för att köra denna "spara"-procedur?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har en mall som jag inte vill ska skrivas över så att användaren måste spara filen namngiven efter datum som anges i ett av fälten. Jag vill inte att användaren ska behöva öppna verktyg och sedan välja / köra makro. De kan lika gärna ange filnamnet.
Denna kommentar minimerades av moderatoren på webbplatsen
du kan lägga till =NOW() som en parameter till ditt filnamn i cellen innan du extraherar det i makrot (och även placera en standardknapp i hörnet på sidan så att den anställde inte behöver öppna några verktyg
Denna kommentar minimerades av moderatoren på webbplatsen
Ni är livräddare. Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Jag måste spara som en .csv-fil. hur skulle jag ändra detta så att det sparas som en .csv-fil? Private Sub filename_cellvalue() 'Update 20141112 Dim Path As String Dim filnamn As String Path = "C:\Doorlister\import\DoorJob\" filnamn = Range("AC2") ActiveWorkbook.SaveAs filnamn:=Sökväg & filnamn & ".xls ", FileFormat:=xlNormal End Sub Tack på förhand för din hjälp!
Denna kommentar minimerades av moderatoren på webbplatsen
Jag tror jag gjorde något fel här...

Det ger mig ett fel i raden Sheets("shitname"). Välj

Förmodligen gjorde jag något fel när jag döpte "shitname" som cellen K10

Jag vill byta ark till ett annat ark som heter precis som cellen K10


' gicsel makro
'
' Kortkommando: Ctrl+Skift+C
'
Selection.Copy
Sheets("debagat"). Välj
Rows("8:8"). Välj
ActiveSheet.Paste
Dim väg som sträng
Sökväg = "C:\cgxml\"
Dim filnamn som sträng
filnamn = Range("A8")
Dim shitname As String
shitname = Range("K10")
Sheets("shitname"). Välj
Application.CutCopyMode = False
ActiveWorkbook.SaveAs filnamn:=Sökväg & filnamn & ".xml", FileFormat:=xltxt, CreateBackup:=False
Sheets ("TOTAL"). Välj
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Det här fungerar utmärkt... Tack, men jag måste spara som PDF... Några tankar?

Tack

chris
Denna kommentar minimerades av moderatoren på webbplatsen
samma som ovan men ersätt ActiveWorkbook.SaveAs med: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=Sant
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för din feedback, hjälpte mig mycket.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Vad ska jag lägga till om jag vill spara det aktiva kalkylbladet men använder värdet för ark 1-cell?
Denna kommentar minimerades av moderatoren på webbplatsen
Snälla hjälp... Jag har lyckats göra allt. Men det sparar dokumenten i Mina dokument istället för den angivna servern...



Privat underkommando-knappen1_Click ()
Dim väg som sträng
Dim filnamn1 som sträng
Dim filnamn2 som sträng
Dim filnamn3 som sträng
Dim filnamn4 som sträng
Dim filnamn5 som sträng
Path = "J:\Protection Services\Documents\Booysendal security"
Filnamn1 = Range("A2")
Filnamn2 = Range("B2")
Filnamn3 = Range("C2")
Filnamn4 = Range("D2")
Filnamn5 = Range("E2")
ActiveWorkbook.SaveAs Filnamn:=Filnamn1 & "-" & Filnamn2 & "-" & Filnamn3 & "-" & Filnamn4 & "-" & Filnamn5 & ".xls", Filformat:=xlNormal
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Lägg till ett snedstreck efter säkerhet och före offerten... ...säkerhet\"
Denna kommentar minimerades av moderatoren på webbplatsen
Vad händer om du vill att du bara vill definiera filnamnet men har möjlighet att välja filsökväg varje gång du sparar?

Du kan också ange flera celler för filnamnet. Cellerna slås också samman.

Spara till olika filsökvägar varje gång

Använd flera celler för filnamnet
Denna kommentar minimerades av moderatoren på webbplatsen
Ok så jag fick det här att fungera bra med hjälp av en i ark-knapp. Nu skulle jag vilja att det bara sparas normalt efter den första spara som. Kan detta göras? Använder du samma sparaknapp?
Tack Bruce
Denna kommentar minimerades av moderatoren på webbplatsen
hur man skapar ett makro för att spara flera ark som med deras cellvärden som filnamn
Tack,
Rajiv
Denna kommentar minimerades av moderatoren på webbplatsen
Hej alla!

Hur kan man spara repetitiv inmatning i samma celler, i andra celler, med ett makro?

I ark1 matar jag in data i A1, B1, C1, n gånger på en dag. I ark2 måste jag spara alla dessa poster, i A2, B2, C2, A3, B3, C3, etc. Tnx!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej vänner,
Jag har ett problem och skulle vara glad om det finns någon som kan hjälpa mig
Jag har en fil på enhet "F" och mappen "ABS" - mitt filnamn är "Listdata"
I en Excel-fil på mitt skrivbord vill jag att celler(4,4) ska hämta data från "ABS"-ark(1) och cell (2,2)
Koden nedan
Sub Macro1 ()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
End Sub
men det fungerar inte korrekt
Tack vänner
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag försöker använda den här koden men när jag försöker köra får jag ett runtime 1004-fel och det markerar rad 7 som ogiltig: ActiveWorkbook.SaveAs filnamn:=Sökväg & filnamn & ".xls", FileFormat:=xlNormal
Hur kan jag lösa detta? Jag använder office 365
Denna kommentar minimerades av moderatoren på webbplatsen
Se a célula de referencia estiver em uma outra planilha já aberta? Como faço?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej. Jag är väldigt glad att det skulle kunna fungera men för mig säger det "BASIC runtime error. Sob-procedur eller funktionsprocedur inte definierad." och pil som indikerar linje 6. Vad ska jag göra?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har en kontrollknapp för att spara som PDF med ett specifikt namn till en specifik plats som redan fungerar, men jag vill ändra koden eftersom filnamnet är namnet på det aktiva arket plus värdet av en specifik cell från ett annat ark. Hur gör jag det? Det här är vad jag har för att spara som PDF:


Privat underkommando-knappen1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
filnamn:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = Falskt
Application.ScreenUpdating = True
End Sub

Tack!
Denna kommentar minimerades av moderatoren på webbplatsen
kan någon snälla hjälpa till med en lösning, jag har lyckats få utdata korrekt om cellen inte är tom

Private Sub Saveas()

Dim väg som sträng

Dim filnamn1 som sträng



sökväg = "C:\User\Compwork\"



filnamn1 = sökväg & Range("G4") & " " & "-" & " " & Range("G6") & " " & "-" & " " & Range("H7") & " " & "VTError "

Application.DisplayAlerts = False

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

ThisWorkbook.Worksheets("rapport").ExportAsFixedFormat Type:=x1typePDF, Filnamn:=filnamn1

Application.DisplayAlerts = Sant

ActiveWorkbook.Stäng



End Sub



Men mitt problem är att jag skulle vilja spara ett filnamn utan att lämna ett mellanslag om cellvärdet är NULL till exempel, om G6-värdet är tomt så gillar jag utmatningen "G4-H7 VTERror".
Finns det något sätt att närma sig detta?


Tack.
Det finns inga kommentarer här ännu
Ladda fler
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL