使用Win32 :: OLE在Access 2007中执行宏

Question

当前，我正在尝试通过Perl OLE在Microsoft Access中执行宏

我想知道如何正确地发出调用以运行宏。 我努力了

1） $oDatabase -> DoCmd.RunMacro("Macro1");
2） $oDatabase -> DoCmd -> RunMacro("Macro1");

但是他们让我“无法在未定义的值上调用方法“ DoCmd””或“对合并的无用使用”

是否有可能通过Win :: 32 OLE执行DoCmd？ 任何帮助将不胜感激。

这是完整的代码。 它尝试查找打开的当前Microsoft Access。

use strict; 
use warnings; 
use Win32::OLE;

my $oAccess;
my $oDatabase;

my $filename = "C:\\Sample.accdb"; 
$oAccess = Win32::OLE->GetActiveObject('Access.Application');

$oDatabase = $oAccess->OpenCurrentDatabase($filename);
$oDatabase -> DoCmd.RunMacro("Macro1");

Answer 1

根据Microsoft相当混乱的文档 ， DoCmd是Application对象的属性 ，而RunMacro是DoCmd的方法 。 在Win32 :: OLE中，方法使用方法语法，而属性使用哈希语法。 （点“。”是Visual Basic语法。在Perl 5中，使用“->”）。

因此，代码的最后两行应该是（我认为）：

$oAccess->OpenCurrentDatabase($filename);
$oAccess->{DoCmd}->RunMacro("Macro1");

我没有Access 2007，所以无法测试。

请注意， OpenCurrentDatabase不返回任何内容，这就是为什么当您尝试在$ oDatabase（undef）上调用方法时，得到“无法在未定义的值上调用方法“ DoCmd”的原因。

到Microsoft文档的链接在2009年8月23日有效，但是Microsoft从未读取Cool URI不变 ，因此您的工作量可能会有所不同。

Answer 2

正如HansUp所说，您应该使用Access的Application实例变量来使用DoCmd。
就您而言，它将转化为

$oAccess->DoCmd.RunMacro("macro1");

注意：我不知道Perl :)