perlのxlsxモジュールを使用してexcelファイルに新しい行を追加できません

Question

Excelで新しい行を追加しようとしていますが、前回のデータは上書きされます。 2行目の同じデータを書き込むために再びループするループのためではなく、代わりに、

use strict; 
use warnings; 
use Excel::Writer::XLSX; 

my $workbook = Excel::Writer::XLSX->new('ke.xlsx');#create the excel 

my $worksheet = $workbook->add_worksheet(); 

my $server= "se"; 
my $domain = "de"; 
my $backup = "b"; 



# Some sample data for the table. 
my $data = [[ $server, $domain ,$backup], 
    ]; 
$worksheet->set_column('A:G', 20); 

for(my $i = 0 ;$i<2;$i++){ 
    $worksheet->add_table( # Add a table to the worksheet. 
    'A1:G8', 
    { 
     data  => $data, 
     total_row => 1, 
     columns => [ 
      { 

       header => 'server name', 
      }, 

      { 
       header   => 'Domain Name', 


      }, 
      { 
       header   => 'Back Up address', 


      } 
     ] 
    } 
); 

} 

Answer 1

コードがA1:G8に毎回テーブルを書き込む既存のデータを書き換えます。異なる場所にテーブルを配置する場合は、テーブルを変更する必要があります。

Answer 2

は、サンプルデータを使用して私のために動作するようです：私はこのモジュールに取り組んできました

use strict; 
use warnings; 
use Excel::Writer::XLSX; 

my $workbook = Excel::Writer::XLSX->new('ke.xlsx');#create the excel 

my $worksheet = $workbook->add_worksheet(); 

#my $server= "se"; 
#my $domain = "de"; 
#my $backup = "b"; 

# Some sample data for the table. 
#my $data = [[ $server, $domain ,$backup], 
# ]; 

my $data = [ ["se", "de","b"], 
      ["ll", "pp","t"], 
      ["yu", "ar","e"], 
      ["gt", "po","w"], 
      ["br", "tp","g"] ]; 
$worksheet->set_column('A:G', 20); 

for(my $i = 0 ;$i<2;$i++){ 
    $worksheet->add_table( # Add a table to the worksheet. 
    'A1:G8', 
    { 
     data  => $data, 
     total_row => 1, 
     columns => [ 
      { 
       header => 'server name', 
      }, 

      { 
       header => 'Domain Name', 
      }, 
      { 
       header => 'Back Up address', 
      } 
     ] 
    } 
); 

} 

Answer 3

、しかし、我々は、我々は$ worksheet-> write_rowを代わりに使用add_tableを使用していませんでした。 は、私はあなたが使用してデータを書き込んでみるべきだと思いwrite_row https://metacpan.org/pod/Excel::Writer::XLSX

あなたはご覧下さいadd_tableの詳細例については、その後、write_rowを使用しない場合：:)に役立ちます