如何将此代码从Visual Basic转换为Perl？

我正在尝试将Excel电子表格导出到SharePoint。 我logging了Visual Basic代码，现在我想把它翻译成Perl。 我试过这样，但没有奏效。

我没有得到任何错误，但我也没有看到Sharepoint中的列表。 当我在Excel中使用macros时，它工作

use Win32::OLE::Const 'Microsoft Excel'; my $excel = Win32::OLE->new('Excel.Application'); $excel->{'Visible'} = 1; $excel->{DisplayAlerts} = 1; my $book = $excel->Workbooks->Open("C:\\Book1.xlsx") || die("Unable to open document ", Win32::OLE->LastError()); my $list = $book->ActiveSheet->ListObjects("Table1")->Publish Array("https:\/\/sponsor\/sites\/dev_test_site", "myname"), False; 

原始的Visual Basic代码

 Sub Macro1() ActiveSheet.ListObjects("Table1").Publish Array( _ "https://sponsor/sites/dev_test_site", "myname"), False Range("C2").Select End Sub 

最终我想出了这个代码

• Windows中的Perl单线程错误
• 使用perl在windows资源pipe理器中打开UNCpath
• 如何在从Win32 :: Process启动的Perl进程中获得输出？
• 执行perl脚本作为传递的参数
• 如何在后台运行.exe，使用perl PAR的pp模块从perl脚本创build

 my $excel = Win32::OLE->new('Excel.Application'); $excel->{'Visible'} = 1; $excel->{DisplayAlerts} = 1; my $book = $excel->Workbooks->Open("C:\\Book1.xlsm") || die("Unable to open document ", Win32::OLE->LastError()); my @array=("https:\/\/sponsor\/sites\/dev_test_site", "aaaa"); my $list= $book->ActiveSheet->ListObjects("hhhh")->Publish(@array, 0); 

这张图片显示了结果

 my $list= $book->ActiveSheet->ListObjects("Table1")->Publish Array("https:\/\/sponsor\/sites\/dev_test_site", "myname"), False;