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

long8448

最近需要使用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

回復 1# long8448

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

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

這兩篇看完應該有幫助

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

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

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

參考看看

ybh891026

回復 2# joey0415

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

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

zyzzyva

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

long8448

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

shuasa

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

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