返回列表 上一主題 發帖

輸入股票代號,資料內容顯示於已編輯的表格內

bioleon69
　暱稱: 小B

中學生Rank: 2

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

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-8-28 15:52 | 只看該作者

輸入股票代號,資料內容顯示於已編輯的表格內

各位大大好~有小小問題想請教
目前還在學習VB中,希望藉由實務的修改
從中間開始研究,學習VB

目前功能：
可以在A1輸入代號查詢股利資料
並且顯示在A3

但~表格不能編輯

問題：
▲我需要編輯,想要自行設計一個表格格式
讓A3輸出的資料在我編輯好的表格格式內

▲A1輸入不是正確的股票代號時,或者空格沒輸入
能否在B1顯示"請輸入正確股票代號"

請問以上如何實現?

以下是程式代碼
  1. Private Sub CommandButton1_Click()
  2.     Dim strURL$ '宣告strURL為變數
  3.     strURL = "https://tw.stock.yahoo.com/d/s/dividend_" & [A1].Value & ".html" '定義strURL變數內容
  4.     [A3].CurrentRegion.Clear
  5.     With ActiveSheet.QueryTables.Add("url;" & strURL, Range("a3"))
  6.         .WebFormatting = xlWebFormattingNone '(NONE)不包含格式,(ALL)包含格式
  7.         .WebSelectionType = xlSpecifiedTables '指定table表格模式
  8.         .WebTables = "8" '第8個table表格
  9.         .Refresh False
  10.     End With
  11. End Sub
複製代碼
非常感謝...
收藏 分享

bioleon69
　暱稱: 小B

中學生Rank: 2

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

論壇贊助勳章
2#
發表於 2016-9-4 20:20 | 只看該作者
EX1.rar (17.78 KB)


附上檔案

大力頂上去

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2016-9-5 13:20 | 只看該作者
回復 3# bioleon69

▲我需要編輯,想要自行設計一個表格格式,附檔沒有你自行設計一個表格.
讓A3輸出的資料在我編輯好的表格格式內,你要如何編輯附檔沒有說明.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

bioleon69
　暱稱: 小B

中學生Rank: 2

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

論壇贊助勳章
4#
發表於 2016-9-5 16:53 | 只看該作者
EX1.rar (17.5 KB)


菜鳥我已經簡單的把表格內著色
還有用了簡單框線以及字型
主要是希望打入股票代號後
A3所呈現的資料格式是依照我以上所編輯的表格內格式


問題：
▲
讓A3輸出的資料在我美化好的表格內


▲
A1輸入不是正確的股票代號時,或者空格沒輸入
能否在B1顯示"請輸入正確股票代號"


請求各路大俠幫助!!!

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-9-6 14:49 | 只看該作者
回復 4# bioleon69

試試看
  1. Option Explicit
  2. Private Sub CommandButton1_Click()
  3.     Dim strURL$ '宣告strURL為變數
  4.     strURL = "https://tw.stock.yahoo.com/d/s/dividend_" & [A1].Value & ".html" '定義strURL變數內容
  5.     [A3].CurrentRegion = ""   '清除文字沒清除格式(美化好的表格)
  6.     With ActiveSheet.QueryTables.Add("url;" & strURL, Range("a3"))
  7.         .WebFormatting = xlWebFormattingNone '(NONE)不包含格式,(ALL)包含格式
  8.         .WebSelectionType = xlSpecifiedTables '指定table表格模式
  9.         .WebTables = "8" '第8個table表格
  10.         On Error Resume Next
  11.         .Refresh False
  12.         If Err <> 0 Then
  13.             [B1] = "請輸入正確股票代號"
  14.         Else
  15.             [B1] = ""
  16.         End If
  17.     End With
  18. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

bioleon69
　暱稱: 小B

中學生Rank: 2

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

論壇贊助勳章
6#
發表於 2016-9-7 17:46 | 只看該作者
完全可以使用!!
GB版大非常的感謝您
真的很厲害!
回家後會好好研究您目前的函數
把它好好學起來!!


會再度來打擾您的!!哈哈!!!
祝一切順心 身體健康 財源滾滾~~

TOP

bioleon69
　暱稱: 小B

中學生Rank: 2

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

論壇贊助勳章
7#
發表於 2016-9-8 00:51 | 只看該作者
GBK大~~我又來了阿!!哈哈
已經開始在研究您的程式碼了~!!

目前又遇到2個小問題

@
A3資料呈現確實可以編輯表格內文字顏色背景等等的!這邊是OK!
但是"欄寬"部分 會跑回去
"欄寬"是否可以實現如同文字顏色背景一樣,能夠自適應?
@
在查詢失敗,B1會顯示"請輸入正確股票代號"
這部分完美!可使用!!正常運作!!
那反之,如果查詢成功了,B1格內就會"空白"
所以我想說
是否可以實現查詢成功,"B1"就顯示所輸入的股價代號以及名稱?


感謝GBK大大~~您辛苦了~~~~!!!!

TOP

bioleon69
　暱稱: 小B

中學生Rank: 2

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

論壇贊助勳章
8#
發表於 2016-9-8 00:56 | 只看該作者
ex2.rar (20.09 KB)

附上檔案~~~~~

再次感謝大大!!!

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2016-9-9 14:28 | 只看該作者
回復 8# bioleon69
試試看
  1. Option Explicit
  2. Private Sub CommandButton1_Click()
  3.     Dim strURL$ '宣告strURL為變數
  4.     strURL = "https://tw.stock.yahoo.com/d/s/dividend_" & [A1].Value & ".html" '定義strURL變數內容
  5.     [A3].CurrentRegion = ""   '清除文字沒清除格式(美化好的表格)
  6.     With ActiveSheet.QueryTables.Add("url;" & strURL, Range("a3"))
  7.         .WebFormatting = xlWebFormattingNone '(NONE)不包含格式,(ALL)包含格式
  8.         .WebSelectionType = xlSpecifiedTables '指定table表格模式
  9.         .WebTables = "8" '第8個table表格
  10.         On Error Resume Next
  11.         .Refresh False
  12.         [B1] = ""
  13.         If Err <> 0 Then
  14.             [B1] = "請輸入正確股票代號"
  15.         Else
  16.             '**********************************
  17.             '"欄寬"是否可以實現如同文字顏色背景一樣,能夠自適應?
  18.             '請錄製巨集後套用程式碼在此
  19.             '*****************************'
  20.             [B1] = 網頁(strURL)  '填上股票名稱代號
  21.         End If
  22.     End With
  23. End Sub
  24. Private Function 網頁(Surl As String) As String
  25.     Dim oXmlhttp As Object, oHtmldoc As Object
  26.     Set oXmlhttp = CreateObject("msxml2.xmlhttp")
  27.     Set oHtmldoc = CreateObject("htmlfile")
  28.     With oXmlhttp
  29.         .Open "Get", Surl, False
  30.         .Send
  31.         oHtmldoc.write .responseText
  32.     End With
  33.     網頁 = Split(oHtmldoc.Title, "-")(0)
  34. End Function
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

bioleon69
　暱稱: 小B

中學生Rank: 2

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

論壇贊助勳章
10#
發表於 2016-9-9 21:50 | 只看該作者
好的,感謝GBK大
目前測試OK!也把巨集複製進去了!!
需要花點時間研究~程式碼忽然爆炸性成長了哈
謝謝~~~~這個網抓程式碼確實好用!!
強!

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題