返回列表 上一主題 發帖

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

chen_cook

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

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

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題