123456
返回列表 上一主題 發帖

[發問] DDE資料紀錄問題

GBKEE

帖子
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
請自行依照如下修改
  1. With .Axes(xlValue)             'Y(主)座標軸
  2.                     .MinimumScale = Application.Min(.Parent.Parent.Parent.[I:I])                        '最小值
  3.                     .MaximumScale = Application.Max(.Parent.Parent.Parent.[I:I])                        '最大值
  4.                     .MajorUnitIsAuto = True      '主要刻度間距=自動設定
  5.                     .MinorUnitIsAuto = True      '次要刻度間距=自動設定
  6.                     .Crosses = xlAutomatic       '座標軸與其他座標軸交叉的點=自動設定
  7.                     .ScaleType = xlLinear        '數值座標軸的刻度類型=xlLinear
  8.                 End With
  9.                 With .Axes(xlValue, xlSecondary) 'Y(副)座標軸
  10.                     .MinimumScale = Application.Min(.Parent.Parent.Parent.[J:J])                        '最小值
  11.                     .MaximumScale = Application.Max(.Parent.Parent.Parent.[J:J])                        '最大值
  12.                     .MaximumScaleIsAuto = True
  13.                     .MajorUnitIsAuto = True
  14.                     .MinorUnitIsAuto = True
  15.                     .Crosses = xlAutomatic
  16.                     .ScaleType = xlLinear
  17.                 End With
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

slip

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

slip

帖子
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)
就會出現以下訊息
問題1.png
2013-7-29 15:02

問題2.png
2013-7-29 15:02


感恩
slip

TOP

GBKEE

帖子
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
  1. 'With Sheets(2).[A65536].End(xlUp).Offset(1)
  2.                'Sheets(2) 物件: 沒指明父層為作用中活頁簿,的第2個工作表物件
  3.         '改成
  4.         With ThisWorkbook.Sheets(2).[A65536].End(xlUp).Offset(1)
  5.             'ThisWorkbook           物件: 代表目前執行巨集程式碼所在的活頁簿
  6.           或   
  7.         With Workbooks("Book8.xls").Sheets(2).[A65536].End(xlUp).Offset(1)
  8.             'Workbooks("Book8.xls") 物件:指定名稱的活頁簿        
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

slip

帖子
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"檔案會出現這樣
切換出問題.png
2013-7-30 10:45

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

TOP

npapower

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

GBKEE

帖子
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
執行多檔案時,該這樣的.
  1. Sub GetDDE()
  2.     Dim T As Date, Sh(1 To 2)
  3.     T = Now  '取得現在時間
  4.     Set Sh(1) = ThisWorkbook.Sheets(1)
  5.     Set Sh(2) = ThisWorkbook.Sheets(2)
  6.     If Not IsError(Sh(1).[B2]) Then Sh(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sh(1).[A2:G2].Value  '工作表1的資料DDE連結成功寫入工作表2
  7.     Application.OnTime T + TimeValue("00:00:30"), "GetDDE"  '這是以2秒測試，間隔5分鐘改成TimeValue("00:05:00"),
  8. End Sub
複製代碼
T檔案
  1. Sub duplicate_Click()
  2.     Dim nextRows As Single
  3.     With ThisWorkbook.Sheets("Sheet1")
  4.         nextRows = .Range("A" & Rows.Count).End(xlUp).Row + 1
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

slip

帖子
47 
主題
8 
精華
0 
積分
81 
點名
0  
作業系統
windows 
軟體版本
w7 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2012-5-3 
最後登錄
2015-6-19 
39#
發表於 2013-7-31 00:25 | 只看該作者
回復 37# GBKEE
大大晚安
我修改後,出現程式錯誤訊號
錯誤訊息.png
2013-7-31 00:25

請大大指導
謝謝
Book8-未改前.rar (16.71 KB)
Book8-改過後.rar (15.04 KB)
slip

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
40#
發表於 2013-7-31 09:32 | 只看該作者
回復 39# slip
程式碼要了解一下是何錯誤  
***********      .為物件的屬性,方法   ********
   
  1.   WITH sh(?)    '物件: 你沒有設立
  2.              .Range("H1") = .Range("D1") - .Range("C1")                  'H欗的公式=>D欗-C欗
  3.             .Range("I1") = .Range("H1") - .Range("H1").Offset(-1)       'I413=H413-H412......數列2
  4.             .Range("J1") = .Range("E1")                                 'J欗的公式=E欗
  5.              '
  6.              '
  7. End With
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
123456
返回列表 上一主題