[發問] EXCEL連結DDE記錄問題

問一下各位前輩們,有找到每分鐘紀錄股票的開高收低價位VBA,但有一個問題想了解,有可能在一個工作表裡把多檔股票結DDE然後每個股票開一工作表同時個別記錄每一分鐘開高低收價嗎?

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2015-7-28 07:10 | 只看該作者

問一下各位前輩們,有找到每分鐘紀錄股票的開高收低價位VBA,但有一個問題想了解,有可能在一個工作表裡把多檔 ...
daniel5168 發表於 2015-7-27 20:13

只要你能把相關股票的開高收低價位匯入到工作表裡，之後你便能如願執行了。

TOP

daniel5168

中學生 Rank: 2

帖子: 85
主題: 26
精華: 0
積分: 65
點名: 0
作業系統: WINXP
軟體版本: SP3
閱讀權限: 20
註冊時間: 2015-7-15
最後登錄: 2018-9-18

3^#

發表於 2015-7-28 08:28 | 只看該作者

本帖最後由 daniel5168 於 2015-7-28 08:29 編輯

回復 2# c_c_lai

ublic uMode&, StartTime, EndTime
Public MyBook As Workbook, Sht1 As Worksheet, Sht2 As Worksheet, xRow&

Sub 共用參照()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("Sheet1")
StartTime = "08:44:50" '開盤時間（提早十秒開始，才可記錄開盤量價）"08:44:50"
EndTime = "13:45:10" '收盤時間（延後十秒停止記錄）此為測試用時間，請自行更改正式時間 "13:45:10"
End Sub

Sub 自動記錄()
If uMode = 0 Then Exit Sub
If Time > TimeValue(EndTime) Then '收盤時間以後不執行
Sht1.[O8] = "已過收盤"
uMode = 0
Exit Sub
End If
Sht1.Range("B8") = Time '當前時間（時間碼表）
'----------------------------------------------------------
'每１分鐘記錄，５分鐘則改為 Mod 5
If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then
xRow = Sht1.Range("A65536").End(xlUp).Row + 1
If xRow < 9 Then xRow = 9
Sht1.Range("A" & xRow & ":N" & xRow).Value = Sht1.Range("A8:N8").Value
'------------------------------------------------
If ActiveSheet.Name = Sht1.Name And xRow > 20 Then
ActiveWindow.ScrollRow = xRow - 18 '讓最新資料保持在可見視窗中
End If
ThisWorkbook.Save '存檔
Beep
End If
Application.OnTime Now + TimeValue("00:00:01"), "自動記錄" '每一秒遞迴一次
End Sub

Sub 開始執行()
If uMode = 1 Then Exit Sub
Call 共用參照
uMode = 1
Sht1.[O8] = "執行中"
Call 自動記錄
End Sub

Sub 停止執行()
uMode = 0
Call 共用參照
Sht1.[O8] = "STOP"
End Sub

Sub 清除記錄資料()
Beep
If MsgBox("※確定要清除〔Sheet1〕的記錄嗎？　", 4 + 32 + 256) = vbNo Then Exit Sub
Call 共用參照
Sht1.Rows("9:65536").ClearContents
If ActiveSheet.Name = Sht1.Name Then ActiveWindow.ScrollRow = 1
Beep
End Sub

這個是我找到的VBA 每一分鐘記錄一次
我該怎麼改成我想要的把商品同時分成數頁工作表同時分別每分鐘記錄一次