Диапазон (Selection, Selection.End (xlDown)). Выберите

Question

Как преобразовать следующий оператор excel vba в perl win32 :: ole statement?

Range(Selection, Selection.End(xlDown)).Select 

Я конвертируются следующим образом, но не работает:

my $Excel = CreateObject OLE "Excel.Application"; 
my $SecondSht = $Book->ActiveSheet; 
$SecondSht->Range("P2")->Select(); 
$SecondSht->Range({$Excel->Selection(), {$Excel->Selection()->End({xlDown})})->Select(); #fails at this statement 
$Excel->Selection->Copy; 
$SecondSht->Range({"Q2"})->Select; 
$SecondSht->Paste; 

Answer 1

Я получил ответ!

$SecondSht->Range($SecondSht->Range("P2"), $SecondSht->Range("P2")->End(xlDown))->Select(); 
$Excel->Selection->Copy; 
$SecondSht->Range("Q2")->Select(); 
$SecondSht->Paste;