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

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

返回列表下一主題上一主題發帖

[發問] DDE資料紀錄問題

超級版主 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兔年全勤獎章

11^# 跳轉到 »

發表於 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元的贊助,人人有能力.

超級版主 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兔年全勤獎章

12^#

發表於 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元的贊助,人人有能力.

超級版主 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兔年全勤獎章

13^#

發表於 2013-7-30 15:02 | 顯示全部帖子

回復 36# npapower
這主題就有

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

超級版主 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兔年全勤獎章

14^#

發表於 2013-7-31 09:32 | 顯示全部帖子

回復 39# slip
程式碼要了解一下是何錯誤
*********** .為物件的屬性,方法 ********

WITH sh(?) '物件: 你沒有設立
.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欗
'
'
End With

複製代碼

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

超級版主 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兔年全勤獎章

15^#

發表於 2013-8-1 13:19 | 顯示全部帖子

回復 42# slip

未修改前使用區塊形式語法：有End If

If condition Then
[statements]
[ElseIf condition-n Then
[elseifstatements]...
[Else
[elsestatements]]
End If

複製代碼

If Not IsError(Sheets(1).[B2]) Then '
'
'
End If

複製代碼

修改後 if 語法為

If condition Then [statements][Else elsestatements

複製代碼

不用有 End If

If Not IsError(Sh(1).[B2]) Then Sh(2).[A65536].End(xlUp).Offset(1).Resize(, 7) = Sh(1).[A2:G2].Value '工作表1的資料DDE連結成功寫入工作表2
'
'
'最後的 End If 要刪掉

複製代碼

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

超級版主 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兔年全勤獎章

16^#

發表於 2013-8-4 15:15 | 顯示全部帖子

回復 44# slip
c_c_lai 幫你解決了錯誤,你知道是那裡出錯嗎?

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

靜思自在 : 天上最美是星星，人生最美是溫情。

返回列表下一主題上一主題