以下代码段获取计算机上所有已安装Excel副本的列表(已在Windows XP计算机上进行过试用和测试,同时运行Excel 2003和2007).
Dim reg As RegistryKey
Dim subKey As RegistryKey
Dim rtn As New Dictionary(Of String, String)
reg = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Office")
If reg IsNot Nothing Then
For Each subKeyName As String In reg.GetSubKeyNames
subKey = reg.OpenSubKey(subKeyName)
If subKey IsNot Nothing Then
If subKey.GetSubKeyNames().Contains("Excel") Then
subKey = subKey.OpenSubKey("Excel\InstallRoot")
rtn.Add(subKeyName, subKey.GetValue("Path").ToString)
End If
End If
Next
End If
For Each kvp In rtn
MessageBox.Show(String.Format("Version: {0} at '{1}Excel.exe'", kvp.Key, kvp.Value))
Next
Run Code Online (Sandbox Code Playgroud)
在变量中,rtn
您有一个版本字典(密钥)和安装Excel的目录(值).正如您在MessageBox
代码末尾的位中所看到的,您需要在其末尾添加"Excel.exe".
现在您已经安装了Excel及其版本的副本的位置,您可以创建一个列出它们的表单,以允许用户选择他们希望使用的版本.
虽然我确信你可以找到用Excel打开Excel电子表格的命令行,但我想我会把它包含在这里以便完整;
excel.exe "c:\My Folder\book1.xlsx"
Run Code Online (Sandbox Code Playgroud)
(http://office.microsoft.com/en-us/excel-help/command-line-switches-for-excel-HA010158030.aspx)
有关如何识别已安装的Excel版本及其位置的更完整说明.
归档时间: |
|
查看次数: |
2465 次 |
最近记录: |