Programmgesteuertes Speichern einer Datei auf einem Netzlaufwerk in Excel

  • Artikel
  • Gilt für::
    Microsoft Excel

Zusammenfassung

In Microsoft Excel können Sie eine Datei auf einem beliebigen Laufwerk speichern, auf dem Sie Über Schreib- und Löschberechtigungen verfügen. Darüber hinaus können Sie ein Microsoft Visual Basic for Applications-Makro verwenden, um die aktive Arbeitsmappe zu speichern und eine Variable für den Dateinamen zu verwenden. Sie können Variablen aus ActiveWorkbook.Nameproperty, aus Eingabefelddaten oder aus einem Verweis einer Zelle verwenden.

Hinweis

Wenn Sie den vollständigen Pfad als Dateinamen verwenden, weiß Microsoft Excel genau, wo die Datei gespeichert werden soll. Wenn der Pfad nicht angegeben ist, speichert Microsoft Excel die Datei im derzeit aktiven Verzeichnis oder Ordner.

Weitere Informationen

Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Dies enthält, ohne Beschränkung, die stillschweigenden Garantien von Marktfähigkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel setzt voraus, dass Sie sich mit der Programmiersprache auskennen, die hier gezeigt wird, und mit den Tools, die zum Erzeugen von Verfahren und zur Fehlerbeseitigung daran benutzt werden. Die Microsoft Support-Spezialisten können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind.

Beispielmakro 1

Um die aktive Arbeitsmappe mit einer Variablen in einem angegebenen Pfad zu speichern, verwenden Sie das folgende Makro:

   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

Beispielmakro 2

Verwenden Sie einen Dateinamen, der in einer Zelle gespeichert ist, und speichern Sie die Datei auf dem Netzwerkserver. Hierzu verwenden Sie das folgende Makro:

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