Can't add/delete ListColumns from Table unless Worksheet is visible

AOB

Well-known Member
Joined
Dec 15, 2010
Messages
660
Office Version
  1. 365
  2. 2016
  3. 2013
Platform
  1. Windows
I have some code that generates a table in Excel (ListObject) from a query. As part of the process, I need to delete a couple of redundant columns.

VBA Code:
Dim objWorkbook As Object
Dim objWorksheet As Object
Dim objTable As Object

Set objWorksheet = objWorkbook.Sheets("MyWorksheet")
Set objTable= objWorksheet.ListObjects("tblMyTable")
objTable.ListColumns("ColumnNameA").Delete
objTable.ListColumns("ColumnNameB").Delete

But when I run the script (the script is running "remotely" from Access, not in Excel directly) the .Delete lines throw 1004 errors :

Error 1004: Application-defined or object-defined error

If, however, I add a breakpoint to the code just before I attempt to delete the columns, switch focus to the Excel workbook (i.e. make it visible), then go back and resume the code, it works fine?

The same thing happens if I try to add a new ListColumn to a table :

VBA Code:
Dim objListColumn1 As Object
Dim objListColumn2 As Object

Set objListColumn1= objTable.ListColumns("SomeColumn")
Set objListColumn2= objTable.ListColumns.Add(objListColumn1.Index + 1)

Again, the .Add command only works if I pause the code, make the Excel worksheet visible, then resume the code.

How can I manipulate the table(s) without having to interrupt? The whole point of the code is to automate the generation of the Excel workbook "in the background" and just present the final result.

All suggestions welcome! Thanks!
 

Excel Facts

Workdays for a market open Mon, Wed, Friday?
Yes! Use "0101011" for the weekend argument in NETWORKDAYS.INTL or WORKDAY.INTL. The 7 digits start on Monday. 1 means it is a weekend.
Figured it out...

I had a ghost line from a previous iteration of the code that was setting the .WindowState of the Excel.Application object before all of the tidy-up work was completed. So effectively I was telling Access to make Excel invisible (i.e. appExcel.Visible = False) but then telling it to minimise the Excel window (i.e. appExcel.WindowState = -4137) Conflicting instructions there so Excel basically makes itself "half-visible" (it appears in the taskbar but the application itself is not fully refreshing)

Seems like this has a knock-on effect when you then go to manipulate ListObject / ListColumn objects as Excel is in a quasi-fuzzy state. By maximising the window, you force Excel to refresh itself, which restores the integrity of the objects and they can be manipulated again. This is why the code works when you pause, display Excel and then resume.

I removed the .WindowState line and moved it to a generic function for terminating the Excel object (which obviously doesn't get called until after all the work has been completed). Working like a charm now!

Hope this helps anybody else scratching their heads with anything similar; if anybody can / wants to provide a better explanation than my garble above, please feel free!
 
Upvote 0
Solution

Forum statistics

Threads
1,215,227
Messages
6,123,745
Members
449,116
Latest member
alexlomt

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top