關於DDE動態連結問題 - Excel程式區

piero

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 7
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 10
性別: 男
註冊時間: 2011-4-27
最後登錄: 2011-5-20

11^# 跳轉到 »

發表於 2011-4-27 19:18 | 只看該作者

上面的bbb.xls,改變價位

在接收端的excel要如何一筆一筆的向下接資料

煩麻各位大大,分享一下簡單的寫法

感謝^^

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

TOP

wells330

中學生 Rank: 2

帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

12^#

發表於 2011-4-29 22:10 | 只看該作者

沙大你好!
我用EXCEL2010在儲存格內輸入 =excel|Book1.xls!x
馬上出現當機(沒有回應)，請問EXCEL哪裡設定出問題?

謝謝!

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

TOP

沙拉油

　暱稱: 沙拉油
　頭銜: 正港A水電工

超級版主 Rank: 8 Rank: 8

帖子: 44
主題: 2
精華: 0
積分: 49
點名: 0
作業系統: Windows XP SP3
軟體版本: Office 2003
閱讀權限: 150
性別: 男
來自: 呆丸
註冊時間: 2010-5-1
最後登錄: 2013-1-27

論壇貢獻勳章終身榮譽會員勳章

13^#

發表於 2011-5-1 00:03 | 只看該作者

沙大你好!
我用EXCEL2010在儲存格內輸入 =excel|Book1.xls!x
馬上出現當機(沒有回應)，請問EXCEL哪 ...
wells330 發表於 2011-4-29 22:10

沒你那種電腦環境可以測試！
請自己看看 Excel 說明
或請 Win7+Office 2010 的人幫你看看！
底下是網路上找到類似的問題
參考網路上的連結 << 英文
參考網路上的連結 << 中文

一卵三四、驚到嘸代誌

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 111
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-5-8

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

14^#

發表於 2011-5-1 00:17 | 只看該作者

學海無涯_不恥下問

TOP

binargoo

中學生 Rank: 2

帖子: 100
主題: 38
精華: 0
積分: 109
點名: 100
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: T.C.C.
註冊時間: 2011-5-17
最後登錄: 2025-5-7

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2011兔年全勤獎章

15^#

發表於 2011-5-24 14:44 | 只看該作者

我想該找些時間向各位樓主請教請教，對 VBA 以及規則語法有諸多障礙的小學生。先說謝謝嘍！

只為學習所以發問

TOP

abcdefgp06

小學生 Rank: 1

帖子: 10
主題: 5
精華: 0
積分: 16
點名: 0
作業系統: windows XP
軟體版本: SP3
閱讀權限: 10
性別: 男
註冊時間: 2010-7-23
最後登錄: 2011-7-3

16^#

發表於 2011-5-25 23:25 | 只看該作者

小弟屬小學生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