Comments on: Create a QueryTable from an Excel Source in VBA

By: doomsday

doomsday — Fri, 04 Mar 2011 02:48:00 +0000

yes good point with code blocks using QueryTables and CommandText is the way to use native Excel , without using addins..
If you try
Dim rst as ADODB.Recordset
you will get a user-defined type not defined error. Thus, where portability to other Excel users is necessary, this method of using querytables seems to be ideal.

However, the real-time status of the query update is shown in the globe in the taskbar.

By: Dale

Dale — Sat, 04 Dec 2010 13:21:00 +0000

It's a little complicated, so I'll give the readers digest version.
I'm building a spreadsheet to compare current and prior year and graph it by week, month and quarter using index and match. I can insert saved queries at different locations in target, but I have to edit 26 queries (13 weeks each for prior and current year) for each branch in the region and it's quite time consuming. Is there a way to run code in vba to execute all these at once, then I can just use replace to change branch numbers and run in a new spread sheet for each location?
Here is a sample query for week 1 in 2010, the week numbers are all that change (Wk 1 to Wk 2 and Week1 to Week2, etc) for each query.

XLODBC

1

DSN=Excel Files;DBQ=R:2010P1Wk 1Supplemental2066_Week1ToDateProductionSales.xls;DefaultDir=R:2010P1Wk 1Supplemental;DriverId=790;MaxBufferSize=2048;PageTimeout=5;

SELECT 'Sheet1$'.'Daily Production/Sales by Category and PricePoint Unified', 'Sheet1$'.F2, 'Sheet1$'.F9 FROM 'R:2010P1Wk 1Supplemental2066_Week1ToDateProductionSales'.'Sheet1$' 'Sheet1$' WHERE ('Sheet1$'.F2 Is Null) OR ('Sheet1$'.F2 Like 'Total') OR ('Sheet1$'.F2 Like 'Branch Total')

Daily Production/Sales by Category and PricePoint Unified F2 F9

Secondly, as 2011p1 doesn't exist yet, is there a way to have the query return blank when the query fails due to "file does not exist' without freezing?

Lastly, I believe the branch systems are still using 2000 or 2003. I.T. is updating all the corp and field computers, but unfortunately all us grunts at the branches where all the real work gets done are at the bottom of the list.

By: Jan

Jan — Mon, 07 Jul 2008 21:18:00 +0000

I have had some really bad type issues with this particularly where there is no data in the first 8 or even 16 rows of a column. The Excel / Jet engine type casting gets it wholly wrong and screws up all sorts of queries. Rule of thumb be careful and don't use this on any data that might have gaps in it.
No amount of tweaking was able to deal with this problem even trying casting of data using multipliers unions with hard coded numbers etc. All failed and sometimes I would even get a whole column from something that was not in the select statement. This was not down to some bad SQL this was a purely random impact based on large datasets.

By: Rob van Gelder

Rob van Gelder — Wed, 25 Jun 2008 10:44:00 +0000

Something very interesting that I didn't notice before.
You can create a querytable in the same workbook, and it the data refreshed without first having to save it.

Triggering the refresh is a minor issue
Lists that grow based on selectable criteria (parameter query) is a very useful feature.

By: Hans Schraven

Hans Schraven — Wed, 25 Jun 2008 10:14:00 +0000

Some more reducement

Sub idee()
ActiveWorkbook.Sheets.Add
With ActiveSheet.QueryTables.Add("ODBC;DSN=Excel-bestanden;DBQ=E:TheDatabook.xls",[H1])
.CommandText = "SELECT name, number FROM TheData WHERE number =1"
.Refresh False
End With
End Sub

By: Hans Schraven

Hans Schraven — Wed, 25 Jun 2008 09:46:00 +0000

Wouldn't it be nice to clean up the connectionstring as well ?

Sub idee()
ActiveWorkbook.Sheets.Add
With ActiveSheet.QueryTables.Add("ODBC;DSN=Excel-bestanden;DBQ=E:TheDatabook.xls;", Range("H1"))
.CommandText = "SELECT name, number FROM E:TheDatabook.TheData TheData WHERE number = 1"
.Refresh False
End With
End Sub