excel - Excel 中的文本框控件 - 如何在 Perl 中引用

Question

我有一个 excel 文件，它在其中一张名为 TextBox1 的工作表上有 TextBox 控件。在这个 TextBox 中有一些文本，我需要提取它们。
我试图在 Perl 的帮助下获取此文本，但是我不知道如何引用 TextBox 控件。

这是我的代码:

use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;    # die on errors...
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new( 'Excel.Application', 'Quit' );    # get already active Excel
                                                          # application or open new
my $Book  = $Excel->Workbooks->Open("25.xls");            # open Excel file
my $Sheet = $Book->Worksheets('Test1');                   # select worksheet number 1
my $array = $Sheet->Range("TextBox1")->{'Value'};         # get the contents
$Book->Close;

foreach my $ref_array (@$array) {                         # loop through the array
                                                          # referenced by $array
    foreach my $scalar (@$ref_array) {
        print "$scalar\t";
    }
    print "\n";
}

请告知如何在 Perl 中引用文本框控件。

Answer 1

这不是合适的答案。但还不能发表评论!所以，希望这有助于引用文本框。

link : suggestion about how to access textbox inside a worksheet in excel

不知道perl。但从 Excel 对象模型的角度来看:

Worksheetname.Textboxname.Text 

或者

Worksheetname.OLEObjects("Textboxname").Object.Text