返回列表 上一主題 發帖

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

[發問] 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

回復 1# long8448

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

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

這兩篇看完應該有幫助

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

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

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

參考看看

TOP

回復 2# joey0415

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

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

TOP

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

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

TOP

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

TOP

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

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

TOP

        靜思自在 : 君子如水,隨方就圓,無處不自在。
返回列表 上一主題