Java中使用JCOM操作Office对象(2)

　　使用JCOM的时候，查询数据库中所有销售数据需要使用下面的SQL：

　　SELECT sales.id, sales.description, sales.quantity, sales.price, districts.districtname,districts.salestax,people.name,people.commission
　　FROM 'sales','districts','people'
　　WHERE (sales.district = districts.id) AND (sales.salesperson = people.id)

　　 接着使用自动化（automation）把每条记录都写入Excel电子表格的适当的列中。下载的内容中包含了完整的代码（列表2所示）。在下面的部分，我将为你解释代码中使用JCOM的自动化部分。

　　列表2：从数据库中获取数据并载入Excel中的代码

　　// 首先建立Excel的引用
　　ExcelApplication excel = new ExcelApplication(rm);
　　// 使它可视
　　excel.Visible(true);
　　// 接着打开我们将使用的模板工作薄
　　ExcelWorkbooks xlBooks = excel.Workbooks();
　　ExcelWorkbook xlBook = xlBooks.Open("c:\sales.xls");
　　// 接着获取我们将修改的范围的引用
　　ExcelWorksheets xlSheets = xlBook.Worksheets();
　　ExcelWorksheet xlSheet = xlSheets.Item(1);
　　ExcelRange xlRange = xlSheet.Cells();

　　…
　　// 此处放置数据库链接和查询建立代码
　　…

　　if (stmt.execute(strSql))
　　{
　　rs = stmt.getResultSet();
　　}
　　int nColCount = rs.getMetaData().getColumnCount();
　　int nRow=1;
　　int nCol=0;
　　// 在记录集中循环
　　while(rs.next())
　　{
　　// 记录集中的每行都是电子表格中的一行
　　nRow++;
　　for(int i=1;i<=nColCount;i++)
　　{
　　// 匹配DB列和电子表格列
　　nCol = getExcelColumn(i);
　　// 查找于行和列对应的单元格，并把它设置为适当的记录集字段
　　xlRange.Item(nRow,nCol).Value(rs.getObject(i).toString());
　　}
　　// 填入公式
　　xlRange.Item(nRow,7).Value("=RC[-2]*RC[-1]");
　　xlRange.Item(nRow,9).Value("=RC[-2]*RC[-1]/100");
　　xlRange.Item(nRow,10).Value("=RC[-3]+RC[-1]");
　　xlRange.Item(nRow,11).Value("=RC[-4]*((100-RC[2])/100)");
　　}


　　在列表2的第一部分中，其目标是获取希望修改的单元格的控制权。这会花费了一定的开销。

　　· 首先你必须获取表现Excel本身的对象，有了JCOM辅助类的帮助以后，这一步操作相当直接。

　　ExcelApplication excel = new ExcelApplication(rm);
　　
　　· 下一步，你希望获取对工作薄集合的访问权。你希望打开自己的模板工作薄（本示例中这个模板在C:sales.xls中），在工作薄集合中打开它。

　　ExcelWorkbooks xlBooks = excel.Workbooks();

　　· 下一步，你希望打开自己的工作薄并获取该工作薄集合的引用。

　　ExcelWorkbook xlBook = xlBooks.Open("c:\sales.xls");
　　ExcelWorksheets xlSheets = xlBook.Worksheets();

　　· 最后，你希望获取集合中的第一个工作表，并把工作范围定义为整个工作表。

　　ExcelWorksheet xlSheet = xlSheets.Item(1);
　　ExcelRange xlRange = xlSheet.Cells();

　　完成这些工作以后，你的xlRange对象将允许你在单元中放入值和公式了。通过在前面的记录集（从提交给数据库的SQL命令中返回的）中循环，使用xlRange.Item(nRow,nCol).Value("whatever")语法，逐行逐列地把记录集中的值插入到电子表格中（语法中的whatever来自于记录集）。通过使用rs.getObject(i).toString可以得到当前行中I列的值。通过使用rs.movenext()，当前行一直向后移动，直到记录集的末尾。

　　你在列表2中可能会注意到一个奇怪的函数调用：

　　nCol = getExcelColumn(i);

　　这是一个简单的辅助函数，它把记录集中的列编号与Excel中存放数据的位置进行匹配。例如，如果你再次查看上面的SQL语句，佣金费率将返回到第8列。在电子表格中，存放它的列是第13列。这个函数用于处理两者之间的转换。更复杂的应用程序可以使用Excel中的命名（named）范围来匹配列，但是这超出了本文的范围。