kapok

圖1：Java中使用Excel的第一個COM自動化

　　如果曾經(jīng)使用VB或VBA來自動化Excel，那么你應(yīng)該很熟悉列表1中的代碼了。ExcelApplication類暴露了Workbooks()屬性，它列舉出Excel中當(dāng)前打開的工作薄（workbook），并允許你向運行的Excel副本增加或刪除工作薄。使用.Add()方法增加工作薄，這個方法會返回一個工作薄的引用。

　　在Excel中工作薄用于保存輸入的數(shù)據(jù)。工作薄是XLS文件的基礎(chǔ)。一個工作薄由多個工作表（worksheet，在圖1中有三個工作表，分別叫做Sheet1、Sheet2和Sheet3）。工作表通過Item屬性來枚舉。你可以使用這個屬性訪問特定的工作表。在圖1中，Sheet 1是第一個工作表，因此你可以使用xlSheets.Item(1)來獲取對它的引用。

　　有了工作表之后，你就可以使用range（范圍）來操作它上面的數(shù)據(jù)。Range是一個單元格或多個單元格。例如，單元格A1可以使用range (1,1)來引用，接著可以使用Value屬性把數(shù)據(jù)載入單元格中。

更有意義的例子

　　假設(shè)你希望把Excel作為數(shù)據(jù)庫中某些數(shù)據(jù)的表現(xiàn)層。在Java中你希望通過JDBC獲取數(shù)據(jù)，并把數(shù)據(jù)顯示在Excel前端。這種假設(shè)是很好的，因為復(fù)雜業(yè)務(wù)邏輯中的用例（use case）已經(jīng)用Excel前端顯示了，更不用說工作流中的其它的數(shù)據(jù)項的顯示和交互操作了。現(xiàn)在你不需要了解業(yè)務(wù)邏輯或分析，就可以使用原始的電子表格，并使用Java中的自動化來"填充它們之間的裂痕"。

　　我將給出一個演示這種操作的簡單示例：本文下載中所包含的內(nèi)容是建立比較銷售行為的一個簡單的MySQL數(shù)據(jù)庫的。它有三個表：

　　· Sales是銷售的細節(jié)信息，包括銷售項、數(shù)量、銷售價格、是誰銷售的以及銷售地區(qū)。

　　· People包含銷售人員的姓名和傭金。

　　· Districts包含了銷售地區(qū)的名稱和稅率。

　　生成報表的時候，你需要使用下面的業(yè)務(wù)邏輯來算出真正的數(shù)值：

　　· 毛銷售額等于銷售項乘以銷售價格加上地稅金額。

　　· 純銷售額等于毛銷售額減去銷售人員提取的稅前傭金。

　　這都是一些在Java中可以實現(xiàn)的簡單直接的計算過程，但是我在本文中使用它們的目的是演示如何把這些數(shù)據(jù)寫入Excel電子表格并讓Excel自動計算。對于更復(fù)雜的情況（使用了更復(fù)雜的Excel公式），原理也是一樣的。

　　此外，下載的內(nèi)容中還包含了如圖2所示的電子表格。它是作為"模板"供你填充適當(dāng)?shù)臄?shù)據(jù)的電子表格。

圖2：用于前端填充數(shù)據(jù)的Excel模板

　　使用JCOM的時候，查詢數(shù)據(jù)庫中所有銷售數(shù)據(jù)需要使用下面的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電子表格的適當(dāng)?shù)牧兄小Ｏ螺d的內(nèi)容中包含了完整的代碼（列表2所示）。在下面的部分，我將為你解釋代碼中使用JCOM的自動化部分。

　　列表2：從數(shù)據(jù)庫中獲取數(shù)據(jù)并載入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(); … // 此處放置數(shù)據(jù)庫鏈接和查詢建立代碼 … if (stmt.execute(strSql)) { 　rs = stmt.getResultSet(); } int nColCount = rs.getMetaData().getColumnCount(); int nRow=1; int nCol=0; // 在記錄集中循環(huán) while(rs.next()) { 　// 記錄集中的每行都是電子表格中的一行 　nRow++; 　for(int i=1;i<=nColCount;i++) 　{ 　　// 匹配DB列和電子表格列 　　nCol = getExcelColumn(i); 　　// 查找于行和列對應(yīng)的單元格，并把它設(shè)置為適當(dāng)?shù)挠涗浖侄?BR>　　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的第一部分中，其目標是獲取希望修改的單元格的控制權(quán)。這會花費了一定的開銷。

　　· 首先你必須獲取表現(xiàn)Excel本身的對象，有了JCOM輔助類的幫助以后，這一步操作相當(dāng)直接。

ExcelApplication excel = new ExcelApplication(rm);

　　
　　· 下一步，你希望獲取對工作薄集合的訪問權(quán)。你希望打開自己的模板工作薄（本示例中這個模板在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對象將允許你在單元中放入值和公式了。通過在前面的記錄集（從提交給數(shù)據(jù)庫的SQL命令中返回的）中循環(huán)，使用xlRange.Item(nRow,nCol).Value("whatever")語法，逐行逐列地把記錄集中的值插入到電子表格中（語法中的whatever來自于記錄集）。通過使用rs.getObject(i).toString可以得到當(dāng)前行中I列的值。通過使用rs.movenext()，當(dāng)前行一直向后移動，直到記錄集的末尾。

