Ik wil met een macro een bestand opslaan in een bepaalde map op basis van een celwaarde.
Ik heb al onderstaande code, maar daarbij geef ik zelf in de macro aan waar het wordt opgeslagen, met als naam de inhoud van cel B4.
Het is de bedoeling dat het bestand met deze naam (cel B4) in een submap wordt opgeslagen met de naam die staat in cel B5. Als deze map nog niet bestaat, moet deze automatisch worden aangemaakt, maar kij kan dus al wel bestaan.
Deze code zit verwerkt aan het eind van een groter macro, en de laatste stap daarbij moet zijn dat hij opslaat in de submap.
Dat ik de vraag krijg of ik wil opslaan zonder macro's is niet erg; het doelbestand hoeft deze niet te bevatten. Ik kopieer hiermee namelijk een deel van de data uit een origineel document en dat moet apart opgeslagen worden om extern te versturen.
Alvast bedankt!
Rob
Ik heb al onderstaande code, maar daarbij geef ik zelf in de macro aan waar het wordt opgeslagen, met als naam de inhoud van cel B4.
Het is de bedoeling dat het bestand met deze naam (cel B4) in een submap wordt opgeslagen met de naam die staat in cel B5. Als deze map nog niet bestaat, moet deze automatisch worden aangemaakt, maar kij kan dus al wel bestaan.
Code:
Sub SlaOp()
Dim strFileName As String
strFileName = Range("B4").Value
ActiveWorkbook.SaveAs Filename:="N:\Projecten\Begroting\" & strFileName & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Deze code zit verwerkt aan het eind van een groter macro, en de laatste stap daarbij moet zijn dat hij opslaat in de submap.
Dat ik de vraag krijg of ik wil opslaan zonder macro's is niet erg; het doelbestand hoeft deze niet te bevatten. Ik kopieer hiermee namelijk een deel van de data uit een origineel document en dat moet apart opgeslagen worden om extern te versturen.
Alvast bedankt!
Rob