Makros verwenden, um ein Query-Skript auszuführen - Automate_Studio

Um ein Skript durch die Verwendung eines Makros auszuführen, erstellen Sie das Makro in Visual Basic for Applications (VBA).

Öffnen Sie die Datendatei, die mit dem Skript verknüpft ist, welches Sie ausführen möchten.
Vergewissern Sie sich, dass Sie eine Datei mit Makros, eine .xlsm-Datei, verwenden.
Drücken Sie Alt+F11.
Klicken Sie im VBA-Editor unter Microsoft Excel-Objekte auf das Blatt, welches die Daten enthält, die Sie ausführen möchten.
Kopieren Sie den unten stehenden Code und fügen Sie ihn in das Fenster ein.
Ersetzen Sie unten den Datendateipfad, den Skriptdateipfad, den Blattnamen und den Namen für die automatische Anmeldung mit den Informationen für Ihre Dateien und mit Ihrem Namen für die automatische Anmeldung.
Klicken Sie auf Speichern und schließen Sie den VBA-Editor.
Klicken Sie in Excel auf die Registerkarte Ansicht und dann auf Makros.
Klicken Sie auf das Makro, das ausgeführt werden soll, und klicken Sie anschließend auf Ausführen.

Anmerkung:

Vergewissern Sie sich, dass das Excel-Add-In nicht aktiv ist (dass Sie nicht in Connect angemeldet sind).

Anmerkung:

Asynchrone Makroausführung wird unterstützt.

Query Makros

Ein veröffentlichtes Skript ausführen

Add-In-Objekte definieren.
Dim StudioMacrosAddin, StudioMacros
Add-In-Objekt aus Excel erhalten.
Set StudioMacrosAddin = Application.COMAddIns.Item ("WinshuttleStudioMacros.AddinModule")
COM-Objekt von Add-In-Objekt erhalten.
Set StudioMacros = StudioMacrosAddin.Object.Macros
Die auszuführende, veröffentlichte Datei wählen und weitere Ausführungseigenschaften definieren (siehe Eigenschaften für ein Query Add-In-Objekt).
Dim StudioMacros.PublishedFile = "Table_20150113_150602"
Die veröffentlichte Skriptdatei öffnen.
StudioMacros.OpenPublishedScript
Add-In-Objekt ausführen, um das Query Skript auszuführen.
StudioMacros.RunScript

Ein bestehendes Query Skript ausführen.

Add-In-Objekte definieren.
Dim StudioMacrosAddin, StudioMacros
Add-In-Objekt aus Excel erhalten.
Set StudioMacrosAddin = Application.COMAddIns.Item ("WinshuttleStudioMacros.AddinModule")
COM-Objekt von Add-In-Objekt erhalten.
Set StudioMacros = StudioMacrosAddin.Object.Macros
Das auszuführende Query Skript wählen und weitere Ausführungseigenschaften definieren (siehe Eigenschaften für ein Query Add-In-Objekt).
Im Folgenden wird das Skript lokal ausgeführt:Dim strShuttleFile = "C:\Table_20140930_143519.qsq"Im Folgenden wird das Skript von Evolve ausgeführt: StudioMacros.LibraryName = "Query"

Für von Evolve übermittelte Datei auf Lösungsname setzen. Für eine lokale Datei legen Sie für „strShuttleFile“ den lokalen Dateipfad fest.strShuttleFile = "Table_MARA"
Das auszuführende Skript öffnen.
StudioMacros.OpenScript (strShuttleFile)
Add-In-Objekt ausführen, um das Query Skript auszuführen.
StudioMacros.RunScript

Eigenschaften für ein Query Add-In-Objekt

Ausführungseinstellungen oder erweiterte Ausführungsoptionen, die im Skript eingestellt sind, werden während der Ausführung des Makros nicht berücksichtigt. Diese müssen eingestellt werden, indem verschiedene Eigenschaften angewendet werden, die für das Add-In-Objekt eingeblendet wurden.

Eigenschaft/Funktion	Wert(e)/Parameter	Beschreibung
PublishedFile	Beschreibung der veröffentlichten Datei	Wählt die auszuführende, veröffentlichte Datei aus
OpenScript ()	Skriptdateipfad	Wählt das auszuführende Skript aus
OpenPublishedScript	NV	Öffnet das veröffentlichte Skript
StartRow	Zeilenanzahl	Excel-Zeile, ab der heruntergeladene Datensätze geschrieben werden sollen
RecordsToFetch	Anzahl der Datensätze	Anzahl der Datensätze, die bei der Query Ausführung ausgegeben werden sollen
WriteHeader	Wahr/Falsch	Schreibt Zuordnungskopfzeilen für die heruntergeladenen Daten
ExtractAllRecords	Wahr/Falsch	Überschreibt RecordsToFetch und extrahiert alle Datensätze
RunReason	Ausführungsgrund-String	Einen Grund für diese Ausführung angeben
LogCell	Zelle	Zelle, in die Ausführungsprotokolle geschrieben werden sollen
SheetName	Name des Blattes	Name des Blattes, der für die Ausführung verwendet werden soll
ConnName	SAP-Verbindungsname	SAP-Verbindungsname
RunType	Ausführungsart	0 – Ausführung, um einstellungsgemäß Datensätze einzuholen 1 – RecordsToFetch überschreiben und nur die ersten 50 Datensätze herunterladen
RunScript	NV	Skript ausführen
SyncCall	NV	True – Das Skript wird synchron ausgeführt