　　你在列表2中可能會注意到一個奇怪的函數(shù)調(diào)用：

nCol = getExcelColumn(i);

　　這是一個簡單的輔助函數(shù)，它把記錄集中的列編號與Excel中存放數(shù)據(jù)的位置進行匹配。例如，如果你再次查看上面的SQL語句，傭金費率將返回到第8列。在電子表格中，存放它的列是第13列。這個函數(shù)用于處理兩者之間的轉(zhuǎn)換。更復(fù)雜的應(yīng)用程序可以使用Excel中的命名（named）范圍來匹配列，但是這超出了本文的范圍。

最后，應(yīng)用程序把公式輸入適當(dāng)?shù)膯卧小Ｋ鞘褂肊xcel的R1C1符號來實現(xiàn)的，因此相應(yīng)的字符串是用于描述公式的。在Excel中，假設(shè)你希望把第1行中A列的值與B列的值相加，然后放到C列中，那么你就需要在C列中輸入公式"=A1+B1"。如果在第二行你也希望這樣操作，那么可以復(fù)制和粘貼這個公式，它會自動地更新為"=A2+B2"。

　　從示例程序中得到這些值需要一些字符串操作，但是如果使用"R1C1"相關(guān)的轉(zhuǎn)換就非常直接了。在本文的例子中，你在C1中輸入公式的時候，不需要給出"=A1+B1"引用，而是給出"=RC[-2]+RC[-1]"引用，它的意思是把向前兩列的值與向前一列的值相加。

　　當(dāng)你移動了其它行的時候，這個公式的值不會發(fā)生改變，因此它使我們生成程序所需要的值非常簡單了。這也是我用于計算總銷售額、銷售稅金、毛銷售額和純銷售額的方法，如下所示：

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)");

　　運行這段代碼將得到圖3所示的電子表格。

圖3：公式：Excel顯示了數(shù)據(jù)庫查詢的輸出信息

　　請注意，這是一種比較好的工程學(xué)經(jīng)驗，即不要在應(yīng)用程序中包含公式，因為公式可能隨時改變，而你肯定不希望在改變公式的時候就去改變自己的代碼。這種辦法使每個新數(shù)據(jù)行成為包含公式的已有數(shù)據(jù)行的副本。模板電子表格（sales.xls）包含了假數(shù)據(jù)，并在第二列中包含了公式（第一列包含了列標題）。因此，當(dāng)你填充每行的時候，在你填入數(shù)據(jù)庫值的之前線復(fù)制這一行的內(nèi)容。通過這種辦法，公式通過復(fù)制進入了新數(shù)據(jù)行，并且你不需要在Java代碼中包含任何業(yè)務(wù)邏輯。

　　我們看一看salesReport2.java文件（也在下載內(nèi)容中）中的內(nèi)容，你可以發(fā)現(xiàn)，我們并沒有使用前面所說的公式，而是在While循環(huán)頂部使用了下面的代碼：

if(nRow>1) { 　String strDest="A"+(nRow+1); 　ExcelRange xlRange2Copy = xlSheet.Range("A2:M2"); 　xlRange2Copy.Copy(xlSheet.Range(strDest)); }

　　除了第一行之外（第一行不需要處理，這樣的信息已經(jīng)包含在sales.xls中了），這段代碼將處理A2到M2之間的單元，并把它們復(fù)制到nRow+1標識的數(shù)據(jù)行中（nRow是當(dāng)前行的編號）。加上1的原因是計算了列標題（列標題在第一行）。

　　超越Excel

　　請記住JCOM是用于COM的而不僅僅是用于Excel的。你可以使用這種工具在Java中控制幾乎所有的COM對象。Excel是最常見的被控制對象，因為有很多很好的輔助類可以讓它更簡單，但是所有的COM組件都是可以使用的。因此控制其它的應(yīng)用程序（例如Word和Powerpoint）也是直接的。

　　下面是使用Word的一個例子：

IDispatch wdApp = new IDispatch(rm, "Word.Application"); wdApp.put("Visible", new Boolean(true));

　　由于沒有用于Word的直接的輔助類，每個部分都必須通過使用IDispatch對象來實現(xiàn)（用于Excel的下層輔助類也是這樣實現(xiàn)的）。上面的代碼將載入微軟Word副本，并通過wdApp對象使它可以自動化操作。接著你可以使用類似"put"（設(shè)置屬性）或"method"（調(diào)用方法）等方法來使用Word。例如，上面的代碼把Visible屬性設(shè)置為true，使得該Word應(yīng)用程序可視。

　　如果你一定要使用Windows，那么有大量的COM組件可以擴充你的視野，它的數(shù)量比Java目前提供的多很多。通過串行和并行口進行硬件控制也可以在Java中實現(xiàn)了，而這僅僅是個開始。在你的工具包中有了JCOM之后，就不受任何限制了。