標題: [發問] Excel網頁外部資料匯入失敗之解決(.Refresh BackgroundQuery:=False) [打印本頁]

---

作者: long8448    時間: 2016-8-15 14:59     標題: Excel網頁外部資料匯入失敗之解決(.Refresh BackgroundQuery:=False)

最近需要使用VBA來抓取一些網頁上的資料，所以使用到網頁外部資料匯入，

當開始錄製巨集，就發現出現了錯誤，重複幾次亦是如此，檢視了一下程式碼，

總是在 .Refresh BackgroundQuery:=False 這行程式碼出現錯誤，想問要如何證才正確?

'***********************
' 下載上市融資餘額資料
'***********************
Sub WebQuery_TWII_Credit(theDATE As String)
                           
    Dim theURL, saveSheetName As String
        
    saveSheetName = "download2"
   
    With Sheets(saveSheetName)
        .Visible = True
        .Select
        .Cells.Clear
    End With
   
    theURL = "http://www.tse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN_2.php?select2=MS&type=list&input_date=" & theDATE
   
    With Sheets(saveSheetName).QueryTables.Add(Connection:="URL;" & theURL, Destination:=Range("A1"))
        .Name = "Credit"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .Refresh BackgroundQuery:=False
        .Delete  '記得手動加入
    End With
        
End Sub

---

作者: joey0415    時間: 2016-8-16 10:57

回復 1# long8448

http://club.excelhome.net/thread-874608-1-1.html

http://club.excelhome.net/thread-917808-1-1.html

這兩篇看完應該有幫助

網頁抓取有很多要注意的地方，手法好多

上市櫃的資料常常會換手法，自己多練習

目前改用post的方法比較多一些

參考看看

---

作者: ybh891026    時間: 2016-8-16 22:08

回復 2# joey0415

請問J大   https://www.dailyfx.com/sentiment?ref-author=Stanley

這網頁有辦法破解嗎? 試過沒辦法匯入,麻煩J大指導

---

作者: zyzzyva    時間: 2016-8-16 22:40

本帖最後由 zyzzyva 於 2016-8-16 22:41 編輯

回復 1# long8448
樓主是要抓什麼資料？我測試融資券餘額可以正常匯入耶？
測試的是這個網址：http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php

---

作者: long8448    時間: 2016-8-16 22:48

謝謝大家的回覆，你們提供的方法我都試試看，感恩~

---

作者: shuasa    時間: 2018-11-27 16:28

http://club.excelhome.net/thread-398816-1-1.html

直接進   C:\Documents and Settings\用户名\Application Data\Microsoft\Excel 删除裡面的文件，再重新打開就可以了。

---

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