VB.NETからのEXCEL出力でエラー

Question

VB.net(VS2005)から帳票のEXCEL出力を行っています。
様々な環境で使用するため、バージョン依存しないよう遅延バインディングで作成しています。

環境１（開発環境）
WindowsXP(Windows7のXPモード) + office2003
環境２
Windows7 + office2010
環境３
Windows7 + office2013

上記環境で動作確認を行ったところ、１・２では問題なく動作したのですが、
環境３でのみ「saveメソッドが失敗しました」のエラーが発生してしまいます。

原因・対応方法等、情報頂ければ幸いです。
よろしくお願いします。

    Dim File1 As New Object
    Dim File1_book As New Object
    Dim File1_sheet As New Object
    
    'これ以前の処理でテンプレート.xlsファイルから出力.xlsファイルをファイルコピーで
    '作成しているため、str_Create_File_Path & str_Create_File_Nameは必ず存在します。
    
    File1 = CreateObject("Excel.Application")
    File1.Workbooks.Open(str_Create_File_Path & str_Create_File_Name)
    
    File1_book = File1.Workbooks(str_Create_File_Name)
    File1_sheet = File1_book.Sheets(1)
    
    '（ここから）
    ' ・・・省略・・・
    '（ここまでシート編集）
    
    File1.Visible = False        'excel非表示
    File1.DisplayAlerts = False
    File1.Save()                 '★saveはここだけなのでここでエラー発生しているようです。
    File1.Workbooks.Close()
    File1.Quit()

Answer 1

'File1.Save()
File1_book.Save()

上記修正により無事上書き保存が可能となりました。

Excel2010まではFile1.Save()で問題なく保存できていたのですが、仕様変更でもあったのでしょうか。。

今回は上記対応でクローズとさせていただきます。
情報くださいました方々、ありがとうございましたm(__)m

Answer 2

環境が無いので未確認ですが、ひょっとして保存前の互換性チェックでコケてないでしょうか？
保存結果は保証出来ませんが･･･下記を参考に（ダメ元で）互換性チェックを一時的に無効にしてから保存してみては？
参考：https://msdn.microsoft.com/ja-jp/library/office/Gg132972(v=office.14).aspx

Comments

[jawa]

情報ありがとうございました。
参考URLをもとに互換性チェックをはずしてみましたが、現象は変わらずでした。

Answer 3

明確な回答ではないのですが、、、ひょっとして、保存するときのファイルフォーマットの問題がありますかね？

デフォルトの拡張子って 2003 では xls でしたが、2010 や 2013 は xlsx ですよね

save メソッドで保存しようとしたときに、開いているファイルの拡張子は xls （ですよね？）なので、そのあたりの不整合がありそうな

ただ、そうだとしたら環境2がうまくいくのと一致しないのですが・・・

saveas を使ってファイル名を指定した保存に書き換えてみるのはいかがでしょうか

Comments

[jawa]

SaveAsを試すため引数確認をしている際、別手段にて解決できてしまいましたので今回の質問はクローズとさせていただきます。
情報のご提供ありがとうございました。