Board logo

標題: DDE資料抓取,逐格顯示問題 [打印本頁]
作者: jackson184    時間: 2011-3-30 00:34     標題: DDE資料抓取,逐格顯示問題

請問各位大大,
在DDE中, 我需要每10分鐘抓取資料.
但要逐格顯示,
意思如下:
8:45期貨開盤....第一筆資料
8:55......第二筆資料
9:05......第三筆資料
.....以此類推.
檔案中,
Sheet1...是卷商DDE資料變動.
Sheet2...每十分鐘抓取資料.
這要如何寫呢?
作者: GBKEE    時間: 2011-3-30 12:47

回復 1# jackson184
傳檔來試試
作者: jackson184    時間: 2011-3-30 23:54

回復 2# GBKEE


    [attach]5178[/attach]

先感謝GBKEE幫忙,
檔案中有三個頁面,
第一頁: 我要觀查WMS指數.
第二頁:抓取第三頁卷商DDE回傳的數據, 需要逐格記錄90次. 每10分鐘抓取一次.
第三頁:卷商DDE數據.

很抱歉, VBA剛學習中, 看過各位討論, 還不太容易上手,
因為是小學生資格, 沒辦法下載檔案.

或者請GBKEE或各位大大給個方向, 我再慢慢學習, 再請各位檢查.
作者: GBKEE    時間: 2011-4-1 13:19

回復 3# jackson184
如圖 插入一模組 將下列兩程序貼上

[attach]5197[/attach]
  1. Option Explicit             '在模組層次中強迫每個在模組裏的變數都必須明確的宣告。
  2. Dim Rng As Range            ' 通用於模組(Module) 內的私用變數
  3. Private Sub AUTO_OPEN()     '此巨集於檔案開啟時會自動執行
  4.     With Sheets("90")
  5.         .UsedRange.Offset(1).Clear                '清除 前一日的數據
  6.         Set Rng = .Range("A2:A31,F2:F31,K2:K31")  '數據傳回的區域,為多重範圍.
  7.     End With
  8.     If Time < TimeValue("08:45") Then             '早於開盤時間
  9.         Application.OnTime TimeValue("08:45"), "MyDee"    '設定於08:45 執行 MyDee 程序
  10.     ElseIf Time >= TimeValue("08:45") And Time <= TimeValue("13:30") Then '於交易時間內
  11.         MyDee                                     ' 執行 MyDee 程序
  12.     End If
  13. End Sub
  14. Private Sub MyDee()
  15.     Dim A As Integer, Ar(), R As Integer, C As Integer
  16.      If Time > TimeValue("13:30") Then Exit Sub     ' 收盤時間後 停止執行
  17.     A = Application.CountA(Rng)             '計算 (數據傳回的區域)有資料儲存格的總數
  18.     If A <= 29 Then C = A + 1               'C 為  數據傳回的區域的列位
  19.     If A Mod 30 >= 0 Then C = (A Mod 30) + 1
  20.     R = Int(A / 30) + 1                     'R 為多重範圍的第幾個範圍
  21.     With Sheets("連結")
  22.         Ar = Array(Now, A + 1, .Range("I2"), .Range("J2"))
  23.         'Ar 為取得  1. 時間, 2.項次,3.最高價 ,4,最低價  '找不到 ->  收盤價找不到
  24.         'Ar = Array(Now, A + 1, .Range("I2"), .Range("J2"), 收盤價 ) '有收盤價
  25.     End With
  26.     Rng.Areas(R).Cells(C).Resize(1, 4) = Ar
  27.     'Rng.Areas(R).Cells(C).Resize(1, 5) = Ar   '有收盤價
  28.     Application.OnTime Now + TimeValue("00:10"), "MyDee"  '設定 10分後 執行 MyDee 程序
  29. End Sub
複製代碼
作者: FAlonso    時間: 2011-4-1 15:28

請問這個例子要安裝什麼額外軟件才能運行?
作者: GBKEE    時間: 2011-4-1 16:49

本帖最後由 GBKEE 於 2011-4-1 16:52 編輯

回復 5# FAlonso
樓主是用看盤軟體的
試試看,可選擇股票,10秒紀錄一次.

[attach]5200[/attach]
作者: FAlonso    時間: 2011-4-1 21:24

回復 6# GBKEE
謝謝回覆,不過有幾點問題
因為GBKEE大大沒有寫end if,讀起來有點不慣
程式是否指
  1. If Time > TimeValue("13:30") Then
  2. Exit Sub
  3. End If
  4. ...
  5. ...
  6. ...

  8. If InStr(.ResultRange.Rows(3).Cells(1), stockcode) = 0 Then  
  9. GoTo refresh_err:
  10. Else

  12. Application.EnableEvents = False

  14. Set myrange = mysheet.Range("a65536").End(xlUp).Offset(1).Resize(1, .ResultRange.Columns.Count - 1)
  15. myrange.Value = .ResultRange.Rows(3).Value

  17. Application.EnableEvents = True

  19. myrange.Select

  21. End If
  22. End With

  24. Application.OnTime Now + TimeValue("00:00:10"), "myprogram"

  26. exit sub   這個exit sub是對應什麼

  28. refresh_err:
  29. MsgBox "Stock " & stockcode & " cannot be found"

  31. End Sub
