Win32::OLE::Const->Load('Microsoft Excel'); 取决于 Excel 版本

Question

我在 perl 中使用Win32::OLE::Const->Load() ：

$xl = Win32::OLE::Const->Load('Microsoft Excel');

然后我测试scalar(keys %{$xl})是否为零：

 if (scalar(keys %{$xl})==0) {
        return False;
    }
    else {
        return True;
    }

我在支持 Microsoft Excel 2003 的机器上测试了这段代码，它给出了True ，但是当我在装有 Microsoft Excel 2013 的机器上测试相同的代码时，它给了我False ！

我还在第一台机器上打印了scalar(keys %{$xl} ，它给出了 2023，在第二台机器上它是 0！

此致

Answer 1

搜索后我找到了解决方案。

它在第二台机器中给出 0，因为注册表中没有 win32 Excel 键。

解决方案是在HKEY_CLASSES_ROOT\\TypeLib\\{00020813-0000-0000-C000-000000000046}\\1.8\\0\\