还在 Perl 中学习走路(爬行?)。
我有 Perl 代码,我基本上是在尝试遍历数组字符串并在我的工作簿中找到这些工作表(现在,我 100% 肯定会有一个工作簿中提供的名称的工作表)。$worksheet 变量似乎被分配给工作表就好了,基于
print $worksheet->(Name);
测试线。然而,下一行
my $cell = $worksheet->get_cell(1,1);
似乎没有设置单元格,因为以下行不打印单元格值(我知道这是为这种情况设置的)。我知道这一点,因为如果我注释掉“if ($cell)”
my $value = $cell->value() if ($cell);
我得到错误:
Can't call method "value" on an undefined value at script.pl line 14
完整代码在这里:
use strict;
use warnings;
use Spreadsheet::XLSX;
my $excel = Spreadsheet::XLSX -> new ('C:\Scott.xlsm',);
my @sheets = qw(Fund_Data GL_Data);
foreach my $sheet (@sheets) {
my $worksheet = $excel->Worksheet($sheet);
print $worksheet->{Name}, "\n"; #just a test to make it is being set to worksheet
my $cell = $worksheet->get_cell(1,1);
my $value = $cell->value() if ($cell);
print $value, "\n" if ($value);
}
我的结果很简单:
Fund_Data
GL_Data
他们应该在什么时候
Fund_Data
you '--> (Range("A1").Value in Sheet("Fund_Data"))
GL_Data
me '--> (Range("A1").Value in Sheet("GL_Data"))
另外,我构建上面代码的基础是下面的代码,这是经过试验和测试的。上面代码的主要区别是,我不是循环遍历每个工作表,而是尝试根据数组值分配我想要的工作表。
use strict;
use warnings;
use Spreadsheet::XLSX;
my $excel = Spreadsheet::XLSX -> new ('P:\VBA\Help\Book3.xlsx',);
foreach my $sheet (@{$excel -> {Worksheet}}) {
printf("Sheet: %s\n", $sheet->{Name});
my $cell = $sheet->get_cell(2,1);
my $value = $cell->value();
printf("Cell value is: $value");
}