1

I have to Fetch the data from Excel file which is Continuosly Changing. I have made a code in java it read the data from execl but not changing it. When i click the save button in excel and then run my code it will get the changing data.

private static void fuctionCall() throws BiffException, IOException {
     // TODO Auto-generated method stub
     Workbook workbook = Workbook.getWorkbook(new java.io.File("C:/ODIN/DIET/Arbitrage.xls"));
     Sheet sheet = workbook.getSheet(0);
     /*Cell a1 = sheet.getCell(0,0); String s1=a1.getContents(); System.out.println("My name is "+s1); */ 
     for(int i=0;i<sheet.getColumns();i++) { 
     for(int j=1;j<sheet.getRows();j++) { 
     Cell cell=sheet.getCell(i, j); 
     System.out.println(" "+cell.getContents());
}
4

1 回答 1

1

问题是因为excel数据没有保存。我也在处理同样的问题，并提出了一个对我有用的不同解决方案。我刚刚在 excel 中创建了一个宏，以便在它的单元格值发生更改时保存 excel 工作簿。现在我得到了带有最新保存数据的 excel 文件，可以通过 java 代码读取并用于其他目的。

我将发布我用来从 excel 中检索数据的宏代码和 java 代码，

宏代码

Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("A6:A12,B6:B12,L6:L12,O6:O12,P6:P12,Y6:Y12")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
       Is Nothing Then

    Do Until Not IsFileLocked(ThisWorkbook.Name)
        If IsFileLocked(ThisWorkbook.Name) Then
            Application.Wait Now + TimeSerial(0, 0, 0.5)
        End If
    Loop

    ActiveWorkbook.Save

End If

Set KeyCells = Nothing

End Sub

Function IsFileLocked(filePath As String) As Boolean
On Error Resume Next
Open filePath For Binary Access Read Write Lock Read Write As #1
Close #1
If Err.Number <> 0 Then
    IsFileLocked = True
    ' Application.StatusBar = "Waiting for file to close"
    Err.Clear
Else
    IsFileLocked = False
    ' Application.StatusBar = ""
End If
End Function

Java 代码

    fileName="C:\\ODIN\\Diet\\Arbitrage.xls";
 public boolean readExcel(String fileName)
 {        
    ArrayList newList=null;
    FileInputStream fis=null;    
    POIFSFileSystem poifs=null;
    HSSFWorkbook hssfwb=null;
    HSSFSheet hssfs=null;
    Iterator rowIterate=null;

    try
    {            
        newList=new ArrayList();
        fis=new FileInputStream(fileName);
        poifs=new POIFSFileSystem(fis);
        hssfwb=new HSSFWorkbook(poifs);
        hssfs=hssfwb.getSheetAt(0);
        rowIterate=hssfs.rowIterator();

        while(rowIterate.hasNext())
        {
            HSSFRow row=(HSSFRow) rowIterate.next();
            Iterator cellIterate=row.cellIterator(); 
            ArrayList<HSSFCell> cellList=new ArrayList<>();

            while(cellIterate.hasNext())
            {
                HSSFCell cell=(HSSFCell) cellIterate.next();
                cellList.add(cell);                    
            }
            newList.add(cellList);
        }

        for(int i=0;i<newList.size();i++)
        {
            ArrayList<HSSFCell> cellList=(ArrayList<HSSFCell>) newList.get(i);

            for(int j=0;j<cellList.size();j++)
            {
                HSSFCell cell=cellList.get(j);
                System.out.println("Cell Values: "+cell);
            }

            System.out.println("----------------------");

        }            

    }
    catch(Exception e)
    {
        log.error(e.getMessage());
    }

    return true;
}

您需要知道的下一步是如何创建宏并保存它，以便在下次重新启动 excel 应用程序时，您的宏将在没有任何用户干预的情况下正常工作。

您的 excel 文件将已经存在于上述位置。现在我将解释在 MS Excel 2007 中进一步进行的每个步骤。

  1. 打开excel表
  2. 转到 Office 按钮-> Excel 选项-> 选中“显示开发人员选项卡”选项
  3. 打开开发人员选项卡并单击 Visual Basic 图标。
  4. 您的代码窗口现在将打开，从项目资源管理器中创建一个新模块。
  5. 将上面的代码粘贴到所有工作表中。
  6. 现在您必须将宏安全设置更改为低。
  7. 转到开发人员选项卡，然后单击宏安全性。
  8. 选择“启用所有宏”单选按钮并选中“信任对 VBA 项目对象模型的访问”选项。
  9. 现在保存并关闭excel，就是这样。

但这会导致性能问题，因为保存过程将在每个单元格更改时执行。

于 2013-09-20T11:49:36.980 回答