Einen wunderschönen guten Abend.
Ich habe folgendes Problem und hoffe, dass ich hier Hilfe finde:
Über ein Formular gebe ich einen neuen Projektnamen ein und daraufhin wird ein Musterprojekt-Ordner kopiert und umbenannt.
Das funktioniert soweit alles ganz wunderbar!
Aus dem Formular mit dem Namen "Projektname" wird der eingegebene Text in einen String für den neuen Pfad umgewandelt:
______________________________________________
...
ToPath = "C:\tmp\VBA_Test\" & Projektname.Text
...
______________________________________________
Danach wird das darin enthaltene Projektfile von "Musterprojekt.ipj" auf den Projektnamen umbenannt:
______________________________________________
...
Name ToPath & "\" & "Musterprojekt.ipj" As _
ToPath & "\" & Projektname.Text & ".ipj"
...
...
MsgBox "Das Projekt " & ToPath & "\" & Projektname.Text & ".ipj wurde erstellt und wird jetzt aktiviert!"
...
______________________________________________
Soweit funktioniert alles perfekt, aber jetzt will ich das Projekt als aktives Projekt setzen:
______________________________________________
' Kontrolle, ob ein Dokument geöffnet ist.
If ThisApplication.Documents.Count > 0 Then
MsgBox "Alle offenen Dokumente müssen geschlossen werden, bevor das neue Projekt aktiviert werden kann!"
Exit Sub
End If
' Referenz zum DesignProjectManager object.
Dim oDesignProjectMgr As DesignProjectManager
Set oDesignProjectMgr = ThisApplication.DesignProjectManager
' Zeige das aktuelle Projekt.
Debug.Print "Old active project: " & oDesignProjectMgr.ActiveDesignProject.FullFileName
' Neues Projekt bestimmen.
Dim oProject As DesignProject
Set oProject = oDesignProjectMgr.DesignProjects.ItemByName(ToPath & "\" & Projektname.Text & ".ipj")
' Aktivierung des neuen Projekts.
oProject.Activate
______________________________________________
Und dann kommt beim Befehl "oDesignProjectMgr.DesignProjects.ItemByName..."
ein Laufzeitfehler >> Die Methode 'ItemByName' für das Objekt 'DesignProjects' ist fehlgeschlagen!
Wie ihr Profis sicher gleich erkannt habt, habe ich mein Projekt aus verschiedenen Quellen im Netz zusammengestoppelt, ohne alle Befehle bis ins letzte Detail zu durchschauen...
Kann mir bitte trotzdem jemand helfen?
Vielen Dank im Voraus und liebe Grüße
Reinhard
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP