(緊急求助) 抓網上股利資料,將股票代號輸出excel即可得呈現

bioleon

小弟跟各位前輩大大請安也是第一次來到此論壇
打算跟著各位大大好好學習
想請教大大
想要實現的以下的狀況
該怎麼做

想實現的：
在Excel A1格內輸入股價代號,內容可從A3跑出
網頁抓取是這個網址
https://tw.stock.yahoo.com/d/s/dividend_2330.html
並且旁邊可弄一個按鈕  (查詢)
在A1輸入股票代號後在按下查詢按鈕
即可在A3呈現資料,並且再度查詢的同時會把上一筆資料刪除
然後表格可以在EXCEL美化編輯
不會導致查詢按鈕一按,表格也隨即消失

程式碼是從本版的此篇看到
[原创]不懂html也来学网抓（xmlhttp/winhttp+fiddler）

程式碼

Sub 股利查詢()
    Cells.Delete
    With ActiveSheet.QueryTables.Add("url;https://tw.stock.yahoo.com/d/s/dividend_2330.html", Range("a3"))
        .WebFormatting = xlWebFormattingNone '不包含格式
        .WebSelectionType = xlSpecifiedTables '指定table模式
        .WebTables = "8" '第2?table
        .Refresh False
    End With
End Sub


自己修改後遇到三個問題
1.不知道怎麼設定到A1,輸入股價即可查詢
2.把以上程式碼複製到按鈕的程式碼內
Private Sub CommandButton1_Click()
(複製到此)
End Sub

結果一直出現錯誤
3.表格沒辦法編輯,執行巨集一按下去重新查了之後
表格馬上就不見



以上的問題可能在大大眼中只是非常基礎的東西
甚至很多人問過
但小弟資質不太夠..真的完全不知道怎麼弄
還是決定發文請求協助

bioleon

麻煩各位大大了 感謝

ammyc

bioleon 发表于 2016-8-24 18:04
麻煩各位大大了 感謝

是不是这样的效果

CC例例

试试吧:

1. Private Sub CommandButton1_Click()
   
2.     Dim strURL$
   
3.     strURL = "https://tw.stock.yahoo.com/d/s/dividend_" & [A1].Value & ".html"
   
4.     [A3].CurrentRegion.Clear
   
5.     With ActiveSheet.QueryTables.Add("url;" & strURL, Range("a3"))
   
6.         .WebFormatting = xlWebFormattingNone '不包含格式
   
7.         .WebSelectionType = xlSpecifiedTables '指定table模式
   
8.         .WebTables = "8" '第2?table
   
9.         .Refresh False
   
10.     End With
    
11. End Sub

复制代码

bioleon

ammyc
CC例例
非常感謝兩位大大無私的幫忙
都可以使用!非常感謝
現在要開始研究兩位大大不同的程式碼
打算從實務開始著手進入VB的世界
希望兩位日後財源滾滾
身體健康 萬事如意!!

bioleon

今日已研究了實務上兩位大大的函數
也成功可以使用,應用
在a1輸入查詢之後
於a3將資料全部輸出非常感謝!

過程中發現到WebFormatting這個函數
可以設定輸出資料為來源表格格式




請教,如第一篇所提問

我需要編輯,想要自行設計一個表格格式
讓A3輸出的資料在我編輯好的表格格式內
有什麼方法可以做到嗎?
是否會非常複雜困難?




Private Sub CommandButton1_Click()
    Dim strURL$ '宣告strURL為變數
    strURL = "https://tw.stock.yahoo.com/d/s/dividend_" & [A1].Value & ".html" '定義strURL變數內容
    [A3].CurrentRegion.Clear
    With ActiveSheet.QueryTables.Add("url;" & strURL, Range("a3"))
        .WebFormatting = xlWebFormattingNone '(NONE)不包含格式,(ALL)包含格式
        .WebSelectionType = xlSpecifiedTables '指定table表格模式
        .WebTables = "8" '第2個table表格
        .Refresh False
    End With
End Sub

CC例例

bioleon 发表于 2016-8-25 13:50
今日已研究了實務上兩位大大的函數
也成功可以使用,應用
在a1輸入查詢之後

[A3].CurrentRegion.ClearFormats

bioleon

CC大 您好 感謝您指導
馬上進行演練

您回復的指導文中
意思是
[A3].CurrentRegion.Clear 替換成
[A3].CurrentRegion.ClearFormats 是這樣嗎?
如果是的話,實際操作似乎會有問題
會寫入第二筆資料,並且出現偵錯

另外
如果在A1如果沒有輸入文字或者查詢不到資料的狀況
在A1沒有打代號,或者代號打錯,或者隨便亂打中文
能不能設定在B1格子顯示"請輸入正確股價代號"
可以實現這樣的結果嗎?
非常感謝~~~~

bioleon

頂上去 我給他頂上去

bioleon

求解~~~頂~~
希望有大大可以指導~~感謝您