AW: Aktualisierung automatische Verknüpfung
14.09.2007 17:07:00
fcs
Hallo Thomas,
im Prinzip könnte man das mit einem Timer-Lösen. Ich hab allerdings keine Ahnung, ob der Zugriff funktioniert, wenn die MSP-Datei vom anderen Rechner aus geöffnet wurde.
Den Timer kann man wie folgt aufbauen, wobei die TimerStop Prozedur auch von der Workbook_BeforeClose - Prozedur aufgerufen werden sollte, um sicherzustellen, dass der Timer immer gestoppt wird, wenn die Datei geschlossen wird.
Falls nicht alle Links in der Datei aktualisiert werden sollen, dann muss man die Verknüpfungen einzeln oder in einer Schleife aktualiseren.
ggf. muss man auch noch prüfen, ob die Verknüpften Dateien geöffnet sind. Zumindest bei Verknüpfungen zu anderen Exceldateien hatte ich schon Probleme. Im einfachsten Fall tut es "On Error Resume Next"
Gruß
Franz
Public Zeitpunkt As Date, wbthis As Workbook
Sub VerknuepfungenAktualisieren()
' VerknuepfungenAktualisieren Makro
wbthis.UpdateLink Name:=wbthis.LinkSources
' Zeitpunkt = Time + TimeSerial(0, 0, 20)
MsgBox " Hallo ich hab Links aktualisiert" 'Zeile zum Testen!
Zeitpunkt = Now + TimeSerial(0, 0, 20)
Application.OnTime earliesttime:=Zeitpunkt, _
Procedure:="VerknuepfungenAktualisieren", Schedule:=True 'alle 2
End Sub
Sub Timerstop()
On Error Resume Next
Application.OnTime earliesttime:=Zeitpunkt, _
Procedure:="VerknuepfungenAktualisieren", Schedule:=False
Set wbthis = Nothing
End Sub
Sub Timerstart()
Set wbthis = Workbooks(ThisWorkbook.Name)
Call VerknuepfungenAktualisieren
End Sub