36912_de-DE

liliconcom

Excel VBA zur Automatisierung von JMP

Hallo Leute, ich versuche, die JMP-Zeitreihenanalyse von Excel VBA aus auszuführen.

 

Unten sind die Codes

 

Unter LData()

Dim myjmp Als JMP.Application
Dim jmp_doc Als JMP.Document
Dim jmp_BL als JMP.DataTable
Dim jmp_dt als JMP.DataTable
Dim jmp_dtFinal als JMP.DataTable
Dim jmpstr als Zeichenfolge
Set myjmp = CreateObject("JMP.Application")
myjmp.Visible = True

Set jmp_doc = myjmp.OpenDocument("C:\Data_Doc1.xlsx")
Setzen Sie jmp_BL = jmp_doc.GetDataTable

Dim TS Als JMP.TimeSeries
Setze TS = jmp_doc.CreateTimeSeries()

Dim Cont As JMP.timeSeriesConstraintConstants
Winter = tsConstraintZeroToOne

Dim Modd als JMP.timeSeriesModelConstants
Modd = tsModelWinters

TS.LaunchAddYSeries ("Verkaufen")
TS.LaunchAddNumAutoCorrLags (25)
TS.Launch

Rufen Sie TS.SmoothingModel auf (Modd, Winters)

 

End Sub

 

es gibt mir eine Fehlermeldung in JMP

unbekannter Betrieb
Das saisonale Modell benötigt ein numerisches Argument: Perioden pro Saison

 

Ich hatte nicht die Möglichkeit, Perioden pro Saison einzugeben, als ich Call.TS.SmoothingModel (Modd, Winters) machte.

 

brauche deine Hilfe, um mir aufzuklären, was ich vermisse

 

Vielen Dank im Voraus.

 

Beifall.

Kenny

 

Betreff: Excel VBA zur Automatisierung von JMP

kein problem, vielen dank für deine hilfe.

Betreff: Excel VBA zur Automatisierung von JMP

Leider sieht es so aus, als ob die Automatisierungsmethode für das Glättungsmodell mit den Optionen in Time Series veraltet ist. Ich werde mich mit dem technischen Support in Verbindung setzen, um ihnen mitzuteilen, dass das Problem eingegeben werden sollte, um dies in einer zukünftigen Version des Produkts zu beheben. Die einzige Problemumgehung, die mir für diesen Fall bekannt ist, besteht darin, die Automatisierungsmethode "RunCommand" zu verwenden, um JSL direkt an JMP zu senden, um die Analyse durchzuführen. Sie könnten also so etwas wie unten tun (unter Verwendung der Beispieldaten „Raleigh Temps“)

 

Dim DocX als JMP.Document
DocX = myJMP.OpenDocument("c:\program files\sas\jmppro\14\samples\data\Time Series\Raleigh Temps.jmp")
myJMP.RunCommand("Time Series(X( :Month Number ),Y( :Temperature ),Winters Method( 48, Zero to One, Prediction Interval( 0.8 ) ))")

Betreff: Excel VBA zur Automatisierung von JMP

Zeitfolgen(
Y( :Verkaufen ),
Anzahl der Prognoseperioden ( 12 ),
Winters-Methode (48, Null bis Eins, Konfidenzintervalle (0,8)),
SendToReport(
Versenden(
{"Modellvergleich"},
"2",
ScaleBox,
{Referenzlinie hinzufügen (0, gestrichelt, „schwarz“)}
),
Versenden(
{"Modellvergleich"},
"8",
ScaleBox,
{Referenzlinie hinzufügen (0, gestrichelt, „schwarz“)}
),
Versenden(
{"Modellvergleich"},
"3",
ScaleBox,
{Referenzlinie hinzufügen (70, durchgehend, „blau“), Hauptgitter anzeigen (1)}
),
Versenden(
{"Modellvergleich"},
"4",
ScaleBox,
{Referenzlinie hinzufügen (0, gestrichelt, „schwarz“)}
),
Versenden(
{"Modellvergleich"},
"5",
ScaleBox,
{Referenzlinie hinzufügen (0, gestrichelt, „schwarz“)}
)
)
);

 

 

vielen Dank für die Hilfe

Betreff: Excel VBA zur Automatisierung von JMP

Können Sie die gewünschte Analyse mit den Zeitreihendialogfeldern von JMP erstellen? Wenn ja, können Sie das Skript einer erfolgreichen Analyse hier posten (Bericht Rotes Dreieck->Skript speichern->In Skriptfenster).

 

Danke,

Brian Corcoran

JMP-Entwicklung