枚舉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