JMP를 자동화하는 Excel VBA안녕하세요 여러분, Excel VBA에서 JMP 시계열 분석을 실행하려고 합니다.
아래는 코드입니다
하위 LData()
Dim myjmp As JMP.Application
Dim jmp_doc JMP.Document로
JMP.DataTable로 희미한 jmp_BL
JMP.DataTable로 희미한 jmp_dt
Dim jmp_dtFinal As JMP.DataTable
문자열로 희미한 jmpstr
설정 myjmp = CreateObject("JMP.Application")
myjmp.Visible = 참
설정 jmp_doc = myjmp.OpenDocument("C:\Data_Doc1.xlsx")
jmp_BL = jmp_doc.GetDataTable 설정
Dim TS As JMP.TimeSeries
TS = jmp_doc.CreateTimeSeries() 설정
Dim Cont As JMP.timeSeriesConstraintConstants
겨울 = tsConstraintZeroToOne
Dim Modd As JMP.timeSeriesModelConstants
모드 = tsModelWinters
TS.LaunchAddYSeries("판매")
TS.LaunchAddNumAutoCorrLags (25)
TS.런치
콜 TS.SmoothingModel(Modd, Winters)
종료 서브
JMP에서 오류 메시지가 나타납니다.
알 수 없는 작업
계절 모델에는 숫자 인수가 필요합니다. 시즌당 기간
Call.TS.SmoothingModel(Modd,Winters)을 할 때 시즌당 기간을 입력할 수 있는 옵션이 없었습니다.
내가 무엇을 놓치고 있는지 깨닫게 하려면 당신의 도움이 필요합니다
많은 감사드립니다.
건배.
케니
Re: JMP를 자동화하는 Excel VBA문제 없습니다. 많은 도움을 주셔서 감사합니다.
Re: JMP를 자동화하는 Excel VBA불행히도 스무딩 모델의 자동화 방법은 시계열의 옵션과 함께 구식입니다. 기술 지원에 연락하여 제품의 향후 버전에서 이 문제를 수정하려면 문제를 입력해야 함을 알립니다. 이 경우에 대해 내가 알고 있는 유일한 해결 방법은 자동화 "RunCommand" 메서드를 사용하여 JSL을 JMP에 직접 제출하여 분석을 수행하는 것입니다. 따라서 아래와 같이 할 수 있습니다(샘플 데이터 "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("시계열(X(:월수),Y(:온도),겨울법(48, 0에서 1, 예측 간격( 0.8 ) ))")
Re: JMP를 자동화하는 Excel VBA시계열(
Y( :판매 ),
예측 기간 수( 12 ),
Winters 방법( 48, 0에서 1, 신뢰 구간( 0.8 ) ),
보고서 보내기(
보내다(
{"모델 비교"},
"2",
스케일박스,
{참조선 추가( 0, 파선, "검정색" )}
),
보내다(
{"모델 비교"},
"8",
스케일박스,
{참조선 추가( 0, 파선, "검정색" )}
),
보내다(
{"모델 비교"},
"삼",
스케일박스,
{참조선 추가( 70, 실선, "파란색" ), 주요 그리드 표시( 1 )}
),
보내다(
{"모델 비교"},
"4",
스케일박스,
{참조선 추가( 0, 파선, "검정색" )}
),
보내다(
{"모델 비교"},
"5",
스케일박스,
{참조선 추가( 0, 파선, "검정색" )}
)
)
);
많은 도움을 주셔서 감사합니다
Re: JMP를 자동화하는 Excel VBAJMP의 시계열 대화 상자를 사용하여 원하는 분석을 생성할 수 있습니까? 그렇다면 여기에 성공적인 분석의 스크립트를 게시할 수 있습니다(빨간색 삼각형 보고->스크립트 저장->스크립트 창으로 보고).
감사,
브라이언 코르코란
JMP 개발
