• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

"Opslaan Als... " in VBA

Status
Niet open voor verdere reacties.
S

Scallebe

Gebruiker
Lid geworden
29 okt 2014
Berichten
535
Goede avond specialists...


Ik zou in vba een code willen schrijven om de gebruiker de excelsheet eerst op te laten slaan met een bestandsnaam naar zijn/haar keuze alvorens verder te werken.

Nadat de sheet enkele codes heeft afgewerkt laat ik met onderstaande code het venster "Opslaan als" openen.

Code: 
Application.GetSaveAsFilename

Het venster "Opslaan Als..." gaat open en wanneer ik dan de juiste folder selecteer waar ik het bestand wil opslaan en het bestand een naam geef wordt er echter niets opgeslagen.

Ik heb ook geen keuzemenu voor het type bestand. (met de verschillende extensies) ik krijg alleen maar "Alle bestanden" (Het moet opgeslagen worden als een *.xlsm)

Wie kan mij verder helpen...:rolleyes:

Greetz

Pascal
 
Wat je laat zien doet verder ook niets als je niet aangeeft wat er met de geselecteerde informatie moet gebeuren:
Code: 
fileSaveName = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xlsm), *.xlsm", Title:="Opslaan als")
If fileSaveName <> False Then
      MsgBox "Opslaan als " & fileSaveName
End If

Denk eraan bij het eigenlijke opslaan het bestandstype op 52 te zetten:
52 = xlOpenXMLWorkbookMacroEnabled (met of zonder macro's in 2007-2016, xlsm)
Code: 
ActiveWorkbook.SaveAs fileSaveName, FileFormat:=52
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan