標題: [發問] 網頁擷取資料 [打印本頁]

---

作者: snkso    時間: 2016-3-20 11:44     標題: 網頁擷取資料

各位大大 好
小弟為新手，現行碰上問題點
可否幫忙看看程式碼有何錯誤
問題點為：
當網址直接輸入代碼時，可順利擷取我要的資料
http://www.wantgoo.com/Stock/report/basic_cfs?StockNo=1101
但是，當我把代碼換成參數時，就擷取失敗了
http://www.wantgoo.com/Stock/report/basic_cfs?StockNo=" & stockno

程式碼如下：
Sub test()
For count001 = 1 To 1 Step 1
stockno = Worksheets("清單").Range(Chr(65) & count001)
ActiveWorkbook.Worksheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Worksheets("清單").Range(Chr(65) & count001) & " " & Worksheets("清單").Range(Chr(66) & count001)

URL = "URL;http://www.wantgoo.com/Stock/report/basic_cfs?StockNo=" & stockno
    With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Range("A1"))
        .AdjustColumnWidth = False                 
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "1"                 
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

    Next count001
    ActiveWorkbook.Save
End Sub

---

作者: snkso    時間: 2016-3-21 23:23

搜尋之前前輩們文章後，已解決，若有佔到空間請刪除。
Thanks！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)