複製代碼
作者: jackson184    時間: 2011-4-2 14:40

本帖最後由 jackson184 於 2011-4-2 15:26 編輯

回復 4# GBKEE


    謝謝GBKEE大大,
因為我還是小學生,
還不能下載您的範例.
我再試看看, 不懂再請教您.
作者: GBKEE    時間: 2011-4-2 16:06

回復 8# jackson184
依圖片在你excel的 vba視窗 插入一模組
回到 論壇  如圖
  按下 「複製代碼」後會顯示 [代碼已複製到剪貼簿] 的信息 ,回到 vba視窗貼上即可

[attach]5218[/attach]



回復 7# FAlonso
If Time > TimeValue("13:30") Then
Exit Sub
End If
'''''''''''''''''''''''''''''''''''''''''
If Time > TimeValue("13:30") Then  Exit Sub
此為簡化 都是可達到一樣的效果
作者: FAlonso    時間: 2011-4-2 16:47

回復 9# GBKEE
謝謝
我另外在"紀錄"一頁加了以下程式
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Target.Count > 1 Or Target.Address <> "$C$1" Then
  3. Exit Sub
  4. Else
  5. Sheet2.Range("A3:K65536").Clear
  6. myprogram  '和myDEE的程式一樣
  7. End If
  8. End Sub
複製代碼
原意是想當C1格子股票編號變動時,清空"紀錄"的資料以引入新股票訊息
有一點小問題,當該股票編號不存在時,會引發兩次"沒有該股票"的msgbox
理論上顯示msgbox後應該什麼也不動,不過程式卻額外連線至web,然後再執行msgbox
我用F8逐行程式執行也只顯示一次而已
不知有何解決法?
作者: GBKEE    時間: 2011-4-2 20:41

回復 10# FAlonso
Private Sub MyDee()
    Dim Sh As Worksheet, Rng As Range, 代號 As String
    Static Run_Time As Date            'Static 陳述式宣告的變數，在程式執行期間，會一直保留內容
  ' If Time > TimeValue("13:30") Then Exit Sub     ' 收盤時間後 停止執行
    Set Sh = Sheets("紀錄")
    代號 = Sheets("紀錄").[C1]
    Sh.Activate
    With Sheets("匯入").QueryTables(1)
        .Connection = "URL;http://tw.stock.yahoo.com/q/q?s=" & 代號
       .Refresh False
        If InStr(.ResultRange.Rows(3).Cells(1), 代號) = 0 Then GoTo Refresh_Err:
       Application.EnableEvents = False
        Set Rng = Sh.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, .ResultRange.Columns.Count - 1)
        Rng.Value = .ResultRange.Rows(3).Value
        Application.EnableEvents = True
        Rng.Select
    End With
    Run_Time = Now + TimeValue("00:00:10")
    Application.OnTime Run_Time, "MyDee"  '設定 10秒後 執行 MyDee 程序
    Exit Sub
Refresh_Err:
    On Error Resume Next
    Application.OnTime Run_Time, "MyDee", , False  '清除先前設定的程序
    MsgBox "找不到 " & Sheets("紀錄").[C1] & " 股票"
End Sub
作者: FAlonso    時間: 2011-4-3 12:27

回復 11# GBKEE
多謝解答,但為什麼要做這樣的動作?
(1) 當instr(........,代號) = 0,程式會跳到最後refresh_err而不會做成重新呼叫mydee,現在卻要特意叫停?
(2) static一字,表面看其實用和不用也沒分別. 因為重覆運行, run_time的值是now+timevalue("00:00:10"),完全不需繼承run_time之前的數值; 不重覆運行,便會是application ontime 0:00:00,mydee,,false,也不用前面的值. 但是不用static,就是會出現問題.
我的理解究竟那裡發生問題?
作者: GBKEE    時間: 2011-4-3 14:33

1 在這網頁查詢股票的代號,InStr(.ResultRange.Rows(3).Cells(1), 代號), 為比對 匯入的資料是否包含股票的代號  當此函數為0 時表示沒有這個股票代號
2 不用static,就是會出現問題...
  不用static,可在模組最上方 Dim Run_Time As Date  設為 模組的私用變數.
作者: lin    時間: 2011-4-16 22:52

我是一個業餘股票族,在網路上下載一些有關股票的Excel程式,總覺得不完全符合個人需求,所以有空我會修改或加強下載程式,供個人使用,但因怕觸犯智慧財產權,所以不敢送他人使用,也不敢在網路上公開.



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)