有什么办法可以得知目前系统中安装的 excel 版本？

BCB 6 可以用下面的方法...但 C# 我因为刚开使用实在是找不到类似的方法

AnsiString OfficeVer;
AnsiString GetOfficeVer(){
AnsiString s0;
double d1;                  
    //取得 Office 的版本并存在公用变数 AnsiString OfficeVer
    Variant objExcel = Variant::CreateObject("Excel.Application");
    OfficeVer=objExcel.OlePropertyGet("Version");
    VarClear(objExcel);
   
    if(OfficeVer.IsEmpty()) s0="(是否未安装 MS office?)";
    else{
        d1=OfficeVer.ToDouble();
        if(d1>=14) s0="2010";
        else if(d1>=12) s0="2007";
        else if(d1>=10) s0="XP";
        else if(d1>=9) s0="2000";
        else if(d1>=8) s0="97";
        else if(d1>=7) s0="95";

        s0="(Office "+s0+")";
    }

    return(s0);
}

try
{
//   which   ever   version   of   Excel   was   referenced   to   build   the   interop   file
//   should   be   installed   on   client   machines
excelApp   =   new   Excel.Application(); 

//   create   the   task   list   on   the   first   worksheet   in   the   workbook
workBook   =   excelApp.Workbooks.Add(XlWBATemplate.xlWBATWorksheet);
ws   =   (Worksheet)   workBook.Worksheets[1];
}
catch
{
//   remove   the   excel   references:   Excel,   Microsoft.Office.Core,   and   VBIDE   and   re-add
//   the   COM   reference   Microsoft   Excel   10.0   Type   Library.
MessageBox.Show( "An   incompatible   version   of   Microsoft   Excel   is   intalled   on   your   system. ");
return;
} 

版主你的這個只能檢查是否有安裝 excel
我是希望能確認版本

http://

注册表啊！

刚刚发现的另一个判断是否有 excel 的方法

//判断本机是否安装Excel文件方法
private bool codeboolisExcelInstalled()
{
  Type type = Type.GetTypeFromProgID("Excel.Application");
  return type != null;
}

再没有办法取得 Version 之前只能用下面的方式了

ps: 補充說明一下我不喜歡用 regedit 去識別的原因是必須檢查所有的可能
萬一有新版就會破功，像我原先的 BCB 我可以直接檢查 >=12 就可以辨識 .xls 或 .xlsx
    if(OfficeVer.ToDouble()>=12) s1=".xlsx";
    else s1=".xls";


转贴自 http://topic.

/// <summary>
/// Self_Variable:查询注册表某个键值是否存在
/// </summary>
/// <returns></returns>
public bool ExistsRegedit()
{
  bool ifused = false;
  RegistryKey rk = Registry.LocalMachine;
  RegistryKey akey = rk.OpenSubKey(@"SOFTWARE\\Microsoft\\Office\\11.0\\Word\\InstallRoot\\");
  RegistryKey akeytwo = rk.OpenSubKey(@"SOFTWARE\\Microsoft\\Office\\12.0\\Word\\InstallRoot\\");
  //检查本机是否安装Office2003
  if (akey != null)
  {
  string file03 = akey.GetValue("Path").ToString();
  if (File.Exists(file03 + "Excel.exe"))
  {
  ifused = true;
  }
  }
  //检查本机是否安装Office2007
  if (akeytwo != null)
  {
  string file07 = akeytwo.GetValue("Path").ToString();
  if (File.Exists(file07 + "Excel.exe"))
  {
  ifused = true;
  }
  }
  return ifused;
}


[ 本帖最后由 jtain 于 2011-12-7 14:26 编辑 ]

上面的傳回值應該改成 int
並且要加上其他個版本的 Excel regedit 值
也就是用 0,1,2 來帶表示是否有EXCEL或 2003 以前，以及 2007 以後
不過我始終無法正確輸入那個驗證碼...所以放棄修改

終於弄出正確的檢查方式
        //-----------------------------------------------
        //判斷本機是否安裝Excel文件方法
        private bool codeboolisExcelInstalled()
        {
            Type type = Type.GetTypeFromProgID("Excel.Application");
            return type != null;
        }

        private double JongCheckExcelVer()
        {
            Type objExcelType = Type.GetTypeFromProgID("Excel.Application");
            if (objExcelType == null)
            {
                return 0;
            }
            object objApp = Activator.CreateInstance(objExcelType);
            if (objApp == null)
            {
                return 0;
            }
            object objVer = objApp.GetType().InvokeMember("Version", BindingFlags.GetProperty, null, objApp, null);
            double iVer = Convert.ToDouble(objVer.ToString());
            return iVer;
        }

        public String JongGetExcelVerStr()
        {
            String s1;
            double excelver;
            excelver = JongCheckExcelVer();// ExistsExcelRegedit();
            s1 = " Office ";
            if (excelver == 0)
            {
                MessageBox.Show("無法識別Excel的版本", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Information);
                s1 = "無法識別 office 版本";
            }
            else if (excelver >= 14) s1 += "2010或以上";
            else if (excelver >= 12) s1 += "2007";
            else if (excelver >= 11) s1 += "2003";
            else if (excelver >= 10) s1 += "XP";
            else if (excelver >= 9) s1 += "2000";
            else if (excelver >= 8) s1 += "97";
            else if (excelver >= 7) s1 += "95";

            return s1;
        }
        /*
            if (!codeboolisExcelInstalled())
            {
                MessageBox.Show("Excel不存在", "錯誤", MessageBoxButtons.OK, MessageBoxIcon.Information);
                return;
            }
            this.Text += JongGetExcelVerStr();
         */

因为发现在工作管理员会残留一个 execl.exe ,所以加上强制清除
因为不知道是否还有其他更好的释放方式，目前我就只能这样清除
底下这一段加在 return iVer; 之前

            objVer = null;
            objApp = null;
            objExcelType = null;
            GC.Collect();