返回列表 上一主題 發帖

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

peter460191

帖子
163 
主題
27 
精華
0 
積分
193 
點名
0  
作業系統
winsows 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
註冊時間
2010-12-20 
最後登錄
2024-5-9 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-7-4 11:52 | 只看該作者

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

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

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

Book1.rar (1.47 KB)
收藏 分享
peter460191

peter460191

帖子
163 
主題
27 
精華
0 
積分
193 
點名
0  
作業系統
winsows 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
註冊時間
2010-12-20 
最後登錄
2024-5-9 
5#
發表於 2012-8-13 10:35 | 只看該作者
回復 4# art9049


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

TOP

art9049

帖子
2 
主題
0 
精華
0 
積分
50 
點名
0  
作業系統
windows7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-8-5 
最後登錄
2012-11-15 
4#
發表於 2012-8-11 10:06 | 只看該作者
從EXCEL >資料>匯入外部資料->web資料中
但是有些網站資料還是無法擷取.
有其他較簡易的方法嗎?
＿

TOP

peter460191

帖子
163 
主題
27 
精華
0 
積分
193 
點名
0  
作業系統
winsows 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
註冊時間
2010-12-20 
最後登錄
2024-5-9 
3#
發表於 2012-7-5 09:53 | 只看該作者
回復 2# chen_cook


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

TOP

chen_cook

帖子
81 
主題
2 
精華
0 
積分
95 
點名
320  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-29 
最後登錄
2024-11-15 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
2#
發表於 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

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題