Beispielcode: Ein veröffentlichtes Query Skript ausführen

 Sub RunPublishedQSQfile() '---------------------------------------------- ' Macro to use WinshuttleStudioMacros addin with code '---------------------------------------------- ' ' RunPublishedfile Macro  '  Dim StudioMacrosAddin, StudioMacros      On Error GoTo ErrHandler       ' GET ADDIN OBJECT FROM EXCEL       Set StudioMacrosAddin = Application.COMAddIns.Item("WinshuttleStudioMacros.AddinModule")       If StudioMacrosAddin Is Nothing Then          MsgBox "Unable to initialize object of WinshuttleStudioMacros.AddinModule addin"          Exit Sub       End If        ' Get com object from addin object       Set StudioMacros = StudioMacrosAddin.Object.Macros       If StudioMacros Is Nothing Then          MsgBox "Unable to initialize com object of Macros"          Exit Sub       End If        ' Select the published file to Run       StudioMacros.PublishedFile = "Table_20150113_150602"        StudioMacros.StartRow = 2       ' if not set, then records will be fetched as per script settings       StudioMacros.RecordsToFetch = 100        ' True to fetch all records. If set false then StudioMacros.RecordsToFetch will be respected       StudioMacros.ExtractAllRecords = True        ' Set True to write headers while Run       StudioMacros.WriteHeader = True     'StudioMacros.LogCell = "H2"   'StudioMacros.SheetName = "Sheet2"     'StudioMacros.ConnectionName = "w6r-800"       ' Set RunReason to provide reason for run.       StudioMacros.RunReason = "Run Reason"      'Run = 0, RunOnlyFiftyRecords = 1       StudioMacros.RunType = 0       ' Call the Run Function to open published script       StudioMacros.OpenPublishedScript        ' Call the Run Function to run script       StudioMacros.RunScript       Exit Sub   ErrHandler:      MsgBox Err.Description   End Sub

Beispielcode: Ein bestehendes Query Skript ausführen

                            Sub RunNormalQsqFile()  '---------------------------------------------- ' Macro to use WinshuttleStudioMacros addin with code '---------------------------------------------- ' ' RunNormalQsqFile Macro '      Dim StudioMacrosAddin, StudioMacros      On Error GoTo ErrHandler       ' GET ADDIN OBJECT FROM EXCEL       Set StudioMacrosAddin = Application.COMAddIns.Item("WinshuttleStudioMacros.AddinModule")        If StudioMacrosAddin Is Nothing Then          MsgBox "Unable to initialize object of WinshuttleStudioMacros.AddinModule addin"          Exit Sub       End If        ' Get com object from addin object       Set StudioMacros = StudioMacrosAddin.Object.Macros       If StudioMacros Is Nothing Then          MsgBox "Unable to initialize com object of Macros"          Exit Sub       End If        StudioMacros.StartRow = 2      ' if not set, then records will be fetched as per script settings       StudioMacros.RecordsToFetch = 100        ' True to fetch all records. If set false then StudioMacros.RecordsToFetch will be respected       StudioMacros.ExtractAllRecords = True        ' Set True to write headers while Run       StudioMacros.WriteHeader = True   'StudioMacros.LogCell = "H2"   'StudioMacros.SheetName = "Sheet2"    'StudioMacros.ConnectionName = "w6r-800"       ' Set RunReason to provide reason for run.       StudioMacros.RunReason = "Run Reason"        'Run = 0, RunOnlyFiftyRecords = 1       StudioMacros.RunType = 0    ' Set in case of evolve subitted file   StudioMacros.LibraryName = "Query"    ' Set it to Solution Name in case of evolve submitted file   ' For local File,set strShuttleFile to local file path       strShuttleFile = "Table_MARA"        '  Call the Run Function to open specified script       StudioMacros.OpenScript (strShuttleFile)        ' Call the Run Function to run script       StudioMacros.RunScript       Exit Sub   ErrHandler:      MsgBox Err.Description   End Sub

Bekannte Probleme

Während Sie Makros verwenden, sollten die Winshuttle Add-Ins nicht geladen werden (Sie sollten nicht bei Evolve angemeldet sein). Die Winshuttle Add-Ins können aktiviert werden.
ExtractAllRecords ruft alle Datensätze ab, selbst wenn die Anzahl der Datensätze die erlaubte Höchstzahl für herunterzuladende Datensätze übersteigt.
Die Startzeile ist immer 2, außer Sie geben eine andere Zeile an.
Datendateien dürfen den Datenprüfungsworkflow nicht anwenden, um durch Makros im Evolve Modus ausgeführt zu werden.
In der Bibliotek speichern funktioniert nicht, wenn ein Makro dazu verwendet wird, eine Datendatei im Evolve Modus auszuführen.

Makros verwenden, um ein Query-Skript auszuführen - Automate_Studio - 20.3

Online-Hilfe zu Automate Studio mit Connect

Query Makros

Bekannte Probleme