標題: [發問] 網站上資料無法透過excel外部連結抓到資料，請幫忙要如何才能抓取資料? [打印本頁]

---

作者: peter460191    時間: 2012-7-4 11:52     標題: 網站上資料無法透過excel外部連結抓到資料，請幫忙要如何才能抓取資料?

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

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

[attach]11572[/attach]

---

作者: chen_cook    時間: 2012-7-5 05:02

回復 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

---

作者: peter460191    時間: 2012-7-5 09:53

回復 2# chen_cook


    非常謝謝您!
    我試試看。

---

作者: art9049    時間: 2012-8-11 10:06

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

---

作者: peter460191    時間: 2012-8-13 10:35

回復 4# art9049


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

---

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