Hallo,
ich habe ein Makro für eine Excel-Datei geschrieben, die als Inhaltstyp in eine SharePoint-Bibliothek geladen wird. Dieses Makro soll u.a. bewirken, dass eine neue Excel-Datei erstellt wird und diese unter einem vorgegebenen Namen ohne Makro in die Bibliothek gespeichert wird.
Wenn ich einen konkreten Pfad angebe, funktioniert das auch alles prima. Jedoch soll der Pfad flexibel sein, damit die Datei in verschiedenen Bibliotheken eingesetzt werden kann ohne jedes Mal den Pfad anpassen zu müssen.
Alles was ich bisher versucht habe, der Variablen "path" zuzuweisen (ActiveWorkbook.path, Application.DefaultFilePath etc...), hat nicht funktioniert.
Problem ist anscheinend, dass die Excel-Datei als Inhaltstyp nicht in der Bibliothek gespeichert wird, sondern irgendwie irgendwo im Hintergrund des SharePoint.
Kennt sich jemdand damit aus, hat jemand eine Idee wie man die Bibliothek flexibel als Speicherort ansprechen kann?
Hier die Code-Zeilen, um die es sich dreht:
...
strDateiname = Application.GetSaveAsFilename(InitialFileName:=path & "Anlegen" & "_" & ort & "_" & Format(Date, "dd") & "." & Format(Date, "mm") & "." & Format(Date, "yy") & "_" & temp & ".xlsx", _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xlsx), *.xlsx")
Application.DisplayAlerts = False
' Abfangen des Fehlers, wenn der Benutzer den Button "Abbrechen" drückt
If strDateiname <> "" And strDateiname <> "Falsch" Then
ActiveWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlOpenXMLWorkbook
Else
GoTo Fehler
End If
...
Vielen Dank für eure Hilfe!
Viele Grüße,
Andreas
|