DDE資料紀錄問題 - Excel程式區 - 麻辣家族討論版版

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兔年全勤獎章

38^# 跳轉到 »

發表於 2013-7-30 15:02 | 只看該作者

回復 36# npapower
這主題就有

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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兔年全勤獎章

37^#

發表於 2013-7-30 14:05 | 只看該作者

回復 35# slip T
執行多檔案時,該這樣的.

Sub GetDDE()
Dim T As Date, Sh(1 To 2)
T = Now '取得現在時間
Set Sh(1) = ThisWorkbook.Sheets(1)
Set Sh(2) = ThisWorkbook.Sheets(2)
If Not IsError(Sh(1).[B2]) Then Sh(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sh(1).[A2:G2].Value '工作表1的資料DDE連結成功寫入工作表2
Application.OnTime T + TimeValue("00:00:30"), "GetDDE" '這是以2秒測試，間隔5分鐘改成TimeValue("00:05:00"),
End Sub

複製代碼

T檔案

Sub duplicate_Click()
Dim nextRows As Single
With ThisWorkbook.Sheets("Sheet1")
nextRows = .Range("A" & Rows.Count).End(xlUp).Row + 1

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

npapower

小學生 Rank: 1

帖子: 1
主題: 1
精華: 0
積分: 8
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 10
性別: 男
來自: taiwan
註冊時間: 2013-7-29
最後登錄: 2013-7-31

36^#

發表於 2013-7-30 12:44 | 只看該作者

請教各位版大先進~DDE

各位版大大家好:
小弟想請教一下我個人使用的是永豐報價軟體，想透過DDE的方式把個股的成交價格按照15秒左右的時間記錄下來到EXCEL，
然後畫成走勢圖。想跟大大們請教我該如何做~?萬分感謝。

每個人的存在都在連結遙遠的過去與未來。

TOP

slip

中學生 Rank: 2

帖子: 47
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: windows
軟體版本: w7
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2012-5-3
最後登錄: 2015-6-19

35^#

發表於 2013-7-30 10:45 | 只看該作者

回復 34# GBKEE
GBKEE 大大
我同時開兩個檔案 "Book8" & "T"
如果畫面留在"Book8"執行時,"Book8"檔案會正常運作

可是如果我切換到 "T"檔案執行
再點回 "Book8"檔執行的話

那在我"T"檔案執行的時間
這段時間"Book8"檔案會出現這樣

謝謝您的幫忙.......

slip

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兔年全勤獎章

34^#

發表於 2013-7-29 15:25 | 只看該作者

回復 33# slip

'With Sheets(2).[A65536].End(xlUp).Offset(1)
'Sheets(2) 物件: 沒指明父層為作用中活頁簿,的第2個工作表物件
'改成
With ThisWorkbook.Sheets(2).[A65536].End(xlUp).Offset(1)
'ThisWorkbook 物件: 代表目前執行巨集程式碼所在的活頁簿
或
With Workbooks("Book8.xls").Sheets(2).[A65536].End(xlUp).Offset(1)
'Workbooks("Book8.xls") 物件:指定名稱的活頁簿

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

slip

中學生 Rank: 2

帖子: 47
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: windows
軟體版本: w7
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2012-5-3
最後登錄: 2015-6-19

33^#

發表於 2013-7-29 15:02 | 只看該作者

回復 31# GBKEE
"GBKEE"大大你好;

原檔案"book8"

Book8.rar (15.62 KB)
發生一個問題請幫忙
我會同時又開一個excel檔"T"(此excel也是在抓DDE)

T.rar (29.95 KB)
就會出現以下訊息

感恩

slip

TOP

slip

中學生 Rank: 2

帖子: 47
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: windows
軟體版本: w7
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2012-5-3
最後登錄: 2015-6-19

32^#

發表於 2013-7-22 09:43 | 只看該作者

回復 31# GBKEE
真的12萬分感謝"GBKEE"大大

我今天執行起來
完全是我要
並且大大又多送我一個功能
圖表會跟著資料區間自動往下移動
實在太感謝大大了

slip

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兔年全勤獎章

31^#

發表於 2013-7-19 19:38 | 只看該作者

回復 30# slip
請自行依照如下修改

With .Axes(xlValue) 'Y(主)座標軸
.MinimumScale = Application.Min(.Parent.Parent.Parent.[I:I]) '最小值
.MaximumScale = Application.Max(.Parent.Parent.Parent.[I:I]) '最大值
.MajorUnitIsAuto = True '主要刻度間距=自動設定
.MinorUnitIsAuto = True '次要刻度間距=自動設定
.Crosses = xlAutomatic '座標軸與其他座標軸交叉的點=自動設定
.ScaleType = xlLinear '數值座標軸的刻度類型=xlLinear
End With
With .Axes(xlValue, xlSecondary) 'Y(副)座標軸
.MinimumScale = Application.Min(.Parent.Parent.Parent.[J:J]) '最小值
.MaximumScale = Application.Max(.Parent.Parent.Parent.[J:J]) '最大值
.MaximumScaleIsAuto = True
.MajorUnitIsAuto = True
.MinorUnitIsAuto = True
.Crosses = xlAutomatic
.ScaleType = xlLinear
End With

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

slip

中學生 Rank: 2

帖子: 47
主題: 8
精華: 0
積分: 81
點名: 0
作業系統: windows
軟體版本: w7
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2012-5-3
最後登錄: 2015-6-19

30^#

發表於 2013-7-19 18:41 | 只看該作者

回復 29# GBKEE
謝謝"GBKEE 大大"
今天試過的狀況如Book6.rar

Book6.rar (13.66 KB)

說明如下
左邊Y軸 = I欄位 = 數列2 的最大,最小
右邊Y軸 = J欄位 = 數列1 的最大,最小
附圖為今日用手動做出來的圖(最大,最小範圍)

請"GBKEE " 大大再幫我修改
感謝+感恩

slip

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兔年全勤獎章

29^#

發表於 2013-7-19 09:10 | 只看該作者

回復 28# slip
試試看

Sub GetDDE()
Dim T As Date, xMax As Integer, xMin As Integer, i As Integer
T = Now '取得現在時間
If Not IsError(Sheets(1).[B2]) Then
Application.ScreenUpdating = False
With Sheets(2).[A65536].End(xlUp).Offset(1) '物件
i = .Row 'Row(物件屬性):列號
.Resize(, 7) = Sheets(1).[A2:G2].Value '工作表1的資料DDE連結成功寫入工作表2
.Range("H1") = .Range("D1") - .Range("C1") 'H欗的公式=>D欗-C欗
.Range("I1") = .Range("H1") - .Range("H1").Offset(-1) 'I413=H413-H412......數列2
.Range("J1") = .Range("E1") 'J欗的公式=E欗
xMax = Application.Max(.Parent.[i:j]) '最大值
xMin = Application.Min(.Parent.[i:j]) '最小值
'** .Parent.ChartObjects(1): 物件 (工作表的第1個圖表) *****
With .Parent.ChartObjects(1).Chart
.SeriesCollection(1).Values = .Parent.Parent.Range("J2:J" & i) '指定數列資料的範圍
.SeriesCollection(1).ChartType = 52 '指定數列圖表類型
.SeriesCollection(2).Values = .Parent.Parent.Range("i2:i" & i)
.SeriesCollection(2).ChartType = 65
If .SeriesCollection(2).AxisGroup <> xlSecondary Then .SeriesCollection(2).AxisGroup = xlSecondary '數列不在第2Y座標軸(副座標): 數列指定到第2Y座標軸(副座標)
'.AxisGroup = 2 -> 副座標
.Parent.Top = .Parent.Parent.Range("L" & IIf(i <= 39, 1, i - 38)).Top '指定圖表頂端的位置
With .Axes(xlValue) 'Y座標軸
.MinimumScale = xMin
.MaximumScale = xMax
.MajorUnitIsAuto = True '主要刻度間距=自動設定
.MinorUnitIsAuto = True '次要刻度間距=自動設定
.Crosses = xlAutomatic '座標軸與其他座標軸交叉的點=自動設定
.ScaleType = xlLinear '數值座標軸的刻度類型=xlLinear
End With
With .Axes(xlValue, xlSecondary) '第2Y座標軸(副座標)
.MinimumScale = xMin
.MaximumScale = xMax
.MaximumScaleIsAuto = True
.MajorUnitIsAuto = True
.MinorUnitIsAuto = True
.Crosses = xlAutomatic
.ScaleType = xlLinear
End With
End With
End With
Application.ScreenUpdating = True
End If
Application.OnTime T + TimeValue("00:01:00"), "GetDDE" '間隔5分鐘改成TimeValue("00:05:00"),
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

[發問] DDE資料紀錄問題

請教各位版大先進~DDE

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

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