Deleting and reuploading data table without refere

问题:

I created a VBA script that deletes an existing data table (named Data) and replaces it with a new version (that has the same headers and is named Data). I have a lot of formulas and charts that rely on this table and was wondering how I can keep the references working after changing the table (so that pivot tables, formulas, and array formulas update automatically when I update the Data table).

Below are some pictures of the problems I am running into:

Pivot tables not updating with new data

Data turning to #REF! after deleting Data table

回答1:

Likely what is happening is that once you delete the table (based on your definition of the problem), the link to the chart is then lost.

Rather than delete the table (as a whole), delete the individual data rows:

Sub RemoveTableBodyData()

Dim tbl As ListObject

Set tbl = ActiveSheet.ListObjects("Table1")

'Delete Table's Body Data
  If tbl.ListRows.Count >= 1 Then
    tbl.DataBodyRange.Delete
  End If

End Sub

from: The VBA Guide To ListObject Excel Tables

This should otherwise keep the table reference intact for the chart. FYI: because the data has been updated, you may want to make a call out to refresh any dependent pivots and charts, otherwise it may not be clear the data has updated... I might make the call to refresh once after the data set has been cleared, then again after the update... this will make it clear the pivots/charts have been updated.

Good Luck.

回答2:

Use a dynamic named range as the pivottable source. Then only remove data below the headers.Don't overwrite or change the headers

Or use your existing table but again keep the headers and only delete rows from beneath (e.g. ActiveSheet.ListObjects(1).DataBodyRange.Delete ) . If you delete the entire table then any dependant formulas will error as the reference is no longer valid. That table no longer exists.

Or have code that creates everything for you.

回答3:

So, why not change all the formulae to text by using edit/replace "=" with "xyxyxy" and then do whatever with your data as everything is just text.

Once done replace "xyxyxy" with "=" and the formulae work again - works fine with my sheets and I have a LOT of formulae in them.