xlsファイルのバージョンを取得したい(by VB6)

質問

仕事でVB6を使っていますので、
どうしてもVB6でやりたいんです。

Excel 2007 で作成されたxlsファイル、
Excel 2003 で作成されたxlsファイル、
Excel 2002(Office XP) で作成されたxlsファイル、
Excel 2000 で作成されたxlsファイル、
Excel 97 で作成されたxlsファイル、
を区別したく、
xlsファイルのExcelバージョンを取得したいです。

しかし、どうやって取得したらいいのか分からないので、
ここに質問させていただきます。

やりたいアルゴリズム :
1 . xls ファイルのフルパスを受け取る。
2 . ファイル情報として、作成されたExcel バージョンを知りたい
3 . バージョンによって分岐させて、処理。

調べて、ヒントになったURLを書きます。

http://support.microsoft.com/kb/178605/ja ==> BIFF8 や BIFF5 など BIFFのバージョン取得なので、やりたい事と違います。
http://excel.geo.jp/tips/vba_153.html ==> この識別を VB6 上でしたいです。

よろしくお願いします。

回答No.1

Wendy02 · ベストアンサー

こんばんは。

>xlsファイルのExcelバージョンを取得したいです。

ファイル自体には、BIFFフォーマットだけで、Excelの作成されたバージョンは分かりません。

>http://excel.geo.jp/tips/vba_153.html​ ==> この識別を VB6 上でしたいです。

あくまでも、HDDにあるExcel.Application のバージョンだけですが、オートメーション・オブジェクトから取ればよいです。

例：
Set xlApp = CreateObject("Excel.Application")
xlVer = xlApp.Version

参考資料
XL97: Overview and History of Excel Patches
http://support.microsoft.com/kb/232652/en-us

ただ、97のリビジョンを取る必要もありませんから、Val(xlVer) で括ってしまえばよいです。

お礼

教えていただきありがとうございました。