返回列表 上一主題 發帖

[發問] 網站上資料無法透過excel外部連結抓到資料,請幫忙要如何才能抓取資料?

[發問] 網站上資料無法透過excel外部連結抓到資料,請幫忙要如何才能抓取資料?

網站上的資料有的可以透過excel外部連結抓到資料,在相同的網站上有的卻無法透過excel外部連結抓到資料,請達人幫忙要如何才能抓取資料?

這是網站資料網址:http://jsjustweb.jihsun.com.tw/z/ze/zeu/zeu_E.djhtm

Book1.rar (1.47 KB)
peter460191

回復 1# peter460191

   這是一般區 巨集 請至 程式區發問!!!
       如果網頁看的到不到可 (1. 於欲抓取資料處按右鍵檢網頁內容->跳出另一個視窗看標題的網址,輸入看看(於資料>匯入外部資料->web資料中)
                                                     2. 若回應網頁無回應,改採以下方式看看
                                                     3.其它抓取法,要又爬文本站有其它方式
    With ActiveSheet.QueryTables.Add(Connection:= _
    "URL; http://jsjustweb.jihsun.com.tw/z/ze/zen/zeu_E.djhtm", _
         Destination:=Range("A1"))  <-----可變
        '.Name = ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = "1"        <----資料位置
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingRTF
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = Ture  'False
        .Refresh BackgroundQuery:=False
    End With

TOP

回復 2# chen_cook


    非常謝謝您!
    我試試看。
peter460191

TOP

從EXCEL >資料>匯入外部資料->web資料中
但是有些網站資料還是無法擷取.
有其他較簡易的方法嗎?
_

TOP

回復 4# art9049


    還沒找到方法,若找到再與你分享。
peter460191

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題