返回列表下一主題上一主題發帖

QueryTables重複查詢，如何覆蓋上一筆查詢

tsunamix03

中學生 Rank: 2

帖子: 16
主題: 10
精華: 0
積分: 68
點名: 0
作業系統: win7
軟體版本: 2003
閱讀權限: 20
註冊時間: 2015-2-26
最後登錄: 2021-10-4

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-2-26 15:50 | 只看該作者

QueryTables重複查詢，如何覆蓋上一筆查詢

各位大大安安
我使用QueryTable作查詢時，
每次查詢一個股價資料
就會把前一個已經查好的股價資料往旁邊擠
到最後儲存格就會用罄
我希望的是每次查詢都使用同一個範圍的儲存格，
意即把上一個查好的股價資料覆蓋(不要往旁邊擠)
我該怎麼修改呢？
程式碼如下
         With ActiveSheet.QueryTables.Add(Connection:="URL;https://tw.finance.yahoo.com/q/q?s=" & stockID, Destination:=Sheets(10).Range("A1"))
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = "6"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
            .Name = .ResultRange.Cells(3, 1)
         End With

樓主熱帖

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

2^#

發表於 2015-2-26 18:49 | 只看該作者

Sub ex()
Range("A:L").Clear
With ActiveSheet.QueryTables.Add(Connection:="URL;https://tw.finance.yahoo.com/q/q?s=" & 1101, Destination:=Range("A1"))
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "6"
.Refresh BackgroundQuery:=False
.Delete
End With
End Sub