Question

我需要从工作表中删除所有Excel公式（用其结果替换公式）然后保存文件。例如 - 而不是B3 + 13我希望在使用OpenXML

打开文件时在单元格中有2013-04-11

我找到了这篇文章 http://office.microsoft.com/en-us/excel-help/replace-a-formula-with-its-result-HP010066258.aspx

它有效 - 保存后没有公式。我在C＃中需要相同的效果。我在互联网上尝试了很多解决方案，但仍然没有希望。

                string source = @"C:\Source\doc.xlsx";
            object Unknown = Type.Missing;

            Workbook doc = newApp.Workbooks.Open(
                source,
                 Unknown, 
                 Unknown, 
                 Unknown, 
                 Unknown, 
                 Unknown, 
                 Unknown, 
                 Unknown, 
                 Unknown, 
                 Unknown, 
                 Unknown, 
                 Unknown, 
                 Unknown, 
                 Unknown, 
                 Unknown);

            newApp.Calculation = Microsoft.Office.Interop.Excel.XlCalculation.xlCalculationManual;

            doc.ForceFullCalculation = true;
            newApp.CalculateFull();
            newApp.CalculateBeforeSave = true;

            doc.SaveAs("c:\\temp\\recalc.xlsx", Microsoft.Office.Interop.Excel.XlFileFormat.xlWorkbookDefault, Type.Missing, Type.Missing,
            false, false, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlExclusive,
            Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing);
            doc.Close();

那么问题是什么？为什么我可以看到“= DY3 + 1”代替“2013-04-11”？

Answer 1

选择包含数据的范围，然后将值复制并粘贴到位：

using Excel = Microsoft.Office.Interop.Excel;
foreach (Excel.Worksheet ws in doc.Worksheets)
{
    Excel.Range targetRange = (Excel.Range)ws.UsedRange;
    targetRange.Copy(Type.Missing);
    targetRange.PasteSpecial(Excel.XlPasteType.xlPasteValues, 
        Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, false, false);
}

这会复制您发布的文档中的“替换公式及其计算值”部分。可以选择所有工作表并在Excel中自行复制/粘贴以获得结果而不是公式，但是我通过代码处理分组工作表时遇到了一些问题。

Answer 2

计算公式会保留公式及其结果。如果要用其结果值覆盖公式，则需要：
- 将其值设置为其值：Range.Value2 = Range.value2
或使用复制和粘贴特殊值

保存重新计算的Excel文件

2 个答案: