無法匯入PCHOME 股市資料 - Excel程式區

帖子: 3
主題: 0
精華: 0
積分: 9
點名: 0
作業系統: vista
軟體版本: office2007
閱讀權限: 10
性別: 男
註冊時間: 2011-4-26
最後登錄: 2014-5-26

21^# 跳轉到 »

發表於 2013-12-26 09:08 | 只看該作者

GBKEE 大大
歹勢，我的問題打錯了。
我是要問我使用你的程式碼如何讓http://pchome.syspower.com.tw/stock/sto2/ock2/sid2330.html
可以選擇不同的股票代碼匯入這網頁的資料
可否指導一下。

TOP

cji3cj6xu6

中學生 Rank: 2

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

22^#

發表於 2013-12-26 11:59 | 只看該作者

若將代號放在a1的位置，應該是這樣寫吧！
WebAddress = "/pchome.syspower.com.tw/stock/sto2/ock2/sid" & [A1] & ".htm"

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兔年全勤獎章

23^#

發表於 2013-12-26 16:24 | 只看該作者

回復 20# hsiao13

程式碼還是無法匯入http://pchome.syspower.com.tw/stock/sto2/ock2/sid2330.html

對不起了,這網頁我搞不定它.

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

TOP

hsiao13

小學生 Rank: 1

帖子: 3
主題: 0
精華: 0
積分: 9
點名: 0
作業系統: vista
軟體版本: office2007
閱讀權限: 10
性別: 男
註冊時間: 2011-4-26
最後登錄: 2014-5-26

24^#

發表於 2013-12-26 17:25 | 只看該作者

回復 2# GBKEE
我想問如何能在excel中可以直接輸入代碼，在大大的程式碼中只有2330能輸出！

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兔年全勤獎章

25^#

發表於 2013-12-27 14:10 | 只看該作者

回復 GBKEE
我想問如何能在excel中可以直接輸入代碼，在大大的程式碼中只有2330能輸出！
hsiao13 發表於 2013/12/26 17:25

要在excel中直接輸入代碼, cji3cj6xu6 22# 可參考,但這網頁無法匯入資料.

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

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

26^#

發表於 2013-12-27 20:28 | 只看該作者

回復 25# GBKEE
回復 24# hsiao13
24# 應該是指2#的方法吧？
比照7# InputBox 修改就好了。。。

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

GBKEE