3

我正在尝试编辑 Word 文档中的嵌入图表。我的源代码如下。它已经工作了很长时间，但最近两天没有。我收到此错误：

运行时错误“7”：内存不足

我已经搜索了很多，但我不明白这个问题。当我关闭计算机并打开它后，它可以正常工作，但是在我再次出现错误之后。

它在这部分给出了错误：

       'create range with Cell
        Set oChart = oInShapes.Chart
        oChart.ChartData.Activate  ' ***Note: It gives error here***
        'Set oWorkbook = oChart.ChartData.Workbook
        Set oWorksheet = oChart.ChartData.Workbook.Worksheets("Tabelle1")
        Set oRange = oWorksheet.Range(Cell)

Public Sub updatechart(Doc As word.Application, ChartName As String, ChartTitle As String, Cell As String, data As String)`

        Dim oInShapes As word.InlineShape
        Dim oChart As word.Chart
        Dim oWorksheet As Excel.Worksheet
        'Dim oWorkbook As Excel.Workbook

        Dim columnArray() As String
        Dim rowArray() As String
        Dim oRange As Range
        Dim i As Integer
        Dim j As Integer

        For Each oInShapes In Doc.ActiveDocument.InlineShapes
        ' Check Shape type and Chart Title
            If oInShapes.HasChart Then
                'create range with Cell
                Set oChart = oInShapes.Chart
                oChart.ChartData.Activate  ' ***Note: It gives error here***
                'Set oWorkbook = oChart.ChartData.Workbook
                Set oWorksheet = oChart.ChartData.Workbook.Worksheets("Tabelle1")
                Set oRange = oWorksheet.Range(Cell)
                ' Commet for debug
                'oWorksheet.Range("B33") = (ChartTitle & 33)

                ' Split text
                columnArray = Split(data, SeperateChar)
                For i = LBound(columnArray) To UBound(columnArray)
                    rowArray = Split(Trim(columnArray(i)), " ")
                    ' Set Title. For example; ChartTitle = "XY" ----- Table Titles ---->  | XY1 | XY2 | XY2 | ....
                    ' After Set Value                                                     | 0,33| 0,1 | 0,46| ....
                    oRange.Cells(1, i + 1) = ChartTitle & (i + 1)
                    For j = LBound(rowArray) To UBound(rowArray)
                        ' Set Values
                        oRange.Cells(j + 2, i + 1) = CDbl(rowArray(j))
                    Next j
                Next i

                'oWorkbook.Close
                oChart.Refresh
            End If
        Next

        Set oInShapes = Nothing
        Set oChart = Nothing
        Set oWorksheet = Nothing
        'Set oWorkbook = Nothing
        Erase rowArray, columnArray
    End Sub
4

4 回答 4

1

我遇到了类似的错误，最后将其追溯到“For Each”语句。我认为这与您的示例中的集合 Doc.ActiveDocument.InlineShapes 的内存分配有关。

我的错误代码（PowerPoint 到 Excel）：

For Each sh In InputBook.Sheets("Exec Sum").Shapes
    sh.Visible = False
Next
Set sh = Nothing

我的固定代码：

For i = 1 To InputBook.Sheets("Exec Sum").Shapes.Count
    InputBook.Sheets("Exec Sum").Shapes(i).Visible = False
Next

避免引用集合解决了我的问题。

于 2014-04-09T15:35:28.363 回答
1

我注意到你在清理你的 sub 时没有将 oRange 设置为空，可能是这个对象正在使用大量内存，而这些内存在 sub 结束时没有被释放？

于 2013-08-17T09:18:55.443 回答
1

这以前发生在我身上。我有相同的解决方案，退出 excel，释放一些内存，然后再试一次 - 它奏效了。使用此程序时，您可能必须关闭其他程序。它的字面意思是它所说的，缺乏可用的内存。

请记住，如果您运行了将信息复制到剪贴板的其他宏，则可以释放更少的 RAM 来运行宏。

此外，您使用的是 32 位还是 64 位 Excel - 64 位将允许您使用更多 RAM。

于 2013-08-16T18:54:28.090 回答
1

频繁访问工作表可能会产生资源使用问题。解决此问题的方法是在单个访问点中获取数据，例如

Dim V as Variant
V = InputRange
' Now V becomes a m x n array of the cell values in InputRange
' you may manipulate and work with this data and fill all your results in 
' OutputV(m,n) variant array

Dim OutputV() as Variant
ReDim OutputV(m,n)
oRange = OutputV

通常根据范围的大小将代码加速数百倍，并且使用的资源也少得多。

于 2014-06-30T12:39:53.837 回答