名札    メイン
変数宣言　整数{&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