Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een Excel-bestand met celwaarde op te slaan?

Wanneer u een werkboek gebruikt, heeft u er ooit aan gedacht om het Excel-bestand op te slaan op basis van een celinhoud? U hebt bijvoorbeeld de "Verkoopprijs" in cel A1 en u wilt de werkmap opslaan als de naam Verkoopprijs. Natuurlijk kunt u de naam in het dialoogvenster Opslaan als typen en vervolgens opslaan. Maar dit zal een inefficiënte methode zijn voor uw hoeveelheid werk. Vandaag zal ik het hebben over een snelle truc om het op te lossen.

Sla Excel-bestand met specifieke celwaarde op met behulp van VBA-code

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Sla Excel-bestand met specifieke celwaarde op met behulp van VBA-code


De volgende VBA-code kan u helpen bij het opslaan van uw werkmap met een opgegeven celwaarde, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de Module venster.

VBA-code: Excel-bestand met specifieke celwaarde opslaan

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. En druk vervolgens op F5 sleutel om de code uit te voeren, en uw werkmap is genoemd als de celinhoud van cel A1. Zie screenshot:

doc-save-met-cell-value-1

Opmerkingen:

1. U kunt elke celwaarde als bestandsnaam opgeven door de A1 te wijzigen in een andere celverwijzing in de bovenstaande code.

2. Uw actieve werkmap wordt opgeslagen in de map van C: \ Users \ dt \ Desktop \ mijn informatie \ (de laatste schuine streep moet blijven als u uw locatie in plaats van deze plakt) locatie, u kunt het pad naar uw behoefte wijzigen.


Gerelateerde artikelen:

Hoe een bestand met datum en tijd opslaan in Excel?

