返回列表下一主題上一主題發帖

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

peter460191

中學生 Rank: 2

帖子: 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

chen_cook

中學生 Rank: 2

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

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

peter460191