| ■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
|