vbaで既存のxlsファイルを保存しようとするとxlsxで名前を付けて保存画面が出て処理が止まる

Question

前提・実現したいこと

excel2010のvbaでxlsのまま使用しているファイルが多数あり、名前などのゴミを削除後に
close trueでセーブして閉じる処理を書いています。

発生している問題・エラーメッセージ

大部分のxlsファイルはうまく処理できるのですが、一部のファイルだけ、closeできずに
on error goto 飛び先のエラー処理に飛んだり、xlsファイルなのに名前を付けて保存の
画面が表示され、xlsxで保存するか聞いてきてしまいます。

試したこと

ちなみにそのファイルを手でxlsで一旦保存し直してからvbaを動かすと正常にvbaで
処理がされます。
但し、気になるのは手でxlsで一旦保存する時に互換性がない部分があるが、xlsで保存するか
という画面が出てきましたがそのまま保存をしたことです。
closeの前にsaveを入れたり、save asでfileformatで指定したりしましたが同じでした。

補足

Comments

[meg_]

どんなコードですか？

Answer 1

互換性のチェックを無視するなら下記にある、ActiveWorkbook.CheckCompatibilityを試してみてはどうでしょうか。
Excel 2007 および Excel 2010 の互換性チェックの操作

Comments

[golgo13100]

sazi様
慣れないもので自己解決を投稿したらベストアンサーにできなくなりましたのでこちらでお礼申し上げます。

[sazi]

解決済みを一旦外せば可能ですよ。
でも、お気になさらなくて、大丈夫ですよ。

Answer 2

アドバイスをいただいた方ありがとうございました。
いろいろ試行錯誤した結果、理由は今一理解できておりませんが、既存ファイルの拡張子を保持しておき、同じ拡張子をsaveasのfileformatを指定したところ、正常に動作するようになりました。

ActiveWorkbook.CheckCompatibilityをご教示いただいた方、関連した点でとても参考になったので
この方をベストアンサーとさせていただきました。