Hoe een Excel-bestand met celwaarde opslaan?
Als u een werkmap gebruikt, heeft u er dan ooit aan gedacht om het Excel-bestand op te slaan op basis van een celinhoud? U hebt bijvoorbeeld "Uitverkoopprijs" in cel A1 en u wilt de werkmap opslaan als de naam Uitverkoopprijs. U kunt de naam natuurlijk 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 op met een specifieke celwaarde met behulp van VBA-code
Sla Excel-bestand op met een specifieke celwaarde met behulp van VBA-code
De volgende VBA-code kan u helpen om uw werkmap op te slaan met een opgegeven celwaarde, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: sla Excel-bestand op met een specifieke celwaarde
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 toets om de code uit te voeren, en uw werkmap heeft de naam gekregen als de celinhoud van cel A1. Zie screenshot:
Opmerkingen:
1. U kunt elke celwaarde specificeren als de bestandsnaam door de A1 naar een andere celverwijzing in de bovenstaande code te wijzigen.
2. Uw actieve werkmap wordt opgeslagen in de map van C: \ Users \ dt \ Desktop \ mijn gegevens \ (de laatste schuine streep moet blijven staan als u uw locatie in plaats van deze plakt) locatie, kunt u het pad naar uw behoefte wijzigen.
Gerelateerde artikelen:
Hoe een bestand met datum en tijd in Excel opslaan?
Hoe het bestandspad in de titelbalk of werkbalk in Excel te tonen?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!