[發問] 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

小學生 Rank: 1

帖子: 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

pbchen

小學生 Rank: 1

帖子: 8
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: wiinXP
軟體版本: 1.2.8.1
閱讀權限: 10
性別: 男
註冊時間: 2014-2-24
最後登錄: 2014-3-18

3^#

發表於 2014-2-24 20:36 | 顯示全部帖子

回復 3# stillfish00

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

TOP

pbchen

小學生 Rank: 1

帖子: 8
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: wiinXP
軟體版本: 1.2.8.1
閱讀權限: 10
性別: 男
註冊時間: 2014-2-24
最後登錄: 2014-3-18

4^#

發表於 2014-2-25 09:25 | 顯示全部帖子

一試即成多謝太太指教
原來是JS裡面的名稱有誤
分享給有需要的同學

testQuery2.rar (18.38 KB)

接著開始學下一階段:)

TOP

pbchen

小學生 Rank: 1

帖子: 8
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: wiinXP
軟體版本: 1.2.8.1
閱讀權限: 10
性別: 男
註冊時間: 2014-2-24
最後登錄: 2014-3-18

5^#

發表於 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

pbchen