Web查詢只保留資料而不保留基本查詢 - Excel程式區

[發問] Web查詢只保留資料而不保留基本查詢

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-7-30 16:44 | 顯示全部帖子

回復 3# lalalada

Option Explicit
Sub Ex()
Dim QueryTable_Name As String
With ActiveSheet
With .QueryTables.Add(Connection:="URL;http://forum.twbts.com/index.php", Destination:=Range("A1"))
QueryTable_Name = .Name
.Refresh BackgroundQuery:=False
End With
.Names(QueryTable_Name).Delete '刪除:查詢在工作表所定義的範圍名稱
End With
End Sub

複製代碼

靜思自在 : 天上最美是星星，人生最美是溫情。