Office: Excel nach Sharepoint

Hallo zusammen *Smilie ,

ich möchte eine Exceltabelle automatisch nach Sharepoint übertragen.
Dazu benutzte ich folgenden Befehle:
ActiveWorkbook.SaveAs Filename:="http://spdms/statistik/Auswertung " & Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mmmm yyyy") & ".xls", FileFormat:= _
xlNormal, ReadOnlyRecommended:=False _
ActiveWorkbook.CheckIn Comments:="Auswertung " & Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mmmm yyyy")

Es funktioniert auch soweit ganz gut, allerdings nur wenn die Datei im Sharepoint noch nicht vorhanden ist.
Wenn die Datei schon existiert, kriege ich eine Fehlermeldung*mad.gif* .
Was muss ich eintragen, damit eine schon vorhanden Datei einfach überschrieben wird?
Schon mal Danke im voraus.

Gruß
Hugo

:)

 

Hallo Hugo,

löse das Problem doch, indem Du die Datei vorher löschst, falls diese existiert:

PHP:

         If Dir(Pfad & Dateiname) <> "" Then
Kill Pfad & Dateiname
End If
While Dir(Pfad & Dateiname) <> ""
Wend


 

Hallo Ingo,

danke für deinen Tipp, daran hatte ich garnicht gedacht.

Allerdings funktioniert er nicht. Ich bekomme immer die Fehlermeldung:
Laufzeitfehler 52: Dateiname oder- nummer falsch*eek.gif*

Scheinbar hat er mit dem Dateinamensformat ein Problem.

Irgendwie eine andere Lösung ???

Danke trotzdem schonmal.

Hugo

 

Hallo Hugo,

dann muss irgendetwas mit dem Aufbau Deines Dateinamens (bzw. Pfades) nicht stimmen.
Versuch es doch mal so (und überprüfe ob dies wirklich der Pfad ist):

PHP:

         Pfad = "http://spdms/statistik/"
Dateiname = "Auswertung " & Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mmmm yyyy") & ".xls"
If Dir(Pfad & Dateiname) <> "" Then
Kill Pfad & Dateiname
End If
While Dir(Pfad & Dateiname) <> ""
Wend


 

Hallo Ingo,

habe jetzt beide Varianten probiert. Immer der selbe Fehler.
Wenn ich so ins Sharepoint gehe, die Datei markiere und per Hand lösche ist das alles kein Problem, aber per Kill-Befehl geht es nicht. Die Pfad stimmen alle, habe diese sicherheitshalber auch einfach mal mit Copy+Paste von Save- bzw. CheckIn-Befehl genommen. Ich dachte ja eher auch das es vielleicht einen Parameter beim CheckIn-Befehl gibt. *frown.gif*

Vielleicht gibt es ja eine andere Lösung.

Danke trotzdem.
Im äußersten Notfall dann halt nicht zweimal das Programm ausführen*Smilie
Aber man kennt ja die User *biggrin.gif*
Gruß
Hugo

 

Hallo Hugo,

das Programm Sharepoint kenne ich nicht, dachte aber, dass dies egal wäre.
Was mir nun aber auffällt ist, dass die zu löschende Datei bei Dir mit ".xls" endet, also keine Sharepoint-Datei, sondern eine Excel-Datei!
Das macht doch irgendwie keinen Sinn, dass Du im Sharepoint-Programm eine xls-Datei aufrufen und sogar löschen kannst.
Simmt da vielleicht etwas mit der Dateiendung nicht?
Ansonsten weiss ich auch keinen Rat mehr.

LG Ingo

 

Hallo Ingo,

Problem gelöst*Smilie , man muß vorher die Datei auschecken und dann wird sie beim einchecken einfach überschrieben.

Trotzdem Danke nochmals.

Hugo