開こうとしているファイル"XXX.xls"の形式は、ファイル拡張子が示す形式と異なります。:アーキテクト360

開こうとしているファイル"XXX.xls"の形式は、ファイル拡張子が示す形式と異なります。

Excel 2007がインストールされている環境で、VB.NETからExcelのCOMコンポーネント（Interop.Excel.dll）を使用してExcelファイルを出力するアプリケーションを作成した。SaveAsメソッドでファイル名を「.xls」としてファイルを保存する。Excel 2007でそのファイルを開くと「開こうとしているファイル"XXX.xls"の形式は、ファイル拡張子が示す形式と異なります。このファイルを開く前に、ファイルが破損していないこと、信頼できる発行元からのファイルであることを確認してください。ファイルを今すぐ開きますか？」とメッセージが表示されてしまう。「はい」を選択すると、開くことはできる。しかし、このファイルをExcel 2000や2003で開くと、「このファイルの形式を認識できません。」とのメッセージが表示され、開くことができない。
原因は、Excel 2007では拡張子をxlsとしてファイルを保存しても、従来の形式で保存してくれないためである。したがって、Excel2000や2003では、理解できないファイルとして認識されメッセージが表示されてしまう。

Public Sub GenerateBook()
        Dim excelApp As Excel.Application = Nothing
        Dim books As Excel.Workbooks = Nothing
        Dim workbook As Excel.Workbook = Nothing

Try
            'Excel起動
            excelApp = DirectCast(CreateObject("Excel.Application"), Excel.Application)

'ワークブック追加
            books = excelApp.Workbooks
            workbook = books.Add()

excelApp.Application.DisplayAlerts = True
            excelApp.Visible = True

workbook.SaveAs("abc.xls") '「このファイルの形式を認識できません。」
            'workbook.SaveAs("abc.xls", Excel.XlFileFormat.xlWorkbookNormal)

Catch ex As Exception
            Debug.WriteLine(ex.Message)
            Throw
        Finally

workbook.Close()
            'アプリケーション終了
            excelApp.Quit()

'COMオブジェクトの後始末
            System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(books)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

End Try

End Sub

回避方法は、コメントにある部分のようにファイルフォーマットを指定する必要がある。

トラックバック

トラックバックURL：
http://www.apricot-jp.com/cgi/mt/mt-tb.cgi/343

アーキテクチャ,フレームワーク,設計のTips

開こうとしているファイル"XXX.xls"の形式は、ファイル拡張子が示す形式と異なります。

トラックバック

関連情報