VBAでエクセルのバージョンを取得するには

質問

エクセルBOOKを開いているアプリケーションがエクセル2007以降かそうでないかを、その開かれているBOOKのVBAで取得するにはどのような記述をすればよろしいでしょうか？
2007以降か、その前かでコードを分岐させたいのです。
よろしくお願いします。

回答No.2

taka_s777 · ベストアンサー

Application.Version
でバージョン情報は取得できます。
Excel2000が「9.0」ですが2007以降は○.○がどうなっているかは私は判りません。
ご存知なら上記で。

判らなければ手っ取り早く
Sheets(1).Rows.Count'行数のカウント
とすれば2007までは65536以下が取得され、2007なら65536を超えた値が取得されますので
If Sheets(1).Rows.Count <= 65536 Then
　MsgBox "Excel2007以前です"
Else
　MsgBox "Excel2007以降です"
End If
と条件分岐させてもいいかもしれませんね。

お礼

>　Sheets(1).Rows.Count'行数のカウント

すばらしいアイデアだと感心しました。
しかし、やってみると・・・・。
エクセル２０００で作成したBOOKをエクセル２００７で開いても行数は増えませんので「２００７以前」と判定されてしまいました。

BOOKのバージョンではなく、アプリケーションのバージョンを調べたかったのです。

補足

行数のカウントでの判別方法が面白かったので、このようにしてみました。
これで無事判定できました。
ありがとうございます。

Sub 行数で判別()
Set nb = Workbooks.Add
x = nb.Sheets(1).Rows.Count
nb.Close (False)
Set nb = Nothing
If x <= 65536 Then
MsgBox "Excel2007未満です"
Else
MsgBox "Excel2007以降です"
End If
End Sub

回答No.5

Wendy02

こんにちは。

遅くなりました。

>>「ダイレクティブス　If」 　というものがありますね
>
>それって何でしょうか？
>検索をかけても見つけられませんでした

読みが違っていましたね。ずっと、ダイレクティブと読んでいました。
「ディレクティブ」でした。

#If...Then...#Else Directives

ヘルプで、「directive」 と入れれば出てきます。

使い方は、バージョンによって、エラーが出る場合に、これを使います。
VBAは、コードを、一旦コンパイルしますから、その時に、バージョンによってコマンドなどがないと、「コマンドが見当たらない」ということで、プロシージャ全体をエラーで拒否してしまいます。そういう場合、この"Directive If" を使って、バージョンによって分岐させるわけですね。特に、Excel 97 と共用させるコードなどにはたまに用いられます。でも、実際に、そのバージョンで通るか通らないかは、私のレベルでは、それぞれのバージョンでやってみないと分からないです。

お礼

なるほど・・・。
わかりました。
有難うございます。

回答No.4

Wendy02

こんにちは。

私は、当分、Excel2007 は、買えそうにもないというか、仕事のツール優先で、それすら、今は、思案中です。仕事で、MS-Office を使えば購入しますが、納品の時だけで、収入面では、何にも役には立っていません。

話を逸らせて申し訳ないのですが、

#2 のお礼
>しかし、やってみると・・・・。
>エクセル２０００で作成したBOOKをエクセル２００７で開いても行数は増えませんので「２００７以前」と判定されてしまいました。

解決策は出ていますが、私は、コードを書くときに、よく、全行数を取るときに、Application から取るようにしています。

>　Sheets(1).Rows.Count'行数のカウント

という指定シート「Sheets(1)」の必要性ってないと思うのです。
単に、
Rows.Count '標準モジュールの場合
言い換えると、
Application.Rows.Count

ということですね。そうすれば、旧ブックから持ってきても、そのアプリケーションのデフォルトの行数を取れるのではありませんか？試してはいないのですが...。

おまけなのですが、それに関連して「ダイレクティブス　If」 　というものがありますね。
#Const Directive
#If...Then...#Else Directives

本当は、そのバージョンチェックと組み合わせて使うというわけですが、意外になれていないせいか使いこなせないです。

No.3454293の質問の件

>別件ですが、エクセル2007でワークシート上で右クリックが出来ない原因、対処法、おわかりになったらご教示くださいませ。

前から読んでいますが、回答できません。まだ、2007 はバグ続きだという話もあるようですから、一体、どういう原因か分からないです。

個人的には、
　Application.CommandBars("CELL").Reset

辺りは効かないかなって思います。まったく自信はないです。

お礼

隣の人のVISTA　エクセル2007で、Application.Rows.Count　を試してみました。
残念ながら互換モードで開いた2000で作成したBOOKでは　65536　と出ました。
なお、右クリックがきかなかった件、不思議なことにいつのまにか直っていました。べつに何にもしてないのですが・・・。変ですね。

有難うございました。

補足

>「ダイレクティブス　If」 　というものがありますね

それって何でしょうか？
検索をかけても見つけられませんでした。

回答No.3

Wendy02

こんばんは。

やり方はいろいろあるでしょうね。

Sub test()
　Dim ret As Variant
　ret = Application.Version
　If Val(ret) > 11 Then
　　MsgBox "2007だと思われます"
　Else
　　MsgBox "2007以下だと思われます"
　End If
End Sub

お礼

有難うございました。
これで分岐できました。

いつもお世話様です。

別件ですが、エクセル2007でワークシート上で右クリックが出来ない原因、対処法、おわかりになったらご教示くださいませ。

回答No.1

hana-hana3

MsgBox Application.Version

お礼

Excel2007のバージョンが12.0であることが取得できました。
有難うございます。