Hoe een Excel-bestand op te slaan met een celwaarde?

Wanneer je een werkboek gebruikt, heb je ooit overwogen om het Excel-bestand op te slaan gebaseerd op de inhoud van een cel? Bijvoorbeeld, als je “Verkoopprijs” in cel A1 hebt staan, en je wilt het werkboek opslaan onder de naam Verkoopprijs. Natuurlijk kun je de naam handmatig invoeren in het dialoogvenster Opslaan Als en het dan opslaan. Maar dit zal een inefficiënte methode zijn bij een groot aantal bestanden. Vandaag zal ik een snelle truc bespreken om dit probleem op te lossen.

Excel-bestand opslaan met een specifieke celwaarde door middel van VBA-code

Excel-bestand opslaan met een specifieke celwaarde door middel van VBA-code

De volgende VBA-code kan je helpen om je werkboek op te slaan met een bepaalde celwaarde. Volg hiervoor de volgende stappen:

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

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Excel-bestand opslaan met een specifieke celwaarde

Private Sub filename_cellvalue()
'Updateby Extendoffice
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. Druk vervolgens op de F5-toets om de code uit te voeren, en je werkboek is vernoemd naar de celinhoud van cel A1. Zie screenshot:

Opmerkingen:

1. Je kunt elke celwaarde instellen als de bestandsnaam door simpelweg A1 aan te passen naar een andere celverwijzing in bovenstaande code.

2. Je actieve werkboek wordt opgeslagen in de map C:\Users\dt\Desktop\my information\ (de laatste slash moet blijven staan wanneer je de locatie vervangt). Je kunt het pad aanpassen naar jouw behoefte.

Gerelateerde artikelen:

Hoe een bestand met datum en tijd op te slaan in Excel?

Hoe het bestandspad weer te geven in de titelbalk of werkbalk in Excel?