Programmgesteuertes Erstellen eines Bereitstellungspakets

Mit der CreateInstallPackage-Methode können Sie ein Bereitstellungspaket programmgesteuert erstellen.

Syntax

Ausdruck. CreateInstallPackage(WizardSettingsFile)

Ausdruck Eine Variable, die ein AccessDeveloperExtensions-Objekt darstellt.

In der folgenden Tabelle sind die Argumente der CreateInstallPackage-Methode beschrieben.

Name Erforderlich/Optional Datentyp Beschreibung
WizardSettingsFile Erforderlich String Der Pfad und Dateiname der Assistentenvorlagendatei, die Einstellungen für das Erstellen des Bereitstellungspakets enthält. Zum Erstellen einer Assistentenvorlage (ADEPSWS) klicken Sie auf einer beliebigen Seite des Assistenten für Paketlösungen auf Assistenteneinstellungen speichern.

Verwendung

Sie müssen das AccessDeveloperExtensions-Objekt instanziieren, bevor Sie die CreateInstallPackage-Methode aufrufen. Zum Instanziieren des AccessDeveloperExtensions-Objekts ist eine andere Technik als zum Instanziieren der in Access integrierten Objekte erforderlich. Sie können die COMAddins-Auflistung oder die CreateObject-Methode zum Instanziieren des AccessDeveloperExtensions-Objekts verwenden.

Der folgende Code veranschaulicht, wie das AccessDeveloperExtensions-Objekt mithilfe der COMAddins-Auflistung instanziiert wird.

Set objADE = Application.COMAddIns("AccessAddIn.ADE").Object 

Der folgende Code veranschaulicht, wie das AccessDeveloperExtensions-Objekt mithilfe der CreateObject-Methode instanziiert wird.

Set objADE = CreateObject("AccessAddIn.ADE") 

Im folgenden Beispiel sind die Schritte zusammengefasst, die zum Aufrufen der CreateInstallPackage-Methode in einer Unterroutine mit dem Namen CreatePackage erforderlich sind. Wenn Sie dieses Beispiel verwenden möchten, übergeben Sie den Pfad und Dateinamen der Assistentenvorlagendatei an die Unterroutine. Es wird ein Bereitstellungspaket erstellt.

Sub CreatePackage(strSettingsPath As String) 
     
    Dim objAde As AccessDeveloperExtensions 
     
    ' Instantiate a AccessDeveloperExtensions object. 
    Set objAde = Application.COMAddIns("AccessAddIn.ADE").Object 
     
    ' Create the deployment package. 
    objAde.CreateInstallPackage strSettingsFilePath 
     
    Set objAde = Nothing 
End Sub

Um dieses Beispiel zu verwenden, müssen Sie auf die Typenbibliothek der Access Developer-Erweiterungen verweisen. Führen Sie dazu die folgenden Schritte aus:

  1. Klicken Sie im Menü Extras auf Verweise.
  2. Aktivieren Sie das Kontrollkästchen Microsoft Office Access Developer Extensions Type Library 1.0 , und klicken Sie dann auf OK.

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.