亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 求助一段win32::ole寫入excel的代碼，工作需要 [打印本頁]
作者: feiying00917    時間: 2013-08-25 23:14
標(biāo)題: 求助一段win32::ole寫入excel的代碼，工作需要
現(xiàn)在要往一個已經(jīng)存在并有數(shù)據(jù)的excel表格中寫入數(shù)據(jù)，因為表格已經(jīng)有數(shù)據(jù)，所以需要在這些數(shù)據(jù)之后插入數(shù)據(jù)，能不能用win32:le寫段代碼，工作需要，求大俠幫忙！
比如 %work={'name'=>'jack',
                     'project'=>'venus',
                     'pid'=>'R0629"
                     'add'=>'shanghai'}
需要插入到一個excel.xls文件中，使用win32:le,需要知道excel已經(jīng)存在數(shù)據(jù)的行截至數(shù)，然后緊接著下一行插入%work中的值(鍵不需要存入,依次按列插入哈希值，每個cell存入一個值即可)，求一段完整代碼，謝謝！
作者: stanley_tam    時間: 2013-08-26 14:13
偶試試{:3_193:}
  1. #!perl
  2. package Xls;

  4. use strict;
  5. use Win32::OLE;

  7. sub new {
  8.     my ($class) = @_;
  9.     my $self = +{};
  10.     bless $self, $class;
  11.     return $self;
  12. }

  14. sub open_excel {
  15.     my $self   = shift;
  16.     my $xl_doc = shift;
  17.     my $excel = Win32::OLE->new('Excel.Application') or
  18.         die "Excel application is not installed:\n";
  19.     my $workbooks;
  20.    
  21.     # make excel visible
  22.     $excel->{Visible} = 1;

  24.     $workbooks = $excel->Workbooks->Open($xl_doc);
  25.     return $workbooks;
  26. }

  28. sub get_worksheet {
  29.     my ($self, $workbooks, $num) = @_;
  30.     my $sheet = $workbooks->Worksheets($num);
  31.     return $sheet;
  32. }

  34. sub get_cell_value {
  35.     my ($self, $sheet, $row, $col) = @_;
  36.     my $cell_obj = $sheet->Cells($row, $col);
  37.     my $value = q{};
  38.    
  39.     if ($cell_obj){
  40.         $value = $sheet->Cells($row, $col)->{Value};
  41.     }
  42.     $value ||= q{};
  43.    
  44.     return $value;
  45. }

  47. sub set_cell_value {
  48.     my ($self, $sheet, $row, $col, $value) = @_;
  49.     my $cell_obj = $sheet->Cells($row, $col);
  50.     $value ||= q{};
  51.    
  52.     if ($cell_obj){
  53.         $sheet->Cells($row, $col)->{Value} = $value;
  54.     }
  55. }

  57. 1;

  59. package main;
  60. use strict;

  62. my $xls_name = '/full/path/to/your/excel.xls';

  64. # parse the first worksheet
  65. my $worksheet_number = 1;

  67. # data to write
  68. my %work = (
  69.     name   =>'jack',
  70.     project=>'venus',
  71.     pid    =>'R0629',
  72.     add    =>'shanghai',
  73. );

  75. my $pm = Xls->new();
  76. my $workbooks = $pm->open_excel($xls_name);
  77. my $worksheet = $pm->get_worksheet($workbooks, $worksheet_number);

  79. # frist cell
  80. my $col = 1;
  81. my $row = 1;

  83. # get the cell in column one that has no value within
  84. while (1) {
  85.     my $cell_value = $pm->get_cell_value($worksheet, $row, $col);
  86.     last if !$cell_value;
  87.     $row++;
  88. }

  90. # write data in ordered sequences
  91. for my $key ('name', 'project', 'pid', 'add'){
  92.     $pm->set_cell_value($worksheet, $row, $col, $work{$key});
  93.     $col++;
  94. }

  96. # close
  97. $workbooks->Close
  98. __END__
復(fù)制代碼
作者: wenbinsan    時間: 2013-09-05 11:07
回復(fù) 2# stanley_tam

學(xué)習(xí)了，bless


   



歡迎光臨 Chinaunix (http://72891.cn/) Powered by Discuz! X3.2