枚举excel工作簿中的查询

Question

我需要一个vba宏来枚举工作簿的每个工作表上的查询。

你能提供范例代码吗？

杰里Ë

Answer 1

在这里你去：

Dim aSheet As Worksheet 
For Each aSheet In Worksheets 

    Dim aQueryTable As QueryTable 

    For Each aQueryTable In aSheet.QueryTables 

     ' Do something with aQueryTable, e.g. 
     MsgBox aQueryTable.Name 

    Next aQueryTable 

Next aSheet