Office関連

インストールされているアプリケーション一覧を取得するVBAマクロ

端末にインストールされているアプリケーション名を調べる必要があったので、StdRegProvクラスを使った簡単なマクロを書いてみました。

Option Explicit

Public Sub ListInstalledApplication()
  Dim reg As Object
  Dim keys As Variant
  Dim key As Variant
  Dim ret As Long
  Dim display_name As String
  Const HKEY_LOCAL_MACHINE = &H80000002
  Const SubKeyName = "Software\Microsoft\Windows\CurrentVersion\Uninstall\"
  
  Set reg = CreateObject("WbemScripting.SWbemLocator") _
            .ConnectServer(, "root\default").Get("StdRegProv")
  reg.EnumKey HKEY_LOCAL_MACHINE, SubKeyName, keys
  On Error Resume Next
  For Each key In keys
    display_name = ""
    ret = reg.GetStringValue(HKEY_LOCAL_MACHINE, SubKeyName & key, "DisplayName", display_name)
    If ret <> 0 Then ret = reg.GetStringValue(HKEY_LOCAL_MACHINE, SubKeyName & key, "QuietDisplayName", display_name)
    If (ret = 0) And (Len(Trim(display_name)) > 0) Then
      Debug.Print display_name
    End If
  Next
  On Error GoTo 0
End Sub

HKEY_LOCAL_MACHINE\Software\Microsoft
\Windows\CurrentVersion\Uninstall
にあるキーからDisplayName(QuietDisplayName)を抜き出すだけのシンプルなマクロです。

■ 関連Webページ

・EnumKey method of the StdRegProv class (Windows)
http://msdn.microsoft.com/en-us/library/aa390387.aspx
・Uninstall Registry Key (Windows)
http://msdn.microsoft.com/en-us/library/aa372105.aspx
・コンピューターでアンインストールできるソフトウェア製品を列挙する方法
http://support.microsoft.com/kb/821775/ja
・ITmedia エンタープライズ:Windows Tips「インストールされているアプリケーションの一覧を確認したい」
http://www.itmedia.co.jp/help/tips/windows/w0135.html

関連記事

  1. リボン関連

    Re: 【Wordマクロ】Word起動時に、前回終了時に開いていたファイルを表示

    Word MVPの新田さんがブログで面白い記事を書かれていました。…

  2. Office アドイン

    [Office用アプリ]第三回 Apps for Office 勉強会で登壇しました。

    10月4日(土)に開催されたOffice 用アプリの勉強会「第3回 A…

  3. Office アドイン

    [Office用アプリ]Excel 2013の操作を動画で学べるアプリ「Excel video tu…

    Excel 2013の操作を動画で学べるアプリがMicrosoftから…

  4. Office関連

    「Excel VBAの神様 ボクの人生を変えてくれた人」(大村あつし著)レビュー

    ※ 下記レビューはあくまでも個人的な感想です。2015年9…

  5. リボン関連

    右クリックから図形の配置 for Office 2013

    HPの掲示板に"右クリックから「配置」を実行できないか?"という質問が…

  6. Office アドイン

    [Office用アプリ]カレンダーから日付を入力するコンテンツアプリ。

    ※ この情報はOffice 2013 カスタマー プレビュー版を元にし…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

アーカイブ

おすすめ記事

RapidSSL_SEAL-90x50
  1. 人気記事

    2013年11月の人気記事
  2. Microsoft Edge

    Microsoft Edgeのバージョン情報をクリップボードにコピーするVBSc…
  3. Office関連

    [Excel]別インスタンスからの貼り付け時のダイアログを非表示にする方法
  4. Office関連

    Office 2016関連資料のリンク(2)
  5. Office関連

    埋め込んだブックへのユーザー入力を活用する
PAGE TOP