UWSCを使っていますが、エラーが出て停止してしまいます。

エラー内容;
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

回答の条件
  • 1人5回まで
  • 登録:
  • 終了:2013/02/21 13:35:28
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ベストアンサー

id:taknt No.1

回答回数13539ベストアンサー獲得回数1198

ポイント1000pt

エラー処理は UWSCのヘルプから引用して

 // TRY - EXCEPT 実行時エラーが起きた時に実行されます
 TRY
   処理(エラー)
 EXCEPT
   処理
 ENDTRY


となりますので

dd = XLGETDATA(Excel, "Q2")


TRY
dd = XLGETDATA(Excel, "Q2")
EXCEPT
dd=0
ENDTRY

といったような感じにすると エラーになったとき 取得した値が
0だったということになります。

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません