一种可能性是检查C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6中是否存在VBE6.DLL。或者搜索注册表,查找对此DLL或字符串VBA的引用。
请注意,在Office 2010中,由于VBA编辑器有一些更改,此位置/文件名可能会有所不同。
public static class VbePrerequisiteDetector {
private const string VbeInstallationPathKey = @"SOFTWARE\Microsoft\VBA";
private const string Vbe6InstallationPathValue = "Vbe6DllPath";
private const string Vbe7InstallationPathValue = "Vbe7DllPath";
/// <summary>
/// Return true if VBE6 installed. VBE6 is prerequisite for for Office2003 and Office2007
/// </summary>
/// <returns>Return true if VBE6 installed.</returns>
public static bool IsVbe6Installed() {
try {
RegistryKey vbaPathKey = Registry.LocalMachine.OpenSubKey(VbeInstallationPathKey);
if (vbaPathKey != null) {
if (vbaPathKey.GetValue(Vbe6InstallationPathValue) != null) {
string pathToVbe = (string)vbaPathKey.GetValue(Vbe6InstallationPathValue);
if (File.Exists(pathToVbe)) {
return true;
}
}
}
}
catch (Exception) {
//Ignore all exceptions
}
return false;
}
/// <summary>
/// Return true if VBE7 installed. VBE7 is prerequisite for for Office2010
/// </summary>
/// <returns>Return true if VBE7 installed.</returns>
public static bool IsVbe7Installed() {
try {
RegistryKey vbaPathKey = Registry.LocalMachine.OpenSubKey(VbeInstallationPathKey);
if (vbaPathKey != null) {
if (vbaPathKey.GetValue(Vbe7InstallationPathValue) != null) {
string pathToVbe = (string)vbaPathKey.GetValue(Vbe7InstallationPathValue);
if (File.Exists(pathToVbe)) {
return true;
}
}
}
}
catch (Exception) {
//Ignore all exceptions
}
return false;
}
}
为什么不尝试这样的函数... 在这里找到
Option Explicit
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Sub cmdCheck_Click()
MsgBox "Exist ??? =" & CheckForComponent("user32.dll")
End Sub
Private Function CheckForComponent(ComPath As String) As Boolean
Dim Ret As Long
Ret = LoadLibrary(ComPath)
FreeLibrary Ret
If Ret = 0 Then
CheckForComponent = False
Else
CheckForComponent = True
End If
End Function
Private Declare Function MsiQueryFeatureState Lib "Msi" Alias "MsiQueryFeatureStateA" (ByVal Product As String, ByVal Feature As String) As Long
Public Function FVbaAvailable() As Boolean
Dim objExcelApp As Object
Dim strProductCode As String
Dim nState As Long
Dim fAvailable As Boolean = False
Try
' Start an Excel instance and get the product code.
objExcelApp = CreateObject("Excel.Application")
strProductCode = DirectCast(objExcelApp.ProductCode, String)
' Get FeatureState for the VBAFiles Feature.
nState = MsiQueryFeatureState(strProductCode, "VBAFiles")
If (nState = 1) OrElse (nState = 3) OrElse (nState = 4) Then
' VBA is available.
fAvailable = True
End If
' Clean up.
objExcelApp.Quit()
Runtime.InteropServices.Marshal.FinalReleaseComObject(objExcelApp)
objExcelApp = Nothing
Catch ex As Exception
Trace.WriteLine(ex.Message)
End Try
Return fAvailable
End Function