[發問] 2014櫃買改版

pbchen

各位先進好，試著用歷史資料作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

邊想邊發 忘了附件~:)
testQuery.rar (16.7 KB)

tetQuery
下載次數: 10

2014-2-24 17:41

pbchen

回復 3# stillfish00

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

pbchen

一試即成 多謝太太指教
原來是JS裡面的名稱有誤
分享給有需要的同學
testQuery2.rar (18.38 KB)

下載次數: 28

2014-2-25 09:24

接著開始學下一階段:)

pbchen

請問高手:)
基於原查詢程式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)

下載次數: 2

2014-3-5 11:53

pbchen

回復 11# joey0415
:)
請問資料庫是指?
倒也不是要全部股號都看
只是個人用來減少上班被抓包再看股價的東西啦:lol

pbchen

回復 13# joey0415

了解 巨量資料也是個問題
等於是要學個新語言有點辛苦
我EXCEL VBA就寫的七七八八了
要等有機緣才會再接觸八:)

pbchen

回復 14# is681003


太精簡了 不懂意思?
那段使用起來是OK的
晚回了些~