SharedWorkspaceFiles.Add-Methode (Office)
Fügt der Dokumentbibliothek in einem freigegebenen Arbeitsbereich eine Datei hinzu. Gibt ein SharedWorkspaceFile -Objekt zurück.
Hinweis
Ab Microsoft Office 2010 ist dieses Objekt oder Element veraltet und sollte nicht verwendet werden.
Syntax
Ausdruck. Add (FileName, ParentFolder, OverwriteIfFileAlreadyExists, KeepInSync)
Ausdruck: Erforderlich. Eine Variable, die ein SharedWorkspaceFiles -Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
FileName | Erforderlich | String | Der Pfad und Dateiname der Datei, die dem aktuellen freigegebenen Arbeitsbereich hinzugefügt werden soll. |
ParentFolder | Optional | SharedWorkspaceFolder | Der Unterordner, in dem die Datei platziert werden soll, wenn sie nicht im Hauptordner der Dokumentbibliothek im freigegebenen Arbeitsbereich platziert werden soll. Fügen Sie die Datei dem Hauptordner der Dokumentbibliothek hinzu, indem Sie dieses optionale Argument leer lassen. |
OverwriteIfFileAlreadyExists | Optional | Boolean | True, wenn eine vorhandene Datei mit demselben Namen zu überschreiben. Standard ist False. |
KeepInSync | Optional | Boolean | True, wenn die lokale Kopie des Dokuments zu speichern, die mit der Kopie im freigegebenen Arbeitsbereich synchronisiert werden. Der Standardwert ist False. |
Beispiel
Im folgenden Beispiel wird der Dateienauflistung des freigegebenen Arbeitsbereichs eine neue Datei hinzugefügt.
Dim swsfile As Office.SharedWorkspaceFile
Set swsfile = ActiveWorkbook.SharedWorkspace.Files.Add( _
"C:\MyWorkbook.xls", _
, True, True)
MsgBox "New file URL: " & swsfile.URL, _
vbInformation + vbOKOnly, _
"New File in Shared Workspace Files"
Set swsfile = Nothing
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für