Hoe laat ik het bestandspad in de titelbalk of de werkbalk in Excel zien?


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Morena · 2 days ago
    I have a control button for saving as PDF with a specific name to a specific location already working, but I want to modify the code as the filename is the name of the active sheet plus the value of a specific cell from another sheet. How do I do that? This is what I have for saving as PDF:


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

    Thank you!
  • To post as a guest, your comment is unpublished.
    Izabela · 3 days ago
    Hi. I am very excited it could work but for me in it is saying "BASIC runtime error. Sob-procedure or function procedure not defined." and arrow indicating line 6. What should I do?
  • To post as a guest, your comment is unpublished.
    Bruna · 1 months ago
    Se a célula de referencia estiver em uma outra planilha já aberta? Como faço?
  • To post as a guest, your comment is unpublished.
    Tim · 6 months ago
    Hi, I am trying to use this code but when i try to execute I get a runtime 1004 error and it highlights row 7 as invalid: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
    How can I resolve this? Im using office 365
  • To post as a guest, your comment is unpublished.
    Ahmad · 8 months ago
    Hi friends,
    I have a problem and would be glad if there is someone to help me
    I have a file at drive "F" and folder "ABS" - my filename is "Listdata"
    In an Excel file on my desktop I want cells(4,4) to retieve data from "ABS" sheet(1) and cell (2,2)
    The below code
    Sub Macro1()
    activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
    End Sub
    but it does not work correctly
    Thanks Friends
  • To post as a guest, your comment is unpublished.
    radulus · 1 years ago
    hi all!

    How can save repetitive input in the same cells, in other cells, with a Macro?

    In sheet1, I input data in A1, B1, C1, for n-times in a day. In sheet2, i need save all this records, in A2, B2, C2, A3, B3, C3, etc. Tnx!
  • To post as a guest, your comment is unpublished.
    Rajiv · 1 years ago
    how to create a macro to save multiple sheets as with their cell values as file names
    Thanks,
    Rajiv
  • To post as a guest, your comment is unpublished.
    Bruce McIntyre · 1 years ago
    Ok so i got this working good using an in sheet button. Now i would like it to just save normally after the initial save as. Can this be done? Using the same save button?
    Thanks Bruce
  • To post as a guest, your comment is unpublished.
    Janice Burbage · 1 years ago
    What if you want to you just want to define the filename but have the option to pick the file path each time you save?

    Also can you specify multiple cells for the filename. The cells are merged also.

    Save to different file paths each time

    Use multiple cells for the filename
  • To post as a guest, your comment is unpublished.
    Stef · 1 years ago
    Please help... I've managed to do everything. But it saves the docs into My Documents instead of the specified server...



    Private Sub CommandButton1_Click()
    Dim Path As String
    Dim FileName1 As String
    Dim FileName2 As String
    Dim FileName3 As String
    Dim FileName4 As String
    Dim FileName5 As String
    Path = "J:\Protection Services\Documents\Booysendal security"
    FileName1 = Range("A2")
    FileName2 = Range("B2")
    FileName3 = Range("C2")
    FileName4 = Range("D2")
    FileName5 = Range("E2")
    ActiveWorkbook.SaveAs Filename:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
    End Sub
  • To post as a guest, your comment is unpublished.
    Keenan · 2 years ago
    Hi,
    What should i add if I wanted to save the active worksheet but using the sheet 1 cell value?
  • To post as a guest, your comment is unpublished.
    Chris · 2 years ago
    This works great... Thank you, but I need to save as a PDF... Any thoughts?

    Thanks

    Chris
    • To post as a guest, your comment is unpublished.
      Martin S · 2 years ago
      same as above but replace ActiveWorkbook.SaveAs with: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
      xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=True
  • To post as a guest, your comment is unpublished.
    Kelvin · 2 years ago
    I need to save as a .csv file.
    how would I change this to make it save as a .csv file?
    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:=Path & filename & ".xls", FileFormat:=xlNormal
    End Sub

    Thank you in advance for your help!
    • To post as a guest, your comment is unpublished.
      George · 1 years ago
      I think i did something wrong in here ...

      It gives me an error in line Sheets("shitname").Select

      Probably i did something wrong when i named the "shitname" like the cell K10

      i want to change the sheet to another sheet that is called exactly like the cell K10


      ' gicsel Macro
      '
      ' Keyboard Shortcut: Ctrl+Shift+C
      '
      Selection.Copy
      Sheets("debagat").Select
      Rows("8:8").Select
      ActiveSheet.Paste
      Dim Path As String
      Path = "C:\cgxml\"
      Dim filename As String
      filename = Range("A8")
      Dim shitname As String
      shitname = Range("K10")
      Sheets("shitname").Select
      Application.CutCopyMode = False
      ActiveWorkbook.SaveAs filename:=Path & filename & ".xml", FileFormat:=xltxt, CreateBackup:=False
      Sheets("TOTAL").Select
      ActiveCell.Offset(1, 0).EntireRow.Select
      End Sub
  • To post as a guest, your comment is unpublished.
    Ionel D · 2 years ago
    You guys are lifesavers. Thanks!
  • To post as a guest, your comment is unpublished.
    Ken Gaines · 3 years ago
    I have a template that I don't want to be written over so that the user is required to save the file named by date entered into one of the fields.
    I don't want the user to have to open tools then select / run macro. They might just as well enter the filename.
    • To post as a guest, your comment is unpublished.
      Martin S · 2 years ago
      you can add the =NOW() as a parameter to your filename in the cell before you extract it in the Macro (and also place a standard button in the corner of the page so that the emplyee wont have to open any tools
  • To post as a guest, your comment is unpublished.
    Greg · 3 years ago
    This is pretty cool... but there seems to be a bug that I'm not sure how to correct. I'm using this in a macro-enabled template.
    I open the template,
    I make changes/updates,
    I hit F5 to run the macro... and... a "Go To" dialog box pops up expecting me to key a "reference" in.

    However, if I hit ALT F11, and THEN hit F5, the new .xls file is saved as expected.

    Do I always need to open up the Visual Basic module to run this "save" procedure?
  • To post as a guest, your comment is unpublished.
    Alana · 3 years ago
    Hi,

    Mine will only save as the path and file name. I am only wanting the file name referenced from the cell to save only. Can you please help me?
  • To post as a guest, your comment is unpublished.
    Dan · 3 years ago
    Chris.
    You can concatinate it in a separate cell and then refernce that cell to be your file name value.
  • To post as a guest, your comment is unpublished.
    Chris · 4 years ago
    module does not save in .XlsX ;

    think it has something to do with line 7;; ".xls", FileFormat:=xlNormal;

    Also how can I modify to take the value from 3 different cells concatenated?
    for instance: first name , last name , date; in line 6 of the code?