| 2009/03/09(Mon) 18:09:39 編集(投稿者)
エクセルが2000だから起動中でもエラーにならないのかもしれません。 下記のように書き換えて、エクセル起動中に実行してみました。
「失敗しました」と表示されましたが、シートは正常に書き出ししています。
proc エクセル起動() var Long{&Lcount=1} エクセル書き出し "桐toEXCEL", "1st", 項目名行=する, 上書き=する, 開く=しない, 終了状態=&実行リターン エクセル書き出し "桐toEXCEL2", "1st", 項目名行=する, 上書き=する, 開く=しない, 終了状態=&実行リターン &時刻=#時刻 繰り返し &Lcount=&Lcount+1 エクセル書き出し "桐toEXCEL", #str(&Lcount)+"nd", 項目名行=する, 上書き=する, 開く=しない, 終了状態=&実行リターン if (&実行リターン=0 .OR #時間(&時刻, #時刻, 3) > 10) 確認 "失敗しました" 繰り返し中止 end 繰り返し終了 end
できあがったファイルをエクセルで開き保存しようとすると バージョンが古いとコメントが出て保存しますかと聞いてきます。
|