求助一段win32::ole寫入excel的代碼，工作需要

feiying00917

現(xiàn)在要往一個(gè)已經(jīng)存在并有數(shù)據(jù)的excel表格中寫入數(shù)據(jù)，因?yàn)楸砀褚呀?jīng)有數(shù)據(jù)，所以需要在這些數(shù)據(jù)之后插入數(shù)據(jù)，能不能用win32:le寫段代碼，工作需要，求大俠幫忙！
比如 %work={'name'=>'jack',
                     'project'=>'venus',
                     'pid'=>'R0629"
                     'add'=>'shanghai'}
需要插入到一個(gè)excel.xls文件中，使用win32:le,需要知道excel已經(jīng)存在數(shù)據(jù)的行截至數(shù)，然后緊接著下一行插入%work中的值(鍵不需要存入,依次按列插入哈希值，每個(gè)cell存入一個(gè)值即可)，求一段完整代碼，謝謝！

stanley_tam

偶試試{:3_193:}

1. #!perl
   
2. package Xls;
   
3. 
   
4. use strict;
   
5. use Win32::OLE;
   
6. 
   
7. sub new {
   
8.     my ($class) = @_;
   
9.     my $self = +{};
   
10.     bless $self, $class;
    
11.     return $self;
    
12. }
    
13. 
    
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;
    
23. 
    
24.     $workbooks = $excel->Workbooks->Open($xl_doc);
    
25.     return $workbooks;
    
26. }
    
27. 
    
28. sub get_worksheet {
    
29.     my ($self, $workbooks, $num) = @_;
    
30.     my $sheet = $workbooks->Worksheets($num);
    
31.     return $sheet;
    
32. }
    
33. 
    
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. }
    
46. 
    
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. }
    
56. 
    
57. 1;
    
58. 
    
59. package main;
    
60. use strict;
    
61. 
    
62. my $xls_name = '/full/path/to/your/excel.xls';
    
63. 
    
64. # parse the first worksheet
    
65. my $worksheet_number = 1;
    
66. 
    
67. # data to write
    
68. my %work = (
    
69.     name   =>'jack',
    
70.     project=>'venus',
    
71.     pid    =>'R0629',
    
72.     add    =>'shanghai',
    
73. );
    
74. 
    
75. my $pm = Xls->new();
    
76. my $workbooks = $pm->open_excel($xls_name);
    
77. my $worksheet = $pm->get_worksheet($workbooks, $worksheet_number);
    
78. 
    
79. # frist cell
    
80. my $col = 1;
    
81. my $row = 1;
    
82. 
    
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. }
    
89. 
    
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. }
    
95. 
    
96. # close
    
97. $workbooks->Close
    
98. __END__

復(fù)制代碼

wenbinsan

回復(fù) 2# stanley_tam

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