下面是编程之家 jb51.cc 通过网络收集整理的代码片段。
编程之家小编现在分享给大家,也给大家做个参考。
#!/usr/bin/perl -w use Win32::OLE; use Win32::OLE::Const 'Microsoft Excel'; $class = 'Excel.Application'; $app = Win32::OLE->new( $class ) or die "Cannot connect to Excel,$!"; # Make application visible. $app->{'Visible'} = 1; # Create a new workbook. $workbook = $app->Workbooks->Add(); # Set values in a "range". $app->Range("A1")->{'Value'} = "A"; $app->Range("B1")->{'Value'} = "B"; $app->Range("B2")->{'Value'} = "C"; $app->Range("C2")->{'Value'} = "D"; $app->Range("A3")->{'Value'} = "E"; $app->Range("B3")->{'Value'} = 10; $app->Range("C3")->{'Value'} = 10; # # Make a chart. # $worksheet = $workbook->Worksheets(1); $chart_range = $worksheet->Range("B3:C3"); $chart = $app->Charts->Add(); #$chart->{'ChartType'} = xlAreaStacked; $chart->SetSourceData( { Source => $chart_range,PlotBy => xlColumns } ); $chart->{'HasTitle'} = 1; $chart->ChartTitle->{'Text'} = "Chart Title"; # Leave Excel running. Use $app->Quit() to exit. #$app->Quit();
以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。