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

FAlonso

中學生 Rank: 2

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

5^# 跳轉到 »

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

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

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

複製代碼

TOP

jackson184

中學生 Rank: 2

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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
傳檔來試試

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]