Çözüldü Ofis sürümü bilgisinin hücreye yazdırılması

[klop01]

Arkadaşlar,
Bilgisayarımızda kullandığımız ofis sürümünün ne olduğunu makro ile A1 hücresine alabiliyor muyuz?
Bilgisayarda ofis 2016 yüklü ise excel dosyasını açtığımızda Sayfa1 A1'e 2016 yazsın şeklinde.

İnternet'te konuya ilişkin koda rastlamadım fakat ACCESS için hazırlanmış aşağıdaki kod var. Böyle bir kod excel için var mı, olabilir mi?

void Main()
{
    Console.WriteLine(GetOfficeVersion());
}


public string GetOfficeVersion()
{
    string sVersion = string.Empty;
    Microsoft.Office.Interop.Access.Application appVersion = new Microsoft.Office.Interop.Access.Application();
    appVersion.Visible = false;
    switch (appVersion.Version.ToString())
    {
        case "7.0":
            sVersion = "95";
            break;
        case "8.0":
            sVersion = "97";
            break;
        case "9.0":
            sVersion = "2000";
            break;
        case "10.0":
            sVersion = "2002";
            break;
        case "11.0":
            sVersion = "2003";
            break;
        case "12.0":
            sVersion = "2007";
            break;
        case "14.0":
            sVersion = "2010";
            break;
        case "15.0":
            sVersion = "2013";
            break;
        case "16.0":
            sVersion = "2016";
            break;
        default:
            sVersion = "Sürüm Bulunamadı";
            break;
    }
    
    return sVersion;
}

 

[Haluk]

Eğer o kodda yazılanlar doğruysa, Excel'e uyarlanmış kod;

Sub Test()
    Select Case Application.Version
    Case "7.0":
        sVersion = "95"
    Case "8.0"
        sVersion = "97"
    Case "9.0"
        sVersion = "2000"
    Case "10.0"
        sVersion = "2002"
    Case "11.0"
        sVersion = "2003"
    Case "12.0"
        sVersion = "2007"
    Case "14.0"
        sVersion = "2010"
    Case "15.0"
        sVersion = "2013"
    Case "16.0"
        sVersion = "2016"
    Case Else
        sVersion = "Sürüm Bulunamadı"
    End Select
   
    MsgBox sVersion
    Range("A1") = sVersion
End Sub

.

 

[klop01]

Haluk Bey,
Yardımınız için teşekkürler.
Bende 2016 ofis kurulu, makroyu çalıştırdığımda sürümü doğru bir şekilde gösterdi.

1. iletimde yazdığım makroyu aldığım site: https://social.msdn.microsoft.com/Forums/tr-TR/657080e4-bed7-43cf-b46f-c83def5140d2/office-srmn-renme?forum=csharptr