GBKEE

¦^´_ 5# ddhh4053
¥ý°õ¦æEx

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Q As QueryTable
   
4.     With ActiveSheet
   
5.         For Each Q In .QueryTables
   
6.             Q.Delete
   
7.         Next
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

µM«á¦b ActiveSheet.QueryTables.Add ¤¤ ¥[¤W.Delete ¬Ý¬Ý

1. .Refresh BackgroundQuery:=False
   
2.         .Delete
   
3.      End With

½Æ»s¥N½X