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

我有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中引用Text Box控件。

Answer 1

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

链接：有关如何访问Excel中的工作表内的文本框的build议

不知道perl。 但是从Excel对象模型的angular度来看：

 Worksheetname.Textboxname.Text 

要么

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