excel|数据
一个打开Excel AP制作EXCEL数据的简单范例。
<code><font color="#000000"><font color="#0000bb"></font><font face="新宋体"><font color="#007700"><br></font><font color="#0000bb">$excel </font><font color="#007700">= new </font><font color="#0000bb">COM</font><font color="#007700">(</font><font color="#dd0000">"Excel.Application"</font><font color="#007700">) or die(</font><font color="#dd0000">"Unable to instanciate Excel"</font></font><font face="新宋体"><font color="#007700">);<br><br></font><font color="#0000bb">$excel</font><font color="#007700">-></font><font color="#0000bb">Visible </font><font color="#007700">= </font><font color="#0000bb">0</font></font><font face="新宋体"><font color="#007700">;<br><br></font><font color="#0000bb">$book</font><font color="#007700">=</font><font color="#0000bb">$excel</font><font color="#007700">-></font><font color="#0000bb">Workbooks</font><font color="#007700">-></font><font color="#0000bb">Add</font></font><font face="新宋体"><font color="#007700">;<br></font><font color="#0000bb">$book</font><font color="#007700">-></font><font color="#0000bb">Title</font><font color="#007700">=</font><font color="#dd0000">"excel范例"</font></font><font face="新宋体"><font color="#007700">;<br></font><font color="#0000bb">$book</font><font color="#007700">-></font><font color="#0000bb">Subject</font><font color="#007700">=</font><font color="#dd0000">"这是Excel范例程序制作的Excel档"</font></font><font face="新宋体"><font color="#007700">;<br><br></font><font color="#0000bb">$sheet</font><font color="#007700">=</font><font color="#0000bb">$book</font><font color="#007700">-></font><font color="#0000bb">Worksheets</font><font color="#007700">(</font><font color="#dd0000">"Sheet1"</font></font><font face="新宋体"><font color="#007700">);<br></font><font color="#0000bb">$Range</font><font color="#007700">=</font><font color="#0000bb">$sheet</font><font color="#007700">-></font><font color="#0000bb">Range</font><font color="#007700">(</font><font color="#dd0000">"A1:C10"</font></font><font face="新宋体"><font color="#007700">);<br>For(</font><font color="#0000bb">$i</font><font color="#007700">=</font><font color="#0000bb">1</font><font color="#007700">;</font><font color="#0000bb">$i</font><font color="#007700"><font color="#0000bb">10</font><font color="#007700">;</font><font color="#0000bb">$i</font></font><font face="新宋体"><font color="#007700">++):<br> For(</font><font color="#0000bb">$j</font><font color="#007700">=</font><font color="#0000bb">1</font><font color="#007700">;</font><font color="#0000bb">$j</font><font color="#007700"><font color="#0000bb">3</font><font color="#007700">;</font><font color="#0000bb">$j</font></font><font face="新宋体"><font color="#007700">++):<br> </font><font color="#0000bb">$cell</font><font color="#007700">=</font><font color="#0000bb">$Range</font><font color="#007700">-></font><font color="#0000bb">Cells</font><font color="#007700">(</font><font color="#0000bb">$j</font><font color="#007700">,</font><font color="#0000bb">$i</font></font><font face="新宋体"><font color="#007700">);<br> </font><font color="#0000bb">$cell</font><font color="#007700">-></font><font color="#0000bb">value</font><font color="#007700">=</font><font color="#0000bb">Chr</font><font color="#007700">(</font><font color="#0000bb">$i</font><font color="#007700">+</font><font color="#0000bb">64</font><font color="#007700">).</font><font color="#0000bb">$j</font><font color="#007700">; </font></font><font face="新宋体" color="#ff8000">## 塞入A1:C10的值<br> </font><font face="新宋体"><font color="#007700">EndFor;<br>EndFor;<br><br></font><font color="#0000bb">$book</font><font color="#007700">-></font><font color="#0000bb">SaveAs</font><font color="#007700">(</font><font color="#dd0000">"c:\excel.xls"</font><font color="#007700">); </font></font><font face="新宋体"><font color="#ff8000">## 存档<br><br></font><font color="#0000bb">$excel</font><font color="#007700">-></font><font color="#0000bb">Quit</font></font><font face="新宋体"><font color="#007700">();<br></font><font color="#0000bb">$excel</font><font color="#007700">-></font><font color="#0000bb">Release</font></font><font face="新宋体"><font color="#007700">();<br></font><font color="#0000bb">$excel </font><font color="#007700">= </font><font color="#0000bb">null</font></font><font face="新宋体"><font color="#007700">;<br><br></font><font color="#0000bb">?></font></font></font></font></font> |
