Een bestand op programmeerniveau opslaan op een netwerkstation in Excel

  • Artikel
  • Van toepassing op:
    Microsoft Excel

Samenvatting

In Microsoft Excel kunt u een bestand opslaan op elk station waarop u schrijf- en verwijderbevoegdheden hebt. Bovendien kunt u een Microsoft Visual Basic for Applications-macro gebruiken om de actieve werkmap op te slaan en een variabele voor de bestandsnaam te gebruiken. U kunt variabelen gebruiken uit de ActiveWorkbook.Nameproperty, uit invoervakgegevens of uit een celverwijzing.

Opmerking

Als u het volledige pad voor de bestandsnaam gebruikt, weet Microsoft Excel precies waar het bestand moet worden opgeslagen. Als het pad niet wordt opgegeven, slaat Microsoft Excel het bestand op in de huidige active directory of map.

Meer informatie

Microsoft verstrekt programmeervoorbeelden alleen ter illustratie, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal, alsmede met de hulpprogramma's waarmee procedures worden gemaakt en waarmee fouten in procedures worden opgespoord. U kunt desgewenst contact opnemen met Microsoft Product Support Services voor uitleg over de functie van een bepaalde procedure. Microsoft Product Support Services is echter niet bereid de voorbeelden aan te passen om extra functies toe te voegen of om procedures te maken die aan uw specifieke eisen voldoen.

Voorbeeldmacro 1

Gebruik de volgende macro om de actieve werkmap met een variabele op te slaan in een opgegeven pad:

   Sub SaveWithVariable()
       Dim MyFile As String

       MyFile = ActiveWorkbook.Name
       ' Do not display the message about overwriting the existing file.
       Application.DisplayAlerts = False
       ' Save the active workbook with the name of the
       ' active workbook. Save it on the E drive to a folder called
       ' "User" with a subfolder called "JoeDoe."
       ActiveWorkbook.SaveAs Filename:="E:\User\JoeDoe\" & MyFile
       ' Close the workbook by using the following.
       ActiveWorkbook.Close
   End Sub

Voorbeeldmacro 2

Gebruik een bestandsnaam die is opgeslagen in een cel en sla het bestand op de netwerkserver op. Gebruik hiervoor de volgende procedure:

   Sub SaveWithVariableFromCell()
       Dim SaveName As String
       SaveName = ActiveSheet.Range("A1").Text
       ActiveWorkbook.SaveAs Filename:="E:\User\JoeDoe\" & _
           SaveName & ".xls"
   End Sub