Eventualitäten berücksichtigen
28.10.2015 10:43:32
Vilen
mein Ziel ist es, dass beim Öffnen einer Datei, diese aktualisiert wird. Dies soll geschehen, indem eine Quelldatei geöffnet, daraus ein Arbeitsblatt in meine Zieldatei kopiert und wieder geschlossen wird. Zuvor soll aber aus meiner zu aktualisierenden Datei das alte Register entfernt werden. Hier am Beispiel:
Meine Datei, die ich aktualisieren möchte, ist geöffnet. Das Arbeitsblatt "Druckbehälter" wird gelöscht. Eine Quelldatei wird geöffnet, daraus ein Arbeitsblatt mit der Bezeichnung "Druckbehälter" kopiert, und in meine Zieldatei, hinter das Arbeitsblatt "Tabelle1", eingefügt werden, wobei die Quelldatei wieder geschlossen wird.
Sub Aktualisieren()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Druckbehälter").Delete
Application.DisplayAlerts = True
Dim QWB As Workbook, ZWB As Workbook
Workbooks.Open "C:\...\Quelldatei.xlsm", ReadOnly:=True, Password:="123", WriteResPassword:= _
"123"
Set QWB = Workbooks("Quelldatei.xlsm")
Set ZWB = ThisWorkbook
Set QWS = QWB.Worksheets("Druckbehälter")
Set ZWS = ZWB.Worksheets("Tabelle1")
QWS.Copy after:=ZWS
Workbooks("Druckbehälter.xlsm").Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Jetzt weiß ich aber nicht, was beachtet werden muss, sprich wo Fehler eintreten könnten. Beispielsweise, wenn die Zieldatei am anderen Rechner geöffnet und bearbeitet wird, oder wenn der Server oder WLAN ausfallen sollten und die Quelldatei unter dem angegebenen Pfad nicht gefunden wird. Hättet ihr für mich paar Tipps?
Vielen Dank!
Vilen