エラー内容;
XLGETDATA Erro 例外が発生しました
9行目 dd = XLGETDATA(Excel, "Q2")
エラーが出ないようにするか、又はエラーが出てもスクリプトがストップしないようにしたいのですがどのように対処すれば良いでしょうか。
スクリプト内容:
soundfile1="d:\rs01.wav"
soundfile2 = "d:\ピロロン.wav"
Excel = XLOPEN("D:\データ.xlsm")
XLACTIVATE(Excel, "Sheet1")
aa=1
while 1
dd = XLGETDATA(Excel, "Q2")
if dd=1 then
sound(soundfile1,true)
if aa=1 then
Exec("2500_up")
aa=aa+1
endif
endif
if dd=-1 then
sound(soundfile2,true)
if aa=1 then
Exec("2500_down")
aa=aa+1
endif
endif
if dd="" then aa=1
wend
エラー処理は UWSCのヘルプから引用して
// TRY - EXCEPT 実行時エラーが起きた時に実行されます
TRY
処理(エラー)
EXCEPT
処理
ENDTRY
となりますので
dd = XLGETDATA(Excel, "Q2")
を
TRY
dd = XLGETDATA(Excel, "Q2")
EXCEPT
dd=0
ENDTRY
といったような感じにすると エラーになったとき 取得した値が
0だったということになります。
コメント(0件)