12
返回列表 上一主題 發帖

[發問] 2014櫃買改版

pbchen

帖子
8 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
wiinXP 
軟體版本
1.2.8.1 
閱讀權限
10 
性別
男 
註冊時間
2014-2-24 
最後登錄
2014-3-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-2-24 17:07 | 只看該作者

[發問] 2014櫃買改版

各位先進好，試著用歷史資料作JS取得資料
2014櫃買改版 一些前輩的心血都不能用了 可惜
可是只能取得表頭，可否指點是哪裡出錯~:)

Sub WEBQ()
    Dim ptxt As String
    Dim yy, stock
    Sheet1.Activate
    If Sheet1.QueryTables.Count = 0 Then
        Sheet1.QueryTables.Add Connection:="URL;", Destination:=Range("A1:E1")
    End If
    yy = InputBox("輸入查詢月份", "國年/月份")
    If yy = "" Then Exit Sub
   
    stock = InputBox("輸入股票代碼", "個股")
    If stock = "" Then Exit Sub
    With Sheet1.QueryTables(1)
        .Connection = "URL;http://www.otc.org.tw/ch/emergingstock/single_historical/result.php"
        .PreserveFormatting = False
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebDisableDateRecognition = True
        .PostText = "ajax=true&input_month=" & yy & "&stk_code=" & stock
        .Refresh False
    End With
End Sub
收藏 分享

pbchen

帖子
8 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
wiinXP 
軟體版本
1.2.8.1 
閱讀權限
10 
性別
男 
註冊時間
2014-2-24 
最後登錄
2014-3-18 
2#
發表於 2014-2-24 17:42 | 只看該作者
邊想邊發 忘了附件~:)
testQuery.rar (16.7 KB)

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2014-2-24 19:31 | 只看該作者
回復 1# pbchen

.PostText = "ajax=true&input_month=" & yy & "&input_emgstk_code=" & stock

TOP

pbchen

帖子
8 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
wiinXP 
軟體版本
1.2.8.1 
閱讀權限
10 
性別
男 
註冊時間
2014-2-24 
最後登錄
2014-3-18 
4#
發表於 2014-2-24 20:36 | 只看該作者
回復 3# stillfish00

多謝秒回
不過一直開啟不了家中的 開發人員選項
只能明天再試了 再次感謝~:handshake

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
5#
發表於 2014-2-24 21:44 | 只看該作者
回復 3# stillfish00
行家一出手，就知有沒有

懂的就知道

雖然我現在不抓了

TOP

pbchen

帖子
8 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
wiinXP 
軟體版本
1.2.8.1 
閱讀權限
10 
性別
男 
註冊時間
2014-2-24 
最後登錄
2014-3-18 
6#
發表於 2014-2-25 09:25 | 只看該作者
一試即成 多謝太太指教
原來是JS裡面的名稱有誤
分享給有需要的同學
testQuery2.rar (18.38 KB)


接著開始學下一階段:)

TOP

heavenweaver

帖子
48 
主題
6 
精華
0 
積分
60 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-13 
最後登錄
2023-2-7 
7#
發表於 2014-2-26 00:45 | 只看該作者
我也來測試一下，的確可以work!
但是
.WebSelectionType = xlEntirePage
會抓太多不必要的資料
---------------------
Sub WEBQ()
' 興櫃個股歷史行情

    Dim ptxt As String
    Dim yy, stock
    Sheet1.Activate
    If Sheet1.QueryTables.Count = 0 Then
        Sheet1.QueryTables.Add Connection:="URL;", Destination:=Range("A1:E1")
    End If
    'yy = InputBox("輸入查詢月份", "國年/月份")
    yy = "103/02"
    If yy = "" Then Exit Sub
   
    'stock = InputBox("輸入股票代碼", "個股")
   '4990 晶美
    stock = "4990"
    If stock = "" Then Exit Sub

    With Sheet1.QueryTables(1)
        .Connection = "URL;http://www.gretai.org.tw/ch/emergingstock/single_historical/history.php"
        .PreserveFormatting = False
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebDisableDateRecognition = True
        .PostText = "ajax=true&input_month=" & yy & "&input_emgstk_code=" & stock
        .Refresh BackgroundQuery:=False
    End With
'
End Sub
很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

heavenweaver

帖子
48 
主題
6 
精華
0 
積分
60 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-13 
最後登錄
2023-2-7 
8#
發表於 2014-2-26 08:42 | 只看該作者
回復 3# stillfish00
真的很厲害，過去我都看網頁內容怪不得下錯參數，原來是要[檢測網路要求]，查看[請求內容]要這樣找才能找到真正的參數。
Thanks!:lol
很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

heavenweaver

帖子
48 
主題
6 
精華
0 
積分
60 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-13 
最後登錄
2023-2-7 
9#
發表於 2014-2-26 08:55 | 只看該作者
回復 5# joey0415
果然都是行家，本來我還在抱怨著為什麼不說清楚一點，原來是自己是笨拙不會用網頁開發工具，花了一點時間才摸到石頭過河，你們都是我的老師呀！
很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

pbchen

帖子
8 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
wiinXP 
軟體版本
1.2.8.1 
閱讀權限
10 
性別
男 
註冊時間
2014-2-24 
最後登錄
2014-3-18 
10#
發表於 2014-3-5 11:53 | 只看該作者
請問高手:)
基於原查詢程式WebQ000程式
我又寫了一個自動分頁的程式Addpage000
想實現
1.依名單"list"自動產生"股號別"分頁
2.偵測為每分頁空白後自動貼上資料
請問是哪裡出了錯?
可否指點一下~?
-------------------------

Sub Addpages000()               'OK的自動分頁
Dim ii, yy                     'ii自動數list  yy年/月
Dim stock                      'stock股號與表名
Dim ptxt As String             '連線用
ii = 2                         '起始
yy = 103 / 1                   '先用定數

Do While Worksheets("list").Cells(ii, 1) <> ""
    stock = Worksheets("list").Cells(ii, 1)
    Worksheets.Add
    ActiveSheet.Name = stock
   
    Application.Wait Now + TimeValue("00:00:01")         'wait 1s
   
    ii = ii + 1
Loop
   
End Sub



Sub WebQ000()                                                                'OK的網路查詢

    Dim ptxt As String
    Dim yy, stock
    Dim ii
   
    ii = 2
    yy = 103 / 1
    stock = Worksheets("list").Cells(ii, 1)
   
   
    If Worksheets("list").Cells(ii, 1) = 0 Then
        Worksheets(ii).Selection
        ActiveSheet.QueryTables.Add Connection:="URL;", Destination:=Range("A1")
        .Connection = "URL;http://www.otc.org.tw/ch/emergingstock/single_historical/result.php"
        .PreserveFormatting = False
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebDisableDateRecognition = True
        .PostText = "ajax=true&input_month=" & yy & "&input_emgstk_code=" & stock
        .Refresh False
   
        Application.Wait Now + TimeValue("00:00:01")         'wait 1s
   
         ii = ii + 1
    Else: Exit Sub
    End If
-----------------------------------------------
test004自動分頁儲存.rar (14.86 KB)

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
12
返回列表 上一主題