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.
Vergewissern Sie sich, dass das Excel-Add-In nicht aktiv ist (dass Sie nicht in Evolve angemeldet sind).
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
|
Beispielcode: Ein bestehendes Query Skript ausführen
|
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.