12
返回列表 上一主題 發帖

[發問] 如何找到正確的網址,讓EXCEL匯入WEB查詢

bioleon69
　暱稱: 小B

中學生Rank: 2

帖子
62 
主題
14 
精華
0 
積分
86 
點名
0  
作業系統
win10 
軟體版本
offffice2013 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2016-8-23 
最後登錄
2017-11-5 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-9-24 18:35 | 只看該作者

[發問] 如何找到正確的網址,讓EXCEL匯入WEB查詢

本帖最後由 bioleon69 於 2016-9-24 18:38 編輯

http://www.cmoney.tw/finance/f00026.aspx?s=2330
想要把此網址匯入,用EXCEL的web查詢
(基本資料那份表格)
結果,失敗

用fiddler找到get網址
http://www.cmoney.tw/finance/ashx/mainpage.ashx?action=GetStockListLatestSaleData&stockId=2330&cmkey=XYlSc5pnmuVR2Cz27paqpg%3D%3D&_=1474712478440
一樣,失敗

如何找到正確網址,再把2330改成變數
用iqy方式匯入excel

以下為匯入成功案例的iqy檔案 (YAHOO股市)
ok.rar (271 Bytes)
收藏 分享

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2016-9-24 21:35 | 只看該作者
回復 1# bioleon69

在tivo168也看到你的回文

這不用能匯入的

要先去它的
網頁，取得 cmkey=XYlSc5pnmuVR2Cz27

每檔股票不一樣後，再轉到你要去的頁面才行

至少我前以是這麼做的

此網站主要避免你直接爬取它的資料

您再觀察看看

TOP

bioleon69
　暱稱: 小B

中學生Rank: 2

帖子
62 
主題
14 
精華
0 
積分
86 
點名
0  
作業系統
win10 
軟體版本
offffice2013 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2016-8-23 
最後登錄
2017-11-5 

論壇贊助勳章
3#
發表於 2016-9-25 01:01 | 只看該作者
有點聽不太懂XDD

TOP

bioleon69
　暱稱: 小B

中學生Rank: 2

帖子
62 
主題
14 
精華
0 
積分
86 
點名
0  
作業系統
win10 
軟體版本
offffice2013 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2016-8-23 
最後登錄
2017-11-5 

論壇贊助勳章
4#
發表於 2016-9-27 09:00 | 只看該作者
有大俠知道如何抓取嗎!!!!
感謝

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2016-10-1 06:58 | 只看該作者
回復 4# bioleon69
  1. Option Explicit
  2. Sub Ex_網頁元素()
  3.     Dim i As Integer, xlTab As Object, R As Integer, C As Integer
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.         .Navigate "http://www.cmoney.tw/finance/f00026.aspx?s=2330"
  7.        ' .Navigate "http://www.cmoney.tw/finance/f00026.aspx?s=" & 變數
  8.         Do While .Busy Or .readyState <> 4: DoEvents: Loop      
  9.         Set xlTab = .Document.ALL.tags("TABLE")(0)
  10.         With ActiveSheet
  11.             .UsedRange.Clear
  12.             For R = 0 To xlTab.Rows.Length - 1
  13.                 For C = 0 To xlTab.Rows(R).Cells.Length - 1
  14.                     .Cells(R + 1, C + 1) = xlTab.Rows(R).Cells(C).innertext
  15.                 Next
  16.             Next
  17.         End With
  18.         .Quit        '關閉網頁
  19.     End With
  20. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

bioleon69
　暱稱: 小B

中學生Rank: 2

帖子
62 
主題
14 
精華
0 
積分
86 
點名
0  
作業系統
win10 
軟體版本
offffice2013 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2016-8-23 
最後登錄
2017-11-5 

論壇贊助勳章
6#
發表於 2016-10-1 20:50 | 只看該作者
  1. Option Explicit
  2. Sub Ex_網頁元素()
  3.     Dim i As Integer, xlTab As Object, R As Integer, C As Integer, Surl$
  4.     Surl = "http://www.cmoney.tw/finance/f00026.aspx?s=& [A1].Value &"
  5.     With CreateObject("InternetExplorer.Application")
  6.         .Visible = True
  7.         .Navigate " "
  8.        ' .Navigate "http://www.cmoney.tw/finance/f00026.aspx?s=" & 變數
  9.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  10.         Set xlTab = .Document.ALL.tags("TABLE")(0)
  11.         With ActiveSheet
  12.             .UsedRange.Clear
  13.             For R = 0 To xlTab.Rows.Length - 1
  14.                 For C = 0 To xlTab.Rows(R).Cells.Length - 1
  15.                     .Cells(R + 1, C + 1) = xlTab.Rows(R).Cells(C).innertext
  16.                 Next
  17.             Next
  18.         End With
  19.         .Quit        '關閉網頁
  20.     End With
  21. End Sub
複製代碼
請問一下~~
.Navigate " "這邊要怎麼插入定義的變數surl

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
7#
發表於 2016-10-2 05:58 | 只看該作者
回復 6# bioleon69
原 6# 樓
  1.     Surl = "http://www.cmoney.tw/finance/f00026.aspx?s=& [A1].Value &"
  2.     With CreateObject("InternetExplorer.Application")
  3.         .Visible = True
  4.         .Navigate " "
複製代碼
修正為：
  1.     Surl = "http://www.cmoney.tw/finance/f00026.aspx?s=" & Sheets("XXX").[A1]
  2.     With CreateObject("InternetExplorer.Application")
  3.         .Visible = True
  4.         .Navigate Surl
複製代碼
即可。

TOP

bioleon69
　暱稱: 小B

中學生Rank: 2

帖子
62 
主題
14 
精華
0 
積分
86 
點名
0  
作業系統
win10 
軟體版本
offffice2013 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2016-8-23 
最後登錄
2017-11-5 

論壇贊助勳章
8#
發表於 2016-10-2 14:16 | 只看該作者
回復 7# c_c_lai
nice!!感謝
在請問一下
要讓這些資料從A3開始輸出 要怎麼修改?

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
9#
發表於 2016-10-2 17:19 | 只看該作者
回復 8# bioleon69
  1.                 For C = 0 To xlTab.Rows(R).Cells.Length - 1
  2.                     .Cells(R + 1, C + 1) = xlTab.Rows(R).Cells(C).innertext
  3.                 Next
複製代碼
調整為
  1.                 For C = 0 To xlTab.Rows(R).Cells.Length - 1
  2.                     .Cells(R + 3, C + 1) = xlTab.Rows(R).Cells(C).innertext
  3.                 Next
複製代碼

TOP

bioleon69
　暱稱: 小B

中學生Rank: 2

帖子
62 
主題
14 
精華
0 
積分
86 
點名
0  
作業系統
win10 
軟體版本
offffice2013 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2016-8-23 
最後登錄
2017-11-5 

論壇贊助勳章
10#
發表於 2016-10-5 01:29 | 只看該作者
本帖最後由 bioleon69 於 2016-10-5 01:31 編輯

感謝GBK以及lai兩位大大
都成功了~~在請教一下
我想加入在A1如果沒有輸入正確變數
或者輸入錯誤
B1會呈現 請輸入正確股票代號
下面是有那裡有問題??
我加入了這幾串程式碼

On Error Resume Next
        .Refresh False
        [B1] = ""
        If Err <> 0 Then
            [B1] = "請輸入正確股票代號"
        Else
        End If
  1. Option Explicit
  2. Sub Ex_網頁元素()
  3.     Dim i As Integer, xlTab As Object, R As Integer, C As Integer, Surl$
  4.         Surl = "http://www.cmoney.tw/finance/f00026.aspx?s=" & Sheets("工作表1").[A1]
  5.     With CreateObject("InternetExplorer.Application")
  6.         .Visible = False
  7.         .Navigate Surl
  8.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  9.         Set xlTab = .Document.ALL.tags("TABLE")(0)
  10.         With ActiveSheet
  11.             .UsedRange.Clear
  12.             For R = 0 To xlTab.Rows.Length - 1
  13.                 For C = 0 To xlTab.Rows(R).Cells.Length - 1
  14.                     .Cells(R + 1, C + 1) = xlTab.Rows(R).Cells(C).innertext
  15.          On Error Resume Next
  16.         .Refresh False
  17.         [B1] = ""
  18.         If Err <> 0 Then
  19.             [B1] = "請輸入正確股票代號"
  20.         Else
  21.         End If
  22.                 Next
  23.             Next
  24.         End With
  25.         .Quit        '關閉網頁
  26.     End With
  27. End Sub
複製代碼

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
12
返回列表 上一主題