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