- 帖子
- 10
- 主題
- 5
- 精華
- 0
- 積分
- 16
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- SP3
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-7-23
- 最後登錄
- 2011-7-3
|
小弟屬小學生Hsieh大的DDE.rar小弟無法看到 可惜
小弟連結元大EasyWin做DDE資料擷取(5 sec擷取一次)
8:45 am前完成與EasyWin的連結後
按下『資料擷取鈕』將自08:45 am自動擷取資料
13:45:06 結束資料擷取
但PC時間需與EasyWin匹配否則會出現Error
如附件供參考
VBA碼
Sheet1 (Sheet4)
Private Sub CommandButton1_Click()
download
End Sub
Module1
Private ChartStr(5) As Long
Sub download()
Dim R1 As Range, R2 As Range
If Time >= TimeValue("13:45:06") Then End '13:45後停止程式
If Time < TimeValue("08:45:00") Then
ChartStr(5) = 1
Application.OnTime TimeValue("08:45:00"), "download" '08:45前程式設定於08:45執行 "download"程式
Exit Sub
Else
ChartStr(1) = [B65536].End(xlUp).Row
Application.OnTime Now + TimeValue("00:00:05"), "download"
End If
With Sheet1
ar1 = Array([D3], [E3], [L3])
.[B65536].End(xlUp).Offset(1, 0).Resize(, 3) = ar1
.[A65536].End(xlUp).Offset(1, 0) = Time
'小台近月
ar2 = Array([E4], [L4])
.[F65536].End(xlUp).Offset(1, 0).Resize(, 2) = ar2
End With
ChartStr(1) = ChartStr(1) + 1
Range("I6").Value = Range("G" & ChartStr(1)).Value
Range("I6").Select
End Sub |
|
發表於 2011-5-25 23:25
| 
