DDE資料抓取,逐格顯示問題

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-3-30 12:47 | 只看該作者

回復 1# jackson184
傳檔來試試

jackson184

帖子: 6
主題: 2
精華: 0
積分: 52
點名: 0
作業系統: windows xp
軟體版本: execl 2007
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-3-20
最後登錄: 2011-9-30

3^#

發表於 2011-3-30 23:54 | 只看該作者

回復 2# GBKEE

WMS-Test.rar (12.14 KB)

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

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

或者請GBKEE或各位大大給個方向, 我再慢慢學習, 再請各位檢查.

WMS-Test.rar (12.14 KB)

Jackson

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-4-1 13:19 | 只看該作者

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

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

複製代碼

FAlonso

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

5^#

發表於 2011-4-1 15:28 | 只看該作者

請問這個例子要安裝什麼額外軟件才能運行?

80 字節以內
不支持自定義 Discuz! 代碼

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-4-1 16:49 | 只看該作者

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

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

股票紀錄.rar (14.88 KB)

FAlonso

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

7^#

發表於 2011-4-1 21:24 | 只看該作者

回復 6# GBKEE
謝謝回覆,不過有幾點問題
因為GBKEE大大沒有寫end if,讀起來有點不慣
程式是否指

If Time > TimeValue("13:30") Then
Exit Sub
End If
...
...
...
If InStr(.ResultRange.Rows(3).Cells(1), stockcode) = 0 Then
GoTo refresh_err:
Else
Application.EnableEvents = False
Set myrange = mysheet.Range("a65536").End(xlUp).Offset(1).Resize(1, .ResultRange.Columns.Count - 1)
myrange.Value = .ResultRange.Rows(3).Value
Application.EnableEvents = True
myrange.Select
End If
End With
Application.OnTime Now + TimeValue("00:00:10"), "myprogram"
exit sub 這個exit sub是對應什麼
refresh_err:
MsgBox "Stock " & stockcode & " cannot be found"
End Sub

複製代碼

80 字節以內
不支持自定義 Discuz! 代碼

jackson184

帖子: 6
主題: 2
精華: 0
積分: 52
點名: 0
作業系統: windows xp
軟體版本: execl 2007
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-3-20
最後登錄: 2011-9-30

8^#

發表於 2011-4-2 14:40 | 只看該作者

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

回復 4# GBKEE

謝謝GBKEE大大,
因為我還是小學生,
還不能下載您的範例.
我再試看看, 不懂再請教您.

Jackson

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2011-4-2 16:06 | 只看該作者

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

回復 7# FAlonso
If Time > TimeValue("13:30") Then
Exit Sub
End If
'''''''''''''''''''''''''''''''''''''''''
If Time > TimeValue("13:30") Then Exit Sub
此為簡化都是可達到一樣的效果

FAlonso

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

10^#

發表於 2011-4-2 16:47 | 只看該作者

回復 9# GBKEE
謝謝
我另外在"紀錄"一頁加了以下程式

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Address <> "$C$1" Then
Exit Sub
Else
Sheet2.Range("A3:K65536").Clear
myprogram '和myDEE的程式一樣
End If
End Sub

複製代碼

原意是想當C1格子股票編號變動時,清空"紀錄"的資料以引入新股票訊息
有一點小問題,當該股票編號不存在時,會引發兩次"沒有該股票"的msgbox
理論上顯示msgbox後應該什麼也不動,不過程式卻額外連線至web,然後再執行msgbox
我用F8逐行程式執行也只顯示一次而已
不知有何解決法?

80 字節以內
不支持自定義 Discuz! 代碼