| ■No8093に返信(ウニさんの記事)
> Excelを起動して目的のファイルは開けます。
> 一括処理も大丈夫です。
> 他のイベントを試したら、やはりフリーズ（イベント実行中で停止状態）しました。
横レスで失礼。
すべてタラレバです。
提示された一般手続き：変換()
■変更前
エクセル &fname,"",変換範囲=(A1,N100),項目名行=しない,表名=#データパス名+"BL.tbl",上書き=する,終了状態=&flag
■変更後
エクセル &fname,"",変換範囲=(A1,N100),項目名行=しない,表名=#データパス名+"BL.tbl",上書き=する
というように、終了状態=&flag を削除して実行すると、エラーが表示されるかもしれません。
あくまでも、タラレバですので、エラーは表示されないかもしれません。
ちなみに、終了状態=&flag としていると、桐はダンマリで、エラー番号を代入するだけです。
なお、［エクセル］コマンドの直前に［確認］コマンドを入れると、
［エクセル］コマンド直前まで実行していることが確認できます。
名札 メイン
変数宣言 整数{&flag,&ok,&pass,&ck}
変数宣言 文字列{&fname,&num}
＊
手続き定義開始 変換()
&ok=0
メソッド呼び出し @ﾌｫｰﾑ.更新モード設定( 0)
if (#文字位置(&fname,".xls")>0)
エクセル &fname,"",変換範囲=(A1,N100),項目名行=しない,表名=#データパス名+"BL.tbl",上書き=する,終了状態=&flag
if (&flag<>0)
if (&flag=233)
確認 #文字列(&flag)+" Excelを終了してから実行してください。"
else
確認 #文字列(&flag)+" Excelファイル変換中にエラーが発生しました。"
end
end
終了 表 *
end
end
|
