xlt Mustervorlage mit einer Start.xls öffnen

Hallo,
erst einmal vorab, warum ich eine start.xls benötige. Mehrere Anwender greifen im Netz und auf lokalen PC's auf eine Programm.xlt zu. Der gesamte Ordner mit den Dateien liegt im Netzwerk und auf den lokalen Rechnern auf ganz unterschiedlichen Laufwerken. Da in der xlt einige Aufrufe externer Dateien und Verknüpfungen existieren, benötige ich immer die Pfadangabe. Die läßt sich aber nach dem Aufruf der Programm.xlt nicht abrufen, da die dann gestartete Programm1.xls ja nicht gespeichert wird / wurde.
Also behelfe ich mir damit, die Programm.xlt über eine start.xls zu öffnen, die sich im gleichen Ordner befindet und die Pfadanangabe aus dieser in die Programm1.xls zu übergeben. Damit kann der Ordner dann liegen wo er will, da die Programm1.xls jetzt alle externen Dateien findet und öffnen kann.
Soweit zum Vorspann.
Wo liegt jetzt der Haken ?
Wir haben zum einen einen Server mit WinServer2003 und daran angeschlossenen Arbeitsplatz-PC's mit WinXP Prof, aber unterschiedlichen Officeversionen von 2003 - 2007 und externen Rechnern über Win Terminal . Bei den externen Rechnern und wenn der Ordner lokal z.B. auf einen Notebook liegt, ist alles OK. Aber bei einigen Rechnern mit Office 2003/XP startet die Programm.xlt nicht.
Nach Recherche im Forum und Google habe ich jetzt folgenden Aufruf in der start.xls:

Private Sub Workbook_Open()
On Error Resume Next
'Pfad der Mappe ermitteln und eintragen
Sheets("Tabelle1").Range("B2").Value = ThisWorkbook.Path
Dim OeffnenName As String
OeffnenName = Range("B2").Value & "\Programm.xlt"
Workbooks.Open Filename:=OeffnenName
Application.Worksheets("Dokumente").Range("B1").Value = ThisWorkbook.Path
Workbooks("Start.XLS").Close SaveChanges:=False
On Error GoTo 0
End Sub

Wo kann hier der Fehler liegen und was muss geändert werden, dass es auch bei den Office 2003/XP
Versionen im Netzwerk klappt ?
Andre

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim sTemp As String If LCase(Right(ThisWorkbook.Name, 4)) = ".xlt" Then sTemp = "" On Error Resume Next sTemp = ThisWorkbook.CustomDocumentProperties("myTemplatePath") On Error GoTo 0 If "" = sTemp Then With ThisWorkbook.CustomDocumentProperties .Add Name:="myTemplatePath", _ LinkToContent:=False, _ Type:=msoPropertyTypeString, _ Value:=ThisWorkbook.Path End With Else ThisWorkbook.CustomDocumentProperties("myTemplatePath").Value = ThisWorkbook.Path End If End If End Sub Private Sub Workbook_Open() With ThisWorkbook.CustomDocumentProperties("myTemplatePath") MsgBox .Name & vbCrLf & .Value End With End Sub

Hallo Luschi,
vielen Dank für deine Antwort, komme leider erst heute wieder ins Forum.
Genau beim Verschieben des Ordners mit den Dateien liegt jedoch ein Problem. Der Aufruf der Programm.xlt über die Start.xls muss auch funktonieren, wenn vorher keine erneute Speicherung der xlt stattgefunden hat. Genau das müsste aber nach deiner Lösung generell gemacht werden.
"...Die neue xls-Datei erbt die benutzerdefinierte Dokumenteigenschaft 'myTemplatePath' und deren Wert. Man darf nur nicht vergessen, nach dem Verschieben der xlt-Datei diese zu öffnen und beim Schließen zu speichern, damit der neue Pfad in dieser Eigeschaft hinterlegt wird. ..."
Deshalb müsste ich wissen, ob der eingestellte Aufruf der xlt noch Fehler in sich birgt, die ein Funktionieren
in älteren Excel-Versionen verhindern.
Andre

Beliebteste Forumthreads (12 Monate)

xlt Mustervorlage mit einer Start.xls öffnen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread