Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2089071
  • 博文数量: 519
  • 博客积分: 10070
  • 博客等级: 上将
  • 技术积分: 3985
  • 用 户 组: 普通用户
  • 注册时间: 2006-05-29 14:05
个人简介

只问耕耘

文章分类

全部博文(519)

文章存档

2016年(1)

2013年(5)

2011年(46)

2010年(220)

2009年(51)

2008年(39)

2007年(141)

2006年(16)

我的朋友

分类: Java

2010-01-11 08:51:11

本文旨在说明操纵Excel, 使用VB要远比Java容易。
 
1,使用VB取得c:\Book1.xlsx第一个单元格的值
Sub Macro1()
'
' Macro1 Macro
'
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
'
Set xlsApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlsBook = xlsApp.Workbooks.Open("c:\Book1.xlsx") '打开已经存在的EXCEL工件簿文件
Set xlsSheet = xlsBook.Worksheets("Sheet1")
MsgBox xlsSheet.Cells(1, 1)
xlsBook.Close (True)
xlsApp.Quit '结束EXCEL对象
Set xlsApp = Nothing

End Sub
 
2,使用VBScript取得c:\Book1.xlsx第一个单元格的值
Set xlsApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlsBook = xlsApp.Workbooks.Open("c:\Book1.xlsx") '打开已经存在的EXCEL工件簿文件
Set xlsSheet = xlsBook.Worksheets("Sheet1")
MsgBox xlsSheet.Cells(1, 1)
xlsBook.Close (True)
xlsApp.Quit '结束EXCEL对象
Set xlsApp = Nothing
 
3,Jakarta的POI项目提供了一组操纵Windows文档的Java API,如下几个类提供了操作Excel文件的方便的途径:HSSFWorkbook、HSSFSheet、HSSFRow、HSSFCell,分别代表了Excel电子表格中的Book、Sheet、行和单元格。
  你可以在下面地址下载到最新的POI工具包:
  
 
使用Java取得c:\Book1.xls第一个单元格的值
package c1;
import org.apache.poi.hssf.usermodel.*;
import java.io.*;
public class Test {
 /**
  * @param args
  */
 public static void main(String[] args) {
  // TODO Auto-generated method stub
 FileInputStream fos = null;
 HSSFWorkbook wb = null;
 try {
  fos=new FileInputStream("c:/Book1.xls");
  wb = new HSSFWorkbook(fos);
  HSSFSheet sheet = wb.getSheet("Sheet1");
  HSSFRow row = sheet.getRow(0);
  HSSFCell cell = row.getCell(0);
  System.out.println( cell.toString());
  fos.close();
  } catch (IOException e) {
  e.printStackTrace();
  }

  }
}
阅读(1761) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~