Thema Datum  Von Nutzer Rating
Antwort
19.05.2023 10:34:33 Bernd
NotSolved
13.07.2023 14:27:10 Bernd
NotSolved
13.07.2023 21:49:04 ralf_b
NotSolved
17.07.2023 16:50:54 Bernd
Solved
Rot Datei im Sharepoint in neuem Ordner speichern
18.07.2023 11:27:10 Gast6113
Solved

Ansicht des Beitrags:
Von:
Gast6113
Datum:
18.07.2023 11:27:10
Views:
338
Rating: Antwort:
 Nein
Thema:
Datei im Sharepoint in neuem Ordner speichern

Also ich habe jetzt zwei Wege gefunden, damit umzugehen.


1. Eine Kopie vor der Bearbeitung erstellen.
Da sich damit automatisch die Datei umbenennt und die Original Datei "schließt, weg ist" (durch die Umbenennung) muss sie erneut geöffnet werden.
Am Ende des Makros schließe ich die Kopie. Da das Makro an sich in der Kopie weiterläuft, kann ich es nicht vorher schließen.

Workbooks(ZName).Worksheets(ZSheet).Activate
Shell "explorer , ZPath"
ActiveWorkbook.SaveAs Filename:=ZPath & "/Sicherungen/" & (Date) & " " & ZName 

ZKopie = ActiveWorkbook.Name 'Erstellt sich aus aktiver Quelldatei (Kopie)

'Originaldatei wieder öffnen
Workbooks.Open Filename:=ZPath & "/" & ZName, Local:=True


'Schließen der Kopie am Ende des Makros
Workbooks(ZKopie).Close SaveChanges:=True

 

Der 2. Weg ist einfach so, das ich die Datei erst am ende kopiere.
Dazu speichere ich erst die Originaldatei und danach als Kopie.

' Arbeitsblatt speichern

           Workbooks(ZName).Activate
           ActiveWorkbook.Save
           
 'Kopie speichern
 If SpeicherAbfrage = True Then
 Workbooks(ZName).Worksheets(ZSheet).Activate
Shell "explorer , ZPath"
ActiveWorkbook.SaveAs Filename:=ZPath & "/Sicherungen/" & (Date) & " " & ZName

ZKopie = ActiveWorkbook.Name 'Erstellt sich aus aktiver Quelldatei (Kopie)

'Originaldatei wieder öffnen
Workbooks.Open Filename:=ZPath & "/" & ZName, Local:=True

'Schließen der Kopie 
Workbooks(ZKopie).Close SaveChanges:=True
 End If
 

Auch dort öffne ich die Originaldatei, damit ich damit weiterarbeiten kann.


Vielleicht hift es ja jemanden.

Tschau 

Bernd
PS. Sollte jemand eine bessere Lösung finden eine Kopie im Sharepoint zu speichern, gerne her damit.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.05.2023 10:34:33 Bernd
NotSolved
13.07.2023 14:27:10 Bernd
NotSolved
13.07.2023 21:49:04 ralf_b
NotSolved
17.07.2023 16:50:54 Bernd
Solved
Rot Datei im Sharepoint in neuem Ordner speichern
18.07.2023 11:27:10 Gast6113
Solved