Ascertaining whether there is a data table/connection in a given worksheet

Question

I have the following old code:
For each worksheet
  'N.B. The following operation fails if the worksheet contains a data table with an external data connection.
Execute a given operation. (The precise operation is irrelevant for the purpose of this question.)
Next
Therefore, I would like to change it to the following new code:
For each worksheet
  If the worksheet does not contain a data table/connection Then
Execute a given operation. (The precise operation is irrelevant for the purpose of this question.)
End If
Next
Any ideas how to undertake such test?
Many thanks.
Keith
R K Howard

Answer 1

Hi R. Keith Howard,
Based on the description, you want to detect whether there is data table or connection in a given worksheet.
As far as I know, there is two kinds of data table in Excel, listobject and querytable. We can check whether the data table exits via the
ListObjects and
QueryTables collection.
And as far as I know, the connection is not associate with a worksheet. The connection is relative to a workbook and we can get all the connections in a workbook via
Connections Object. Also here is another helpful link about connection in Excel:
Create, edit, and manage connections to external data
In addition, here is a sample to check whether there is a listobject in a worksheet for your reference:
Function existListObject(listObjectName As String, aWorkSheet As Worksheet)
For Each lo In aWorkSheet.ListObjects
If lo.Name = listObjectName Then
existListObject = True
Exit Function
End If
Next lo
existListObject = False
End Function
Regards & Fei
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.