Question

我正在尝试遍历excel工作簿并将粘贴值复制到顶部该工作簿中的每个工作表。但是我遇到了一个内存问题： ws.select（true），进入下一张表。

遇到错误：

HRESULT的异常：0x800A03EC：当我在这一点上关闭工作簿时，excel抛出：内存不足（错误7）

其他信息：

文件大小3mb，20个选项卡以及从olap数据库TM1读取的大量数据库公式。 Microsoft Office 2007

我正在运行的代码如下。是否有更有效的运行方式可以防止内存不足错误或者这是不同的??

非常感谢任何帮助！

＃

    public bool wbCopyValueOnly(string workBook) 
    { 

    Workbook wb = excel.ActiveWorkbook;
    Worksheet ws;
    Range rng;

    int WS_Count = wb.Sheets.Count;
    for (int i = 0; i < WS_Count; i++)
    {
        try
        {
            ws = wb.Sheets[i + 1];
            ws.Activate();
            ws.Select(true);
            //ws.Select(Type.Missing);
            //ws.Cells.Select();
            ws.UsedRange.Select();

            //ws.Cells.Copy();
            ws.UsedRange.Copy(Type.Missing);
            ws.UsedRange.PasteSpecial(Excel.XlPasteType.xlPasteValues, Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, false, false);
            // select of range to get around memory issue
            excel.Application.CutCopyMode = (Excel.XlCutCopyMode)0;
            //rng = ws.get_Range("A1");
            //rng.Select();
            NAR(ws);

        }
        catch (System.Runtime.InteropServices.COMException err)
        {

            cLogging.write(LogLevel.Error, err.Message);
            Debug.Print(err.Message);
            return false;
        }


    }
    NAR(wb);
    return true;

    }


    private void NAR(object o)
    {
        try
        {
            while (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > 0) ;
        }
        catch { }
        finally
        {
            o = null;
        }
    }

Answer 1

我有一个程序可以将最多100个选项卡复制回第一个摘要页面，我发现使用.Copy（）会导致一些问题。特别是如果你的程序运行一段时间;当前用户无法使用复制粘贴功能而不会产生奇怪的结果。我建议使用变量来存储您需要的内容，然后写入预期的范围。如果您需要更改范围的格式，录制宏是非常宝贵的。

Answer 2

ws.Activate();
ws.Select(true);
ws.UsedRange.Select();

我认为这些代码不是必需的。

您可以录制Marco以了解如何修改代码。

Interop.Excel 0x800A03EC - 内存不足错误代码7

2 个答案: