[發問] 無法匯入PCHOME 股市資料

我想要匯入PCHOME 股市資料如下卻都是空白或是從"資料"->從WEB 卻得到此WEB查詢沒有資料傳回的錯誤訊息有高手可以解惑嗎

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://pchome.syspower.com.tw/stock/sto2/ock2/sid2330.html", Destination:=Range( _
"A1"))

iorikoyzz

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 2
點名: 0
作業系統: win7
軟體版本: pro
閱讀權限: 10
註冊時間: 2014-5-18
最後登錄: 2015-11-27

29^#

發表於 2015-11-27 09:50 | 只看該作者

Hi GBKEE大大:

你太強了,這可以用

非常謝謝你!!,
不過這是為什麼呢??

thanks

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

28^#

發表於 2015-11-24 09:10 | 只看該作者

回復 27# iorikoyzz

這網頁用QueryTables無效
試試看

Option Explicit
Sub 抓每月營收(weburl As String)
Dim i As Integer, E As Object, K, R
Sheets("Temp").Activate
ActiveSheet.Cells.Clear
With CreateObject("InternetExplorer.Application")
.Visible = True '顯示網頁
.Navigate weburl
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Set E = .Document.all.TAGS("TABLE")(0)
K = 1
For Each R In E.Rows
For i = 0 To R.Cells.Length - 1
ActiveSheet.Cells(K, i + 1) = R.Cells(i).INNERTEXT
Next
K = K + 1
Next
.Quit '關閉網頁
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

iorikoyzz

小學生 Rank: 1

帖子: 2
主題: 0
精華: 0
積分: 2
點名: 0
作業系統: win7
軟體版本: pro
閱讀權限: 10
註冊時間: 2014-5-18
最後登錄: 2015-11-27

27^#

發表於 2015-11-23 15:43 | 只看該作者

請問各位大大,為什麼我這樣寫沒有辦法抓取 pchome 股票排行
如以下網址: http://pchome.megatime.com.tw/rank/sto0/ock08.html
都會抓到空白,
Sub 抓每月營收(weburl As String)
Sheets("Temp").Activate

With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;" & weburl, Destination:=Range("A1"))
      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "7"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False

End With
End Sub

TOP

stillfish00