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

小學生 Rank: 1

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

16^#

發表於 2014-3-10 21:07 | 只看該作者

回復 14# is681003

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

TOP

pbchen

小學生 Rank: 1

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

15^#

發表於 2014-3-10 21:05 | 只看該作者

回復 13# joey0415

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

TOP

is681003

小學生 Rank: 1

帖子: 9
主題: 0
精華: 0
積分: 9
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
性別: 女
註冊時間: 2014-3-6
最後登錄: 2014-3-13

14^#

發表於 2014-3-10 12:23 | 只看該作者

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

應該對吧

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

13^#

發表於 2014-3-8 10:43 | 只看該作者

回復 12# pbchen
上市櫃下載的CSV檔，每日約有15~20MB，如果你有一年就有多大容量，而EXCEL基本上是簡單表格處理，要大量的存就要資料庫，我從去年八月至今，就要2G，如果要EXCEL要處理這樣的資料，速度差很多，我自己是放在SQLITE中，當然MYSQL SQL SERVER 甲骨文等，都是不錯的選擇，不然就是我自己技巧太差，造成容量巨大

TOP

pbchen

小學生 Rank: 1

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

12^#

發表於 2014-3-7 17:44 | 只看該作者

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

TOP

joey0415

　暱稱: joey0415

中學生 Rank: 2

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

11^#

發表於 2014-3-6 08:18 | 只看該作者

回復 10# pbchen

這個資料量很大，不建議放 excel中，否則過沒幾個月又要換地方

資料庫才是最佳的

TOP

pbchen

小學生 Rank: 1

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