在VB.NET中怎么判断系统安装了Excel？

felixyau

如题哦，在VB。NET中怎么样判断系统中安装了excel？？？
现在做一个软件，需要读取表格中的数据
有些电脑安装的是wps，有些安装的是excel
现在需要判断系统中是否安装了excel
请问怎么判断呢？？？？？？

amesman

1. On Error Resume Next
   
2.         Dim xlsApp As Object
   
3.         xlsApp = CreateObject("Excel.Application")
   
4.         If Err.Number <> 0 Then
   
5.             Err.Clear()
   
6.             MsgBox("本机没有安装Excel")
   
7.         Else
   
8.             MsgBox("本机安装了Excel")
   
9.         End If
   
10.         xlsApp = Nothing

复制代码

felixyau

amesman 发表于 2013-1-17 20:00

非常非常感谢
还有一个问题就是
怎么样判断后台有excel进程，如果有就关闭后台的excel进行？？？
出现这个问题就是在程序当中新建了excel进程，没有关闭，下一次打开同样一个文件的时候就是以只读的方式打开，保存的时候就会出错，就是想在打开文件时判断有没有后台excel进程打开

amesman

1. Dim i As Integer
   
2.         Dim Proc As Process()
   
3.         If System.Diagnostics.Process.GetProcessesByName("Excel").Length > 0 Then
   
4.             Proc = Process.GetProcessesByName("Excel")
   
5.             For i = 0 To Proc.Length - 1
   
6.                 Proc(i).Kill()
   
7.             Next
   
8.         End If
   
9.         Proc = Nothing

复制代码

tet208

上面的程序 是 kill所有的excel 与楼主的意思不符啊。。这个。。有点复杂。。要么 你在内存中查找有没有对这个文件的打开句柄。。找到了自然就是有程序在用。没找到就没有被用。。
找到句柄后寻找这个句柄的进程。。然后再干掉他。。。。这样就不盲目了。。。但是 代码可能写起来很费劲。。

我测试的VSTO程序的一些函数在一些老系统的XP中遍历句柄 或者遍历控件 会失效。。。

判断excel  无非2种。判断注册表 判断exe文件。。。
判断文件 在单系统的硬盘上有效。。而多操作系统如果另外一个系统安装了。。这个就可能会有错误
判断注册表 是找office的键值，但是好像还不太容易判断是不是安装了excel。。excel只是一个产品而已。。也许有人就喜欢word呢。。

所以你可以找xls文件关联的打开方式 里面有没有 excel程序。。如果有。。里面会带一个硬盘路径地址连接。。判断文件在不在。。这样就肯定安装了excel

felixyau

tet208 发表于 2013-1-27 20:30
上面的程序 是 kill所有的excel 与楼主的意思不符啊。。这个。。有点复杂。。要么 你在内存中查找有没有对这 ...

非常感谢，先消化消化
主要是如果程序出错了，会留下打开该文件的进程，下一次打开该文件的时候就会出错