36912_fr-FR

liliconcom

Excel VBA pour automatiser JMP

Salut les gens, j'essaie d'exécuter l'analyse de séries chronologiques JMP à partir d'Excel VBA.

 

ci-dessous les codes

 

Sous LData()

Dim myjmp As JMP.Application
Dim jmp_doc As JMP.Document
Dim jmp_BL comme JMP.DataTable
Estomper jmp_dt comme JMP.DataTable
Dim jmp_dtFinal comme JMP.DataTable
Dim jmpstr As String
Set myjmp = CreateObject("JMP.Application")
monjmp.Visible = Vrai

Set jmp_doc = myjmp.OpenDocument("C:\Data_Doc1.xlsx")
Définir jmp_BL = jmp_doc.GetDataTable

Dim TS comme JMP.TimeSeries
Définir TS = jmp_doc.CreateTimeSeries()

Dim Cont As JMP.timeSeriesConstraintConstants
Hiver = tsConstraintZeroToOne

Dim Modd As JMP.timeSeriesModelConstants
Modd = tsModelWinters

TS.LaunchAddYSeries ("Vendre")
TS.LaunchAddNumAutoCorrLags (25)
TS.Lancement

Appelez TS.SmoothingModel (Modd, Winters)

 

Fin sous

 

cela me donne un message d'erreur dans JMP

opération inconnue
Le modèle saisonnier nécessite un argument numérique : périodes par saison

 

je n'avais pas la possibilité de saisir des périodes par saison lorsque je faisais Call.TS.SmoothingModel(Modd,Winters)

 

besoin de votre aide pour m'éclairer sur ce qui me manque

 

Merci beaucoup d'avance.

 

Acclamations.

Kenny

 

Re : Excel VBA pour automatiser JMP

pas de problème, merci beaucoup pour votre aide.

Re : Excel VBA pour automatiser JMP

Malheureusement, il semble que la méthode d'automatisation du modèle de lissage soit obsolète avec les options des séries chronologiques. Je vais contacter le support technique pour leur faire savoir que le problème doit être saisi pour corriger cela dans une future version du produit. La seule solution de contournement que je connaisse pour ce cas consiste à utiliser la méthode d'automatisation "RunCommand" pour soumettre JSL directement à JMP pour effectuer l'analyse. Donc, vous pouvez faire quelque chose comme ci-dessous (en utilisant les exemples de données "Raleigh Temps")

 

Dim DocX As 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 ) ))")

Re : Excel VBA pour automatiser JMP

Des séries chronologiques(
Y( :Vendre ),
Nombre de périodes de prévision( 12 ),
Méthode de Winters( 48, Zéro à Un, Intervalles de Confiance( 0.8 ) ),
EnvoyerVersRapport(
Expédition(
{"Comparaison de modèles"},
"2",
ScaleBox,
{Ajouter une ligne de référence (0, pointillé, "noir")}
),
Expédition(
{"Comparaison de modèles"},
"8",
ScaleBox,
{Ajouter une ligne de référence (0, pointillé, "noir")}
),
Expédition(
{"Comparaison de modèles"},
"3",
ScaleBox,
{Ajouter une ligne de référence (70, Solide, "Bleu"), Afficher la grille principale (1)}
),
Expédition(
{"Comparaison de modèles"},
"4",
ScaleBox,
{Ajouter une ligne de référence (0, pointillé, "noir")}
),
Expédition(
{"Comparaison de modèles"},
"5",
ScaleBox,
{Ajouter une ligne de référence (0, pointillé, "noir")}
)
)
);

 

 

Merci beaucoup pour l'aide

Re : Excel VBA pour automatiser JMP

Pouvez-vous produire l'analyse souhaitée à l'aide des boîtes de dialogue Séries chronologiques de JMP ? Si tel est le cas, pouvez-vous publier ici le script d'une analyse réussie (rapport Triangle rouge-> Enregistrer le script-> Dans la fenêtre de script).

 

Merci,

Brian Corcoran

Développement JMP