標題: 自動更新紀錄issue(5個程式,會執行2-3個後就跳出class range的select錯誤 [打印本頁]

---

作者: jk910107    時間: 2019-5-21 23:54     標題: 自動更新紀錄issue(5個程式,會執行2-3個後就跳出class range的select錯誤

自動更新紀錄issue(5個程式,會執行2-3個後就跳出class range的select錯誤
可以請教各位大大這個程式碼到底卡在哪裡,我實在解不出來,謝謝各位大大

這段程式碼寫在 ThisWorkbook
Sub UPDATA()

Application.OnTime TimeValue("23:49:00"), "期貨合約"
Application.OnTime TimeValue("23:49:00"), "外資"
Application.OnTime TimeValue("23:49:00"), "自營"
Application.OnTime TimeValue("23:49:00"), "法人"
Application.OnTime TimeValue("23:49:00"), "OP統計"
Application.OnTime TimeValue("23:49:00"), "小台"
End Sub



這段程式碼寫在Module1
Sub 小台()<====期貨合約/外資/自營/法人/OP統計/小台程式碼幾乎雷同

'
' 小台 Macro
'
'
end_small = Sheet3.Range("a2").End(xlDown).Row

Sheet3.Cells(end_small, 1).Select     <=======出現class range的select方法失敗
WORKSHEET3.ActiveCell.Range("A1:Q1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste

Sheet3.Cells(end_small + 1, 1) = Sheet1.Range("CE6")
Sheet3.Cells(end_small + 1, 2) = Sheet1.Range("C4")
Sheet3.Cells(end_small + 1, 3) = Sheet1.Range("D4")
Sheet3.Cells(end_small + 1, 4) = Sheet1.Range("E4")
Sheet3.Cells(end_small + 1, 5) = Sheet1.Range("F4")

Sheet3.Cells(end_small + 1, 6) = Sheet1.Range("AB14")
Sheet3.Cells(end_small + 1, 7) = Sheet1.Range("AB15")
Sheet3.Cells(end_small + 1, 8) = Sheet1.Range("AB16")

Sheet3.Cells(end_small + 1, 11) = Sheet1.Range("AD14")
Sheet3.Cells(end_small + 1, 12) = Sheet1.Range("AD15")
Sheet3.Cells(end_small + 1, 13) = Sheet1.Range("AD16")

'Sheet3.Cells(end_small + 1, 2) = Sheet1.Range("AF14") + Sheet1.Range("AF15") + Sheet1.Range("AF16")



MsgBox "資料已成功寫入"
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)