Excelのバージョンを調べるのは、Versionプロパティを使います。
あるいは、ファイル形式を調べたい場合は、FileFormatプロパティを
使います。
準備として標準モジュールに次のマクロを作成してください。
<Excelのバージョンを調べる>
Sub Version()
MsgBox "Excelのバージョンは" & Application.Version & "です"
End Sub
<ファイル形式を調べる>
Sub Sample()
Select Case ThisWorkbook.FileFormat
Case XlFileFormat.xlExcel5
MsgBox "このファイルの形式は" & _
"Excel95で作られたファイルです"
Case XlFileFormat.xlExcel7
MsgBox "このファイルの形式は" & _
"Excel97で作られたファイルです"
Case XlFileFormat.xlWorkbookNormal
MsgBox "このファイルの形式は" & _
"Excel2000で作られたファイルです"
Case Else
MsgBox "このファイルの形式は" & _
"Excel95/97/2000以外のファイルです"
End Select
End Sub
|