もくじ
The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBAの静的変数について、静的変数使っていますか？ - 2018年9月21日
- Excel関数【LENB関数】文字列のバイト数を求める - 2018年9月20日
- Excel関数【Mod関数】割り算の余りを取得する - 2018年9月19日
- Excel関数【LEN関数】文字数をカウントする - 2018年9月18日
- VBA YahooAPIを使って２つの場所の経路を取得してみた - 2018年9月17日
VBAでOSのバージョンを取得する方法
どうも、takaです、今回は【VBAでOSのバージョンを取得する方法】についてご紹介します(^.^)
会社などで複数のパソコンを使用している環境ではOSの混在もあるかと思います。
なのでその時にOSによってシステムの仕様を変更する場面などが出てくるかもしれません。
そのようなときに使えるかと思います(^.^)
OSを取得するには
OSの情報を取得するには【Applicationオブジェクト】の【OperatingSystemプロパティ】を使用します。
OperatingSystemプロパティの引数
OperatingSystemプロパティの引数は以下の通りです。
| Windowsﾊﾞｰｼﾞｮﾝ | 値 |
|---|---|
| Windows 10 | Windows (64-bit) NT.00 |
| Windows 8：8.1 | Windows (32-bit) NT 6.02 |
| Windows 7 | Windows (32-bit) NT 6.01 |
| Windows Vista | Windows (32-bit) NT 6.00 |
| Windows XP | Windows (32-bit) NT 5.01 |
| Windows 2000 | Windows (32-bit) NT 5.00 |
| Windows Me | Windows (32-bit) 4.90 |
| Windows 98 | Windows (32-bit) 4.10 |
| Windows 95 | Windows (32-bit) 4.00 |
Windows7の64ビットならWindows (64-bit) NT 6.01が返されます。
Windows10は00が返されるとの事ですが、6.02が返されるなど情報が混在しており何とも言えません。ちなみに私のPCではWindows (64-bit) NT.00が表示されました(;´･ω･)
自身のOSのバージョンを取得するコード
自身のOSのバージョンを取得するコードです(^^)
1 2 3 4 5 6 7 8 | Sub sample() Dim osname As String osname = Application.OperatingSystem MsgBox "OS名：" & osname End Sub |
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
Twitterもやってます(^^♪ Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Follow @takabou63
使用OS：
コメントを残す