Delete a query table

[wut]

Dim Q as QueryTable
 
For Each Q in ActiveSheet.QueryTables
   Q.Delete
Next

This code does not delete query table objects from the sheet. I know it's not working because I'm using a macro to delete old tables, and create new ones in their place with the same name.

Whenever the macro creates a new table, the new table's name looks like this: "Name_#", because the old tables are being plastered over with the new info.

I can also zoom out to 10% after running the code and see the old table, still present.

Is there another way to get rid of a querytable without just deleting the entire sheet?

 

[Gary McMaster]

I've never seen this behavior before so this is just a guess:

Goto the "Names" dialog box and see if the query is still listed. If so delete it via the "Names" dialog. If that solves the problem then delete the name in your code.

Hope it works.

Gary

 

[wut]

Yeah, everwhere I look, they say I should be seeing the opposite behavior; the contents should persist, but the query table should vanish. It's making me wonder if there's something wrong with the code that I'm using to create the tables in the first place. I'll have to look into that some other time (library's closing).

Your idea worked perfectly. I never would have come up with it on my own.

Thanks, I really appreciate it.

 

[xenou]

Are you using 2007 or 2010? These have a different syntax to get at the query tables. Something about ListObjects (I've forgotten at the moment but you should be able to google it).

ξ