sheet.ForceFormulaRecalculation = True         'все формулы при открытии должны быть пересчитаны
HSSFFormulaEvaluator.EvaluateAllFormulaCells(Me.WB)  'до кучи ещё и это

        Dim File As FileStream = New FileStream(Application.StartupPath & "\book1.xls", FileMode.Open, FileAccess.Read)
   	Dim WB As HSSFWorkbook = New HSSFWorkbook(File)
   	File.Close
   	Dim SH As HSSFSheet = WB.GetSheet("Лист1")
   	SH.GetRow( 1 ).GetCell( 0 ).SetCellValue("sdfsdfsd")
   	SH.GetRow( 1 ).GetCell( 1 ).SetCellValue( 5 )
   	SH.GetRow( 1 ).GetCell( 2 ).SetCellValue( 6 )
   	SH.GetRow( 2 ).GetCell( 0 ).SetCellValue("hhhhhhhh")
   	SH.GetRow( 2 ).GetCell( 1 ).SetCellValue( 4 )
   	SH.GetRow( 2 ).GetCell( 2 ).SetCellValue( 3 )
   	SH.GetRow( 3 ).GetCell( 0 ).SetCellValue("bbbbbbbb")
   	SH.GetRow( 3 ).GetCell( 1 ).SetCellValue( 3 )
   	SH.GetRow( 3 ).GetCell( 2 ).SetCellValue( 1 )
   	SH.ForceFormulaRecalculation = True
   	HSSFFormulaEvaluator.EvaluateAllFormulaCells(WB)
   	SH.
   	File = New FileStream(Application.StartupPath & "\book1-1.xls", FileMode.Create)
   	WB.Write(File)
   	File.Close