0

我正在尝试循环浏览 excel 工作簿并将粘贴值复制到该工作簿中每个工作表的顶部。但是当我转到下一张纸时，我在网上遇到了一个内存问题：ws.select(true)。

遇到的错误：

来自 HRESULT 的异常：0x800A03EC：当我此时关闭工作簿时，excel 抛出：内存不足（错误 7）

附加信息：

文件大小 3mb，20 个选项卡和大量从 olap 数据库 TM1 读取的数据库公式。微软办公 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;
        }
    }
4

2 回答 2

1

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

于 2012-12-03T22:34:52.993 回答
0 
ws.Activate();
ws.Select(true);
ws.UsedRange.Select();

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

你可以录制一个 Marco 来学习如何修改你的代码。

于 2012-11-16T09:26:42.333 回答