Как перевести этот код с Visual Basic на Perl?

Question

Я пытаюсь экспортировать электронную таблицу Excel в SharePoint. Я записал код Visual Basic, и теперь я хочу перевести его на Perl. Я так пробовал, но это не сработало.

У меня нет ошибок, но я также не вижу список в Sharepoint. Когда я сделал это с помощью макроса в Excel он работал

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 

В конце концов я пришел с этим кодом

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); 

И это изображение показывает результат

Answer 1

Вы можете взглянуть на это: Convert perl script to vba У этого уже есть ответы.

Возможно, вам потребуется следовать этому сценарию. % pp -o hello hello.pl или что-то в этом роде.

Answer 2

Вы должны use strict и use warnings. Затем он будет сообщать вам несколько сообщений об ошибках.

Что я могу сделать из кода Perl вы публикуемые без запуска это:

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

Обратите внимание, что существует пространство между Publish и Array(. Это должно быть проблемой. Единственный способ иметь функцию cal, за которой следует что-то, кроме ( или ; или ,, если у него есть прототипы. Но вызовы методов в объектно-ориентированном Perl не могут иметь прототипы. Так что это определенно неправильно.

Тогда есть Array(...). Нет встроенной функции, называемой Array, и я не думаю, что Win32 :: OLE :: Const экспортирует это, хотя я не смотрел. Даже если бы это было так, вы сказали, чтобы он экспортировал только 'Microsoft Excel'. То же самое касается False.

Предлагаю вам прочитать documentation of Win32::OLE::Const и добавить use strict и use warnings. Есть также некоторые ресурсы, как работать с модулями Win32 на Sinan Ünürs